Hier mein Programmierversuch:
Sub EMPB()
For Each Zelle In Range("M6:SB6")
If LCase(Zelle.Value) Like "0" Then
Columns.Select
Columns.Visible = False
End If
Next
End Sub
Kann mir jemand weiterhelfen?Bin Leider eine null in VBA.
Gruß
Christian
Sub EMPB()
For Each Zelle In Range("M6:SB6")
If LCase(Zelle.Value) Like "0" Then
Columns.Select
Columns.Visible = False
End If
Next
End Sub
Kann mir jemand weiterhelfen?Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In Range("M6:SB6")
If LCase(Zelle.Value) Like "0" Then
Columns(Zelle.Column).EntireColumn.Hidden = True
End If
Next
Gruß MatthiasSub EMPB()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In Range("M6:SB6")
Zelle.EntireColumn.Hidden = Zelle = 0
Next
End Sub