iwie meckert es immer bei der If Bedingung ^^
kann mir jemand verraten warum bin in VBA nicht so bewandert.
Sub eins()
Dim sz As Integer, zz As Long, eingabe As String, ausgabe As Variant, wert As String
eingabe = InputBox("Bitte geben sie BU an die angezeigt werden soll", "BusinnesUnit Auswahl")
zz = 2
Do While Not Cells(zz, 1) = ""
wert = Cells(zz, 6)
If Not wert = eingabe Then
Rows("zz:zz").Visible = False
End If
zz = zz + 1
Loop
End Sub
danke schonmal ;)
|