Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte ausgefüllte Spalte

letzte ausgefüllte Spalte
Joachim
Hallo,
bin da auf was ganz komisches gestossen. Mit dem Code
last_spalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ermittlere ich die letzte gefüllte Spalte. Das klappt, NUR wenn alle 256 Spalten von Excel 2003 gefüllt sind, ist der Wert von last_spalte nicht 256 sondern 1!!!!
Ein Excel-Bug?
Lösung?
Gruss
Joachim

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

Betreff
Benutzer
Anzeige
Ein Excel-Bug?
10.05.2011 15:02:32
Rudi
Hallo,
nein, das ist normal. Strg+links geht ja auch auf A1 wenn Zeile1 komplett gefüllt ist.
Kannst du abfange: 
  If Application.CountA(Rows(1)) = 256 Then
MsgBox "Spalte voll"
Else
last_Spalte = Cells(1, Columns.Count).End(xlToLeft).Column
End If

Gruß
Rudi
@Rudi : If Application.CountA([1:1])=Colums.count
10.05.2011 15:11:34
NoNet
Hey Rudi,
wenn schon - denn schon :
If Application.CountA([1:1]) = Colums.Count then
Oder einfach nur : 
    If isEmpty(Cells(1, Columns.Count)) then
last_Spalte = Cells(1, Columns.Count).End(xlToLeft).Column
else
MsgBox "Spalte voll"
last_spalte=columns.count
End If
Salut, NoNet
Anzeige
Danke! o.w.T
10.05.2011 15:56:02
Joachim
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige