Kolonnen laut Kriteria verstecken
29.05.2009 12:15:48
Deister
Wenn der Wert in einer Zelle von Kolonne B8:B328 nicht gleich dem Wert in Zelle B4 ist, wird die betroffene Reihe versteckt. Das kappt mit folgender Schleife.
Sub testtest()
Dim StrWert As String
Application.ScreenUpdating = False
StrWert = Range("B4").Value2
For I = 8 To 328
If Range("B" & I).Value2 = StrWert Then
Rows(I & ":" & I).RowHeight = 12.75
Else
If Rows(I & ":" & I).RowHeight = 0 Then
Else
Rows(I & ":" & I).RowHeight = 0
End If
End If
Next I
Application.ScreenUpdating = True
End Sub
Nun möchte ich aber zusätzlich in einer anderen Tabelle Kolonnen auf die gleiche Art und Weise verstecken. Ich beisse mir die Zähne aber an der Schleife aus. Folgendes sind die Angaben.
Sub testtesttest()
If Range("B4") = Range("E4") Then
Columns("E:F").ColumnWidth = 5.43
Columns("G:G").ColumnWidth = 1.14
Else
Columns("E:G").ColumnWidth = 0
End If
If Range("B4") = Range("H4") Then
Columns("H:I").ColumnWidth = 5.43
Columns("J:J").ColumnWidth = 1.14
Else
Columns("H:J").ColumnWidth = 0
End If
If Range("B4") = Range("K4") Then
Columns("K:L").ColumnWidth = 5.43
Columns("M:M").ColumnWidth = 1.14
Else
Columns("K:M").ColumnWidth = 0
End If
bis zu
If Range("B4") = Range("IH4") Then
Columns("IH:II").ColumnWidth = 5.43
Columns("IJ:IJ").ColumnWidth = 1.14
Else
Columns("IH:IJ").ColumnWidth = 0
End If
End Sub
Kann mir bitte jemand hier mit einer ähnlichen Schleife wie in dem Beispiel testtest weiter helfen.
Gruss
Ant