ich möchte gerne mittels VBA und Userform bestimmte Zeilen einer Kategorie ausblenden. Dazu habe ich folgendes unten gebastelt was an sich gut funktioniert, ich aber noch etwas flexibler sein möchte. Genau gesagt was die .Range("U:U") angeht. Ist es möglich dort auch unabhängiger zu werden, spich das er sich selbst die Spalte sucht in der das Wort steht? Habe es mit .Range("A:Z")ausproboert, aber da kommt dann leider eine Fehlermeldung in der ersten: Start = .find ...Row Zeile.
Grund für die Flexibilität ist, das ohne Probleme Zeilen bzw Spalten hinzugefügt werden können sollen.
Hoffe die Beschreibung ist verständlich :0)
Gruß
Daniela
If cbx_Auto.Value = False Then
FindWort = "- Auto"
With Worksheets("Verkauf").Range("U:U")
Start = .Find(What:=FindWort, LookIn:=xlValues).Row
FindWort = "- Motorrad"
stopp = .Find(What:=FindWort, LookIn:=xlValues).Row
End With
stopp = stopp - 1
Worksheets("Verkauf").Range(Cells(Start, Start), Cells(stopp, stopp)).EntireRow.Select
Selection.EntireRow.Hidden = True
Else
Worksheets("Verkauf").Range(Cells(Start, 21), Cells(stopp, 21)).EntireRow.Select
Selection.EntireRow.Hidden = False
End If