Hallo! Könntest du ggf. noch erklären, was du in der Schleife machen willst. Man könnte den Code zwar anpassen, aber dann ist die Frage, ob das dann auch alles so macht wie gewünscht. Zudem noch ein paar Fragen.
1. Wird die Zelle in Zeile 13 t3.Cells(m, 6) überschrieben? ISt ja dein Abbruchkriterium der Schleife und könnte sonst eine endlosSchleife werden.
2. Welcher BEreich soll den Zeile 15 ausgewählt werden? beim zweiten .cells fehlt da entweder die Zeile oder Spalte um das Ende der Range zu bilden. Müsste so aussehen
.Range(.cells(7,g), .cells(.cells(.rows.count,2).end(xlup).row,spalte))
Für Spalte hast du aber keinen WErt und es müsste noch ein .cells davor. Bei dir wird nur die Spaltennummer dazu geschrieben, was keine Range ergibt,
VG
|