Schleife?
02.02.2006 08:23:30
Snewi
Wie würde eine Schleife aussehen wenn ich diesen Code benutze und die Zellen bei 0 ausgeblendet werden und wenn sie einen Wert haben wieder eingeblendet?
Die Nullwerte sollen in K8 bis AG8 gesucht werden!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [k8].Value = 0 Then
Columns("k").Hidden = True
Else
Columns("k").Hidden = False
End If
If [l8].Value = 0 Then
Columns("l").Hidden = True
Else
Columns("l").Hidden = False
End If
u.s.w
End Sub
Sub Makro1()
Columns("k:ag").EntireRow.Hidden = True
Columns("k:ag").EntireRow.Hidden = False
End Sub
MFG