Vielen Dank für die Hilfe, das hat so funktioniert!
wie muss ich denn vorgehen, wenn ich das für mehrere Spalten die versetzt untereinander stehen, durchführen möchte ?
ich habe das so probiert, das hat aber nicht geklappt:
Private Sub Worksheet_Activate()
Dim i As Long
With Worksheets("Tabelle1")
For i = 18 To 46
If .Cells(i, 12).Value = 0 Then ' das "i" entspricht der definition oben, also die zellen. spalte i ist die 9
.Rows(i).Hidden = True
Else
.Rows(i).Hidden = False
End If
Next i
End With
End Sub
Private Sub spalte2()
Dim a As Long
With Worksheets("Tabelle1")
For a = 47 To 75
If .Cells(a, 13).Value = 0 Then
.Rows(a).Hidden = True
Else
.Rows(a).Hidden = False
End If
Next a
End With
End Sub
Viele Grüße!
|