Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA gut
Hallo Gerd
probier mal wenn du such in einen String änderst: such = CStr([b1])
Alternativ könntest du auch den Autofilter verwenden. s. unten
Der Code gehört in die Tabelle wo deine Tabellen Namen stehen. Nicht in ein Modul!
mfg Piet
'Autofilter Spalte B
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
If Target.Address <> "$B$1" Then Exit Sub
Dim FTxt As Variant
ActiveSheet.AutoFilterMode = False
If Target.Value = Empty Then Exit Sub
With Range("B6:B75")
.AutoFilter: FTxt = Target & "*"
.AutoFilter Field:=1, Criteria1:=FTxt, _
Operator:=xlOr, Criteria2:=Target
End With
Target.Select
End Sub