Hilfe if and then
12.08.2013 09:41:37
Christopher
ich brauch Eure Hilfe. Ich versuch schon seit ner geschlagenen Stunde diese Formel zum Laufen zu bringen:
Public Sub Aus_Einblenden()
Application.ScreenUpdating = False
Dim iSpalte As Integer
Dim bSpalte As Integer
Dim lZeile As Long
Rows("18:880").EntireRow.Hidden = False
iSpalte = 1
bSpalte = 5
For lZeile = 18 To 880
If Cells(lZeile, iSpalte) "Nackensteak" And Cells(lZeile, bSpalte) "Bauchspeck" _
Then
Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
Application.ScreenUpdating = True
End Sub
Spalte1 Spalte5
Nackensteak
Nackensteak
Nackensteak Bauchspeck
Nackensteak
Nackensteak Bauchspeck
Nackensteak
Nackensteak
Nackensteak
Solang ich nur nach einer Bedingung suche haut alles hin sobald der Code wie oben
aussieht belndet er alles aus .. :(