Hallo Läute brauche dringend eure hilfe.
Das Problem ist folgendes. Ich möchte auf meinem Blatt in den Zeilen B24-B56 alle Spalten automatisch ausblenden lassen die eine 0 haben.
Hier mein Code, kann mir wer helfen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile As Long, lngSpalte As Long
Dim istLeer As Boolean
With ActiveSheet
For lngSpalte = .Columns("B").Column To .Columns("B").Column 'Spalten B
istLeer = True
For lngZeile = 24 To 56
If Not (.Cells(lngZeile, lngSpalte).Value = "" Or _
.Cells(lngZeile, lngSpalte).Value = 0) Then
istLeer = False
Exit For
End If
Next lngZeile
If istLeer Then .Columns(lngSpalte).Hidden = True
Next lngSpalte
End With
End Sub
Brauche so schnell es geht hilfe, bereits jetzt besten dank!
Gruss
safari |