letzte beschriebene Zelle ermitteln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Kurt() Dim LoLetzte As Long ' Das führt zu Fehler unter Versionen vor 2007 falls keine Zelle ausgewählt wurde If Not TypeOf Selection Is Range Then Exit Sub ' Hinweis von Beverly (Karin) ' Prüfng ob Tabelle ausgewählt If TypeName(ActiveSheet) "Worksheet" Then Exit Sub LoLetzte = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), Cells(Rows.Count, ActiveCell. _ Column).End(xlUp).Row, Rows.Count) MsgBox "letzte belegte Zeile " & LoLetzte & " in Spalte " & ActiveCell.Column End Sub

Sub Letzte_Zelle_ermitteln() '--- letzte Zelle in der Activen Spalte ermitteln --------------- Dim LoLetzte As Long ' Das führt zu Fehler unter Versionen vor 2007 falls keine Zelle ausgewählt wurde If Not TypeOf Selection Is Range Then Exit Sub ' Hinweis von Beverly (Karin) ' Prüfng ob Tabelle ausgewählt If TypeName(ActiveSheet) "Worksheet" Then Exit Sub LoLetzte = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), _ Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, Rows.Count) ' MsgBox "letzte belegte Zeile " & LoLetzte & " in Spalte " & ActiveCell.Column ActiveSheet.Cells(LoLetzte, ActiveCell.Column).Activate End Sub gr Kurt P

Guten Morgen Kurt,
lass Dich von Hajo nicht verunsichern. Die 99,9% schreibt er imme(r), sagt er. Er schreibt aber fast genauso häufig "ich kann Deine Datei nicht sehen" oder "ich greife nicht auf fremde Computer zu". Alles Show %-). Hajo braucht einfach nur noch ein paar Beiträge in Foren.
Die werden nämlich von hoch offizieller Seite gezählt. Und wenn, unabhängig von der Qualität seiner Beiträge, eine ausreichende Zahl erreicht wurde, bekommt er einen Titel von Microsaft. "M V P", sowas wie VIP, der besondere Personenkreis in gesonderten Arealen der Fußballstadien.
Irgendwann, wenn Hajo sein Ziel erreicht hat, nämlich diesen besagten Titel, dann wird er seinen Abschied aus diesem Forum erneut mit theatralischen Begleiterscheinungen vollziehen. Ich denke zu 99,9%.
Einen schönen Tag noch, Grüße, Orakel

Hallo Kurt,
zunächst mal drei Fragen:
1. Welche Fehlermeldung kommt? Wie lautet die fehlerhafte Zeile?
2. Was ist das lc in deinem Code?


Dim ls As Range
Set ls= ActiveCell
ls= Range(lc).End(xlDown).Row

3. Was möchtest du mit der letzten beschriebenen Zelle der Spalte tun?
Und ein Hinweis:
Mit deinem Code wird nicht unbedingt die letzte beschriebene Zelle der Spalte gefunden,
sondern die Zelle über der ersten leeren Zelle unterhalb der aktiven Zelle.
Darunter können wieder Daten kommen.
Das passiert natürlich nur dann, wenn innerhalb der Daten leere Zellen vorkommen.
Mit LoLetzte in Hajos Code kennst du die Zeillennummer der letzten belegten Zelle in der Spalte:
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), _
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, Rows.Count)
Die letzte Zelle ist dann Cells(LoLetzte, ActiveCell.Column)
Damit kannst du dann tun, was immer du möchtest.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

letzte beschriebene Zelle ermitteln

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte beschriebene Zelle ermitteln

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread