Spalten ausblenden
12.02.2013 20:14:51
Rainer
mit folgendem Code habe ich hinsichtlich einer Auswahl noch meine Probleme:
Sub Auswahl()
Dim lngZeile As Long
Dim iCol As Integer
For lngZeile = 1 To Range("E" & Rows.Count).End(xlUp).Row
If Range("E" & lngZeile) = WAHR Then
For iCol = 6 To 99
If Cells(lngZeile, iCol).Value = "nein" Then
Columns(iCol).Hidden = True
Columns(iCol + 1).Hidden = True
End If
Next iCol
End If
Next
End Sub
Ziel soll sein, dass durch Kontrollkästchen bezogen auf Spalte E automatisch zwei zusammengehörige Spalten nicht mehr angezeigt werden, wenn in der ersten Spalte dieser Zeile ein "Nein" steht.
Mit dem Code oben wird mir alles ausgeblendet.
Da es am besten mit Beispiel geht Beispieltabelle hier:
https://www.herber.de/bbs/user/83875.xls
Das erste Kontrollkästchen habe ich als Beispiel angelegt.
Der Button Auswahl soll nicht verwendet werden.
Dient nur als Test für den gewünschten Code.