wie kann ich mit VBA auf einmal die Spalten ausblenden ab der 12. Spalte (L) bis zur aktiven Zelle.
Bsp.: aktive Zelle gleich O9, dann L:O ausblenden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre
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