Spalten ausblenden
03.04.2007 12:26:49
Andreas
Hallo Excelprofis!
Mit folgendem Code blende ich alle Zeilen aus in deren Spalte 32 kein Wert steht.
Wie muss der Code aussehen, wenn nur alle Zeilen ausgeblendet werden sollen bei denen in den Spalten 29 und/oder 30 und/oder 31 und/oder 32 kein Wert steht.
Das heißt also, wenn in einer der 4 Spalten ein Wert steht, soll diese nicht ausgeblendet werden.
Private Sub CommandButton_BesucherTag4_Click()
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Rows("5:1001").Select
Selection.EntireRow.Hidden = False
For i = 5 To 1000
If Cells(i, 32) = "" Then
Rows(i).EntireRow.Hidden = True
End If
Next
Range("B5").Select
End Sub
Danke für die Hilfe!mfg Andreas