Letzte belegte Zelle in einer Tabelle bestimmen

Computer: Software & Programmierung Office Software
1

Guten Morgen,

  1. ich bestimme mit

    G_LetzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

die letzte belegte Zelle in einer Tabelle. Heraus kommt aber eine „Mondzahl“, die irgendwo in der Tabelle, nur nie am Ende liegt.
Wo dran kann das liegen?

  1. Mit

    G_LetzteZeile = ActiveSheet.Cells(Rows.Count, i_spalte).End(xlUp).Row

bestimme ich die letzte belegte Zelle in einer bestimmten Spalte (in ‚i_spalte‘ steht die Nummer der gewünschten Spalte (ermittelt aus der Eingabe A, B, …).
Funktioniert auch prima, aber: Wenn gerade ein Objekt oder Diagramm selektiert ist, bricht die Prozedur mit einem Fehler ab: „Die Methode Rows ist fehlgeschlagen“.
Kann ich ermitteln, ob gerade keine Zelle, sondern was anderes selektiert ist?
Bis jetzt selektiere ich einfach vorsorglich eine Zelle, wass nicht so schön ist.

Danke
Laika

2

hi,
du musst der dussligen Kiste nur sagen wo es die Zeilen zählen soll
also:
G_LetzteZeile = ActiveSheet.Cells(ActiveSheet.Rows.Count,i_spalte).End(xlUp).Row

cu Micha

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]