HERBERS Excel-Forum - das Archiv
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
Gruß Gerd

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
Gruß Gerd

Bewerten Sie hier bitte das Excel-Portal