Hallo,
der Befehl Cells(1, Columns.Count).End(xlToLeft).Column liefert ein falsches Ergebnis, falls die letzte Zelle in der Zeile belegt ist.
Darum sollte man die Ermittlung der letzten Spalte ein wenig ausführlicher machen, hier ein Beispiel für Zeile 1:
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.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(1, Columns.Count).End(xlToLeft).Column liefert ein falsches Ergebnis, falls die letzte Zelle in der Zeile belegt ist.
Darum sollte man die Ermittlung der letzten Spalte ein wenig ausführlicher machen, hier ein Beispiel für Zeile 1:
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.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">