spalten bis zur aktive zelle ausblenden

Bild

Betrifft: spalten bis zur aktive zelle ausblenden
von: Andre´
Geschrieben am: 02.09.2015 20:42:30

Hallo alle zusammen,
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

Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Sepp
Geschrieben am: 02.09.2015 21:04:17
Hallo Andre,

Sub ausblenden()

If ActiveCell.Column >= 12 Then
  Range(Cells(1, 12), Cells(1, ActiveCell.Column)).EntireColumn.Hidden = True
End If

End Sub


Gruß Sepp


Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Andre´
Geschrieben am: 02.09.2015 21:11:39
Hallo Sepp,
vielen Dank für die schnelle Hilfe, funktioniert wie gewünscht :-))
MFG Andre

Bild

Betrifft: AW: spalten bis zur aktive zelle ausblenden
von: Gerd L
Geschrieben am: 02.09.2015 21:12:39
Hallo Andre!

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

 Bild

Beiträge aus den Excel-Beispielen zum Thema "spalten bis zur aktive zelle ausblenden"