Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

letzte Spalte

letzte Spalte
Jonathan
Hey,
ganz kurze Frage:
mit SpaAnz = .Cells(6, Columns.Count).End(xlToLeft).Column
prüfe ich die anzahl der Spalten - dies klappt auch, sofern alle Spalten eingeblendet sind. Habe ich aber z.B. nur die Spalten A und N eingeblendet (also für mein Vorhaben wären das 2), werden mir trotzdem 14 ausgegeben. Wie kann ich auf die wirklich sichtbaren Spalten zugreifen?
Danke Euch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzte Spalte
14.05.2011 16:07:57
Uwe
Hallo Jonathan,
notfalls über eine Schleife in dieser Art?
...
SpaAnz = .Cells(6, Columns.Count).End(xlToLeft).Column
For L = 1 To SpaAnz
If .Cells(6, L).EntireColumn.Hidden = False Then
lSichtbar = lSichtbar + 1
End If
Next L
MsgBox lSichtbar
...
Gruß
Uwe
(:o)
AW: letzte Spalte
14.05.2011 16:22:30
CitizenX
Hallo,
Option Explicit
Sub meineSpalten()
Dim raSp As Range
Dim anzSp
Set raSp = Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
anzSp = raSp.SpecialCells(xlCellTypeVisible).Count
MsgBox " In deinem Bereich " & raSp.Address & " hast du " & anzSp & " sichtbare Spalten "
End Sub

Grüße
Steffen
Anzeige
AW: letzte Spalte
14.05.2011 18:51:32
Jonathan
Super, danke für Eure Hilfe!!
VG

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige