Wert letzte beschr. in Spalte E auslesen
14.01.2019 10:58:00
Peter
ich habe eine sehr umfangreiche Datei mit mehreren Tabellen.
Ein Problem bereitet mir eine Tabelle=Kontodaten.
In dieser Spalte sind folgende Werte aufgelistet:
Kontonummer
222 222 22
666 666 66
777 777 77
Nun möchte ich gerne den letzten beschriebenen Wert auslesen.
Die Spalte E ist formatiert mit Standard.
Ich verwende hierzu folgenden Code:
Sub letzte_zelle3()
Dim r As Long
Dim EWert As String
r = Sheets("Kontodaten").Range("E65536").End(xlUp).Row
EWert = Sheets("Kontodaten").Cells(r, 5) 'Zeile: letzte Zeile also r, Spalte 5 also E
Debug.Print EWert
End Sub
Keine Ahnung wo die Ursache sein könnte.
Könnt ihr mir bitte helfen.
Besten Dank
Gruss
Peter
Anzeige