Letzte Zeile in Spalte a ermitteln

[Ubi5]

Hallo, vielleicht kann jemand mir bitte weiterhelfen - Danke!

Ich möchte gerne aus "Tabelle2" mittels Button die letzte Zelle in Spalte A in der Tabelle3 ermitteln. 

Die Ermittlung letzte Zelle in Spalte A nach öffnen der Datei "Test.xlsm" funktioniert einwandfrei.

Private Sub Workbook_Open()
        Dim letzte_Zeile As Long
        ' Finde die letzte gefüllte Zeile in Spalte A
        letzte_Zeile = Cells(Rows.Count, "A").End(xlUp).Row
       
        ' Springe zur letzten Zelle in Spalte A
        Cells(letzte_Zeile, "A").Activate
    End Sub

Die Ermittlung der letzten Zelle in Tabelle3 bekomme ich nicht hin.

Lg Ubi5

[BoskoBiati]

Hi,

da würde ich es doch mal mit dem probieren:

Code:

letzte_Zeile = sheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp).Row

[slowboarder]

Private Sub Workbook_Open()
        Dim letzte_Zeile As Long
        ' Finde die letzte gefüllte Zeile in Spalte A
        letzte_Zeile = Sheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp).Row
       
        ' Springe zur letzten Zelle in Spalte A
        Application.Goto Sheets("Tabelle3").Cells(letzte_Zeile, "A")
    End Sub

Wobei du das in eine Zeile schreiben kannst:

Application.Goto Sheets("Tabelle3").Cells(Rows.Count, "A").end(xlUp)

Beim Arbeiten mit mehreren Tabrlenblättern solltest du immer die die Zellreferenz (Range,Cells,Columns,Rows) mit dem Tabellenblatt davor angeben.

Möchtst du eine Zelle auf einem Tabellenblatt selektieren, dass nicht das aktive ist, verwende Application.Goto.

Gruß Daniel

[Ubi5]

Hallo Edgar, hallo Daniel!

Danke für die Rückmeldung.

Vielleicht habe ich mich nicht richtig ausgedrückt.
Folgendes: In der Tabelle2 ist ein Button - mit diesen möchte ich die letzte Zelle in der Tabelle3 Spalte a anspringen.

Lg Ubi5

[slowboarder]

Wenn du einem Button verwendest, ist das Workbook-Open-Event unsinn.
Dass sollte man schon aus dem Makronamen ableiten können, dazu braucht es kein Expertenwissen, nur etwas gesunden Menschenverstand.


Ansonsten: nimm einfach die von mir gezeigte Einzelzeile als Code für das Makro des Buttons.

Gruß Daniel

[Ubi5]

Danke Daniel!
Danke Edgar!

Funktioniert!

[RPP63]

Moin!
Ich möchte jemandem, der bald zweistelliges Forenjubiläum feiert, Daniels wichtigen Satz noch einmal ans Herz legen:

Beim Arbeiten mit mehreren Tabrlenblättern solltest du immer die die Zellreferenz (Range,Cells,Columns,Rows) mit dem Tabellenblatt davor angeben.

Bei
Sheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp)
bezieht sich Rows.Count auf das Sheet, in dem sich der Button befindet!
Dies wird spätestens dann ein Problem, wenn sich der Button in einem Diagramm-Blatt befindet, welches keine Rows hat!
Deshalb solltest Du Dich prinzipiell daran gewöhnen, korrekt zu referenzieren!

Genug der Ausrufezeichen …
Entweder
Sheets("Tabelle3").Cells(Sheets("Tabelle3").Rows.Count, "A").End(xlUp)
oder viel besser gleich mit einem With-Statement:
With Sheets("Tabelle3")
   .Cells(.Rows.Count, "A").End(xlUp)
End With
Punkte vor den Objekten beachten.

Gruß Ralf

[snb]

@RPP

Erkläre bitte was ist das Unterschied zwischen

Code:

rows.count 

und

Code:

sheet1.rows.count

ergo: das With  .. End With statement ist in diesem Falle nur Murks.

Die Lösung von Daniel (application.goto) war schon die eleganteste.

[Kuwer]

Hallo snb,

Ralf hatte es doch gut erklärt.

Extra für Dich:

Code:

Sub Makro1()
    Charts.Add
    Debug.Print Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Row
End Sub

Gruß, Uwe

[slowboarder]

@snb

Ralf hat es doch erklärt.

Allerdings ist das für mich ein Sonderfall, weshalb ich das nicht ständig berücksichtige.

Der zweite Fall, in dem Rows.Count nicht funktioniert wäre, wenn man mit mehreren Mappen die unterschiedliche Anzahlen an Zeilen haben, arbeitet.
Aber auch das dürfte mittlerweile nicht mehr vorkommen, da die Umstellung auf das neue Dateisystem jetzt auch 18 Jahre her ist und xls-Dateien kaum noch im Gebrauch sein dürften.

Gruß Daniel