nochmals Endlosschleife ?
11.12.2002 07:26:13
klausi
ich habe vor einigen Tagen unter dem Beitrag "VBA Anfänger" mein Problem so gut es geht geschildert und habe auch von Phil einen guten Code zur Lösung erhalten. Leider läuft irgend etwas nicht richtig. Ich muß das Makro immer mit ESC abbrechen. Meine Ursprungstabelle hat z.Z. 80 Zeilen und 14 Spalten. Irgendwie stimmt was bei der letzten Zeile nicht. Es wird alles ordentlich ausgeführt und zusammengefasst, nichtbenötigte Zeilen werden auch gelöscht bis auf 52. In Zeile 53 jedoch wird in der Zelle 2 eine 0 eingfügt und in Zelle 7 jede Menge CHR(10). Normalerweise müsste doch weitergezählt werden bis "Do Until irow = ende".
Kann mir jemand weiterhelfen ?
Hier der Code, der ursprünglich von Philipp ist.
Sub gruppieren1()
Dim irow As Integer, z As Integer
Dim ende As Integer
ende = Range("D36000").End(xlUp).Row
Application.ScreenUpdating = False
z = 1
irow = 7
Do Until irow = ende
If Cells(irow, 4).Value = Cells(irow + z, 4).Value Then
Cells(irow, 2) = Cells(irow, 2) + Cells(irow + z, 2)
Cells(irow, 7) = Cells(irow, 7) & Chr(10) & Cells(irow + z, 7)
Rows(irow + z).Delete
ElseIf IsEmpty(Cells(irow, 4)) Then
irow = irow + 1
Else
irow = irow + 1
End If
Loop
End Sub
Sub zeileneinfügen()
Dim irow
For irow = 8 To 200 Step 2
Rows(irow).Insert
Next irow
End Sub