Hallo,
der Befehl Cells(Rows.Count, 1).End(xlUp).Row liefert ein falsches Ergebnis, falls die letzte Zelle in der Spalte belegt ist.
Darum sollte man die Ermittlung der letzten Zeile ein wenig ausführlicher machen, hier ein Beispiel für Spalte A =1:
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Homepage">
der Befehl Cells(Rows.Count, 1).End(xlUp).Row liefert ein falsches Ergebnis, falls die letzte Zelle in der Spalte belegt ist.
Darum sollte man die Ermittlung der letzten Zeile ein wenig ausführlicher machen, hier ein Beispiel für Spalte A =1:
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
" align="middle" height="40" alt="Grußformel">
" align="middle" height="40" alt="Homepage">