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

Forumthread: Letzte Spalte finden funzt nicht

Letzte Spalte finden funzt nicht
08.06.2006 15:17:22
Anton
Hallo Leute,
ich weiß nicht was ich falsch mache...
Es soll die nächste freie Spalte gefunden und ausgewählt werden.

Sub letzteSpalte()
Dim intSpaltenanzahl%
intSpaltenanzahl = 0
'letzte Spalte in 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'und aktiviert
Cells(intSpaltenanzahl + 1, 1).Activate
End Sub

Wer kann mir bitte weiterhelfen?
Danke.
Servus,
Anton
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Spalte finden funzt nicht
Mag
Hi,

Sub letzteSpalte()
Dim Spaltenanzahl%
'letzte Spalte in 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
'und aktiviert
Cells(1, Spaltenanzahl + 1).Activate
End Sub

Gruss
herzlichen Dank
08.06.2006 15:29:26
Anton
Hallo Mag,
au ja....
jetzt sehe ich den Fehler auch.
Vielen Dank.
Servus,
Anton
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige