HERBERS Excel-Forum - das Archiv
Thema: spalten bis zur aktive zelle ausblenden
spalten bis zur aktive zelle ausblenden
Andre´
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
AW: spalten bis zur aktive zelle ausblenden
Sepp
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
AW: spalten bis zur aktive zelle ausblenden
Andre´
Hallo Sepp,
vielen Dank für die schnelle Hilfe, funktioniert wie gewünscht :-))
MFG Andre
AW: spalten bis zur aktive zelle ausblenden
Gerd
Hallo Andre!
If ActiveCell.Column > 11 Then Range(Columns(12), ActiveCell.EntireColumn).Hidden = True
spalten bis zur aktive zelle ausblenden
Andre´
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
AW: spalten bis zur aktive zelle ausblenden
Sepp
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
AW: spalten bis zur aktive zelle ausblenden
Andre´
Hallo Sepp,
vielen Dank für die schnelle Hilfe, funktioniert wie gewünscht :-))
MFG Andre
AW: spalten bis zur aktive zelle ausblenden
Gerd
Hallo Andre!
If ActiveCell.Column > 11 Then Range(Columns(12), ActiveCell.EntireColumn).Hidden = True
Excel-Beispiele