Hallo Frank,
als erstes möchte ich mal darauf hinweisen, dass RangNote Nothing sein wird, wenn "Note" nicht gefunden wird. In diesem Fall würde die zweite Zeile in einen Fehler laufen.
Das Konstrukt in der ersten Zeile wirkt etwas "umständlich". Warum nimmst Du nicht gleich Usedrange?
Set RangNote = ActiveSheet.UsedRange.Find("Note")
Auch hier sei darauf hingeweisen, dass USedrange manchmal nicht korrekt funktioniert. Sollte aber hier nicht problematisch sein...
Um dann nach unten die letzte Zeile zu finden würde ich so vorgehen:
IntNote = ActiveSheet.Cells(Rows.Count, RangNote.Column).End(xlUp).Value
Vielleicht sollte man sich auch noch grundsätzlich Gedanken über den Aufbau der Tabelle machen ...
Gruß
Michael
|