ich versuche derzeit die folgende VBA (Quelle: Flox83 - Office-Lösung) so anzupassen, dass diese für Spalten funktioniert. Leider hat das mit meinen rudimentären VBA-Kenntnissen nicht funktioniert. Hat jemand eine Ahnung wie das gehen könnte? Ich verstehe im fett markierten Teil z.B. nicht, wieso dort 6 steht.
Wäre toll, wenn jemand helfen könnte, danke!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLastRow As Integer
Dim strSearchText As String
If (Target.Address = "$C$3") Then
'Wenn die geänderte Adresse C3 ist ...
intLastRow = ActiveWorkbook.Sheets("Tabelle1").Range("A65536").End(xlUp).Row
'Letzte Zeile in dem Sheet "Tabelle1" aus Spalte A auslesen
strSearchText = Target.Value
'Suchwert übernehmen
If IsEmpty(Target.Value) Then
'Wenn Suchfeld leer ...
Columns("A:A").EntireRow.Hidden = False
'... alle Zeilen einblenden
Else
For i = intLastRow To 6 Step -1
'Zeilen von unten nach oben durchlaufen ...
If LCase(Sheets("Tabelle1").Range("A" & i)) Like LCase("*" & strSearchText & "*") _
_
_
Then
'Wenn der Suchwert zum Teil mit dem Suchtext übereinstimmt ...
Range("A" & i).EntireRow.Hidden = False
'... Zeile anzeigen
Else
Range("A" & i).EntireRow.Hidden = True
'... sonst Zeile verstecken
End If
Next i
End If
End If
End Sub