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
Ich würde die Leerzeichen vorher löschen ...
Hallo,
Zitat: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.
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]
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