Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten ausblenden

Forumthread: Spalten ausblenden

Spalten ausblenden
23.11.2006 14:42:40
Engelbert
Hallo Forum,
was stimmt denn an diesem Code nicht?
Dim LetzteSpalte As Byte
LetzteSpalte = Worksheets("Planungsübersicht").Cells(1, Columns.Count).End(xlToLeft).Column
Columns("C:" & LetzteSpalte).EntireColumn.Hidden = False
er soll mir ab Spalte C, bis zur letzten benutzten Spalte alle ausblenden.
In der Recherche gibt es so viel über "Spalten ausblenden", dass ich nicht das Richtige gefunden habe...
Schöne Grüße aus Nürnberg, Bert
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden
23.11.2006 14:46:43
Dr.
Hi,
LetzteSpalte = Worksheets("Planungsübersicht").Cells(1, Columns.Count).End
(xlToLeft).Column
gibt einen numerischen Spaltenindex zurück und keinen Buchstaben.
AW: Spalten ausblenden
23.11.2006 14:56:08
Engelbert
Ok, und wie kann ich das dann sonst realisieren?
Spalte C bis letzte benutzte Spalte ausblenden?
Kann da jemand helfen?
Gruß, Bert
Anzeige
AW: Spalten ausblenden
23.11.2006 15:19:26
Fritz
Versuchs mal so:
Dim Bereich As Range
Set Bereich = Range(Cells(1, 4), Cells(LetzteZeile, LetzteSpalte))
Bereich.EntireColumn.Hidden = True
End Sub
funkioniert, danke Fritz
23.11.2006 15:39:47
Engelbert
Super Fritz,
danke dir, genau das habe ich gesucht.. funktioniert einwandfrei!
Schöne Grüße aus Nürnberg, Bert
AW: Spalten ausblenden
23.11.2006 15:14:26
Herbert
Range("C:" & LetzteSpalte).EntireColumn.Hidden = False
mfg Herbert
Anzeige
AW: Spalten ausblenden
23.11.2006 15:37:31
Engelbert
Hallo Herbert,
so funktioniert das leider auch nicht...
"Die Methode Range für das Objekt Global ist fehlgeschlagen"
Schöne Grüße aus Nürnberg, Bert
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige