Option Explicit
Public Sub Spalten_ausblenden()
Dim loSpalte As Long, i As Long
With Worksheets("Tabelle1")
loSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Column
For i = 6 To loSpalte
If .Cells(3, i) = "St" Then
If .Cells(4, i).Value = "" Then
Columns(i).Hidden = True
End If
End If
Next i
End With
End Sub
Public Sub Spalten_einblenden()
Worksheets("Tabelle1").Columns.Hidden = False
End Sub