Hey also ich wollte eine For-Schleife bis zur letzen Zeile laufen lassen, dabei entweder bis zur letzten Zeile in Spalte 5 oder bis zur letzten Zeile in Spalte 21, je nachdem welche länger ist. Folgenden Code hab ich:
letzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
letzteZeile2 = ActiveSheet.Cells(Rows.Count, 21).End(xlUp).Row
If letzteZeile2 > letzteZeile Then
For i = 10 To letzeZeile2
[...]
Else
For i = 10 To letzeZeile
[...]
End If
Mein Problem ist, ich habe auch mal testweise die Variablen letzteZeile und letzteZeile2 auslesen lassen (letzteZeile = 9 und letzteZeile2 = 32) und demzufolge sollte er die erste If-Bedingung erfüllen, weil letzteZeile2 ist ja größer als letzteZeile. Im F8-Modus hab ich auch gesehen, er springt noch auf die erste Forschleife, aber geht dann sofort als nächsten Schritt auf die End-If Bedingung. Sprich das Programm läuft überhaupt nicht die For-Schleife durch...
Warum nicht?
LG Till
|