VBA letzte Zelle ermitteln

[smag]

Hallo zusammen,

ich benötige aus eienr Tabelle die Info, in welcher Zelle das letzte mal etwas in Spalte AL eingetragen wurde. Dies mache ich gerade mit dem VBA Script Ende = Cells(Rows.Count, 38).End(xlUp).Row

Problem dabei ist, dass das eigentliche Ende viel höher ist als das, was er mir sagt. In einigen Zellen ist noch ein Leerzeichen " " eingetragen, was hier mitgewertet wird.
Wie kann ich also die letzte tatsächlich eingetragene Zahl ermitteln? (Wenn etwas eingetragen wird, dann immer Zahlen...)

LG und vielen Dank,
smag

[Storax]

Ich würde die Leerzeichen vorher löschen ...

[Käpt'n Blaubär]

Hallo,

Option Explicit

Sub letzte_Zeile()
'letzte Zeile in Spalte A suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "Zeile: " & Zeilenanzahl
End Sub


Sub letzte_Spalte()
'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Spalte: " & Spaltenanzahl & Chr(10) & _
       "Buchstabe: " & SpaltenBuchstaben(Spaltenanzahl)
End Sub


Sub letzteZeile_letzteSpalte()
Dim Zeilenanzahl As Long
Dim Spaltenanzahl As Long
Dim lngi As Long
                                                                'letzte Zeile in Spalte A suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

                                                                'letzte Spalte in der Zeile suchen und
                                                                'Schrifteintag hinter letzter genutzter Spalte
    For lngi = 1 To Zeilenanzahl
        Spaltenanzahl = ActiveSheet.Cells(lngi, Columns.Count).End(xlToLeft).Column
        Cells(lngi, Spaltenanzahl + 1) = "Hallo, hier ist Schluß"
    Next lngi
End Sub

zu wissen, wie Du das anwendest,traue ich Dir zu.

Als ersten Schritt, und der würde Dir Dein größtes Problem ersparen,
empfehle ich, unterhalb Deines benutzten Bereiches alle Zeilen zu löschen.

[00202]

Hallo, :19:

hier mal eine Möglichkeit, wie du die letzte belegte Zelle in Spalte AL ermittelst, wenn nach den Zahlen noch Zellen mit Leerzeichen kommen: :21:
[attachment=23460]

[smag]

Hallo zusammen,

die letzte Lösung hat mir geholfen, vielen Dank!

Blaubär, deine Lösung konnte ich leider nicht anwenden. Problem dabei war, dass in den Spalten daneben noch anderer Inhalt war, der teilweise "tiefer" ging als in meiner gewünschten Spalte. Daher konnte ich nichts machen, um die restlichen Zeilen zu löschen...

Trotzdem danke und viele Grüße,
smag