AW: hier mein Code-"Versuch"
13.09.2012 06:36:49
hary
Hallo Joerg
In deinem Code hat z immer 0 durch das exit for. Geh mal im Einzelschritt(F8) durch da siehst du z bleibt immer 0. Da die Arrays gleich gross sind reicht eine Schleife.
Hier dein Versuchscode.
Sub test()
Dim i As Byte
Dim c As Range
Dim cc As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
Dim s As Integer
Dim z As Integer
Dim arrSpalte As Variant
Dim arrZeile As Variant
arrSpalte = Array("c", "d", "e", "f", "g", "h")
arrZeile = Array("5", "6", "7", "8", "9", "10")
z = 0
For s = LBound(arrSpalte) To UBound(arrSpalte)
Debug.Print s
Debug.Print z
If ws.Range(arrSpalte(s) & "1").Value = "nein" Then
ws.Range("A" & arrZeile(z)).EntireRow.Hidden = True
Else
ws.Range("A" & arrZeile(z)).EntireRow.Hidden = False
End If
z = z + 1
Next s
End Sub
meinst du so?
gruss hary