Sub ausblenden()
If ActiveCell.Column >= 12 Then
Range(Cells(1, 12), Cells(1, ActiveCell.Column)).EntireColumn.Hidden = True
End If
End Sub
If ActiveCell.Column > 11 Then Range(Columns(12), ActiveCell.EntireColumn).Hidden = True
Gruß Gerd
Sub ausblenden()
If ActiveCell.Column >= 12 Then
Range(Cells(1, 12), Cells(1, ActiveCell.Column)).EntireColumn.Hidden = True
End If
End Sub
If ActiveCell.Column > 11 Then Range(Columns(12), ActiveCell.EntireColumn).Hidden = True
Gruß Gerd