|
Guten Morgen in die Runde,
um den Inhalt einer Zelle in Blatt A als Kriterium für den AutoFilter in Blatt B zu übernehmen habe ich folgenden Code im Codefenster von Blatt A:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error GoTo ende
If Intersect(Range("AI13:AI67"), Target) Then
Sheets("B").Columns("A:G").AutoFilter Field:=7, Criteria1:=CStr(Target.Value)
End If
ende:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
In der Range stehen Tournummmern, zB 511 oder 542
Die werden auch problemlos als Suchkriterium übernommen.
In der Range stehen aber auch Anschlusstouren, zB 511/2 oder 542/2
Die werden nicht als Suchkriterium übernommen. Das "/" (slash) verursacht wahrscheinlich ein Problem und ich komm nicht auf die Lösung.
Wenn mir jemand einen Schubser in die richtige Richtung geben könnte wär ich euch echt dankbar.
LG
|