Office: die to Variable innerhalb einer FOR Schleife ändern

chasp · 10. Juni 2008

Hallo zusammen,

ich würde gern die to Variable (in meinem Fall lastRow) innerhalb der FOR Schleife ändern. Funktioniert irgendwie nicht....

Code:

lastRow = Output.UsedRange.Rows.Count
For i = 2 To lastRow Step 1
If Range("A" & i).Value = Range("A" & i - 1).Value And _
Range("C" & i).Value Range("C" & i - 1).Value Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
i = i + 1
lastRow = lastRow + 1
ElseIf Range("A" & i).Value Range("A" & i - 1).Value And _
Left(Range("A" & i).Value, 5) = "Total" Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
i = i + 1
lastRow = lastRow + 1
End If
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Geht das denn überhaupt?

Grüsse
chasp

:)

ransi · 12. Juni 2008

HAllo Chap

Ich weiss zwar nicht genau was du vorhast, aber ich nehme an dein "i" verschluckt sich beim einfügen.
Versuch die Schleife mal von hinten nach vorne:
For i = lastRow to 2 Step -1

ransi

jinx · 12. Juni 2008

Moin, chasp,

Manipulationen des Zellzählers bringen eigentlich nur Probleme und sollten unterlasssen werden. Für die Variante Total bietet sich alternativ Find an.

Selektieren ist dabei unnötig:

Code:

Dim lngLastRow As Long
Dim lngCounter As Long
lngLastRow = Output.Cells(rowds.ocunt, "A").End(xlUp).Row
For lngCounter = lngLastRow To 2 Step -1
If (Range("A" & lngCounter).Value = Range("A" & lngCounter - 1).Value) And _
(Range("C" & lngCounter).Value Range("C" & lngCounter - 1).Value) Then
Rows(lngCounter & ":" & lngCounter).Insert Shift:=xlDown
ElseIf (Range("A" & lngCounter).Value Range("A" & lngCounter - 1).Value) And _
(Left(Range("A" & lngCounter).Value, 5) = "Total") Then
Rows(lngCounter & ":" & lngCounter).Insert Shift:=xlDown
End If
Next lngCounter
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: die to Variable innerhalb einer FOR Schleife ändern

die to Variable innerhalb einer FOR Schleife ändern

die to Variable innerhalb einer FOR Schleife ändern

die to Variable innerhalb einer FOR Schleife ändern - Similar Threads - Variable FOR Schleife

Combobox einbinden

VBA:Laufzeitfehler beim Einlesen in Variable

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Variable Anzahl immer 9er Kombination StellenBerechnung

Makro für variable Anzahl von Datensätzen

Variable Länge

range mit variable in for schleife (anfängerproblem)