PDA

Vollständige Version anzeigen : Spalten ausblenden, Spaltennr. aus Zelle


maikoha
27.06.2014, 14:33
Hallo zusammen,


folgendes Problem:
Ich moechte mehrere Spalten einer Arbeitsmappe ausblenden. Der Nutzer soll praktisch in Zelle A1 die Spalte eingeben koennen, aber der diese ausgeblendet werden soll und in B1 die letzte auszublendende Spalte.

Ich dachte an folgenden Code bei Klick auf einen Button:
Columns(Range("A1"):Range("B1")).Hidden = True

Leider funktioniert das nicht. Wenn ich die Spaltennumer direkt in den Code schreibe (also statt 'Range("A1")') funktioniert das einwandfrei.

Wo liegt nun mein Denkfehler?

Im Voraus schonmal danke!

RPP63neu
27.06.2014, 14:50
Hallo!
Mach mal so:
Sub ausblenden()
Range(Columns(Cells(1, 1)), Columns(Cells(1, 2))).EntireColumn.Hidden = True
End Sub
Gruß, Ralf

maikoha
27.06.2014, 14:53
Perfekt. Funktioniert ohne Probleme. Danke fuer die schnelle Rueckmledung und ein schones Wochenende!