Knifflige For-Next-Schleife
01.02.2005 15:31:51
Henri
ich habe eine Frage zu einer For-Next-Schleife.
Ist es möglich das Ende variabel zu gestalten?
Ich laufe in meiner Schleife Zeilen nach unten und füge bei Bedarf eine Zeile ein. Daher soll natürlich auch das Ende der Schleife um eins erhöht werden.
Leider funktioniert das in meinem Code so nicht, da das Ende am Anfang mit:
for i = 1 to intEnd festgelegt wird und ich nicht mitten in der Schleife intEnd = intEnd +1 machen kann.
Hier mal mein Code.
Danke für die Hilfe
Henri
Sub Einfügen()
intEnd = Range(strQuelleLand & "65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = intZeile To intEnd
With wksDaten.Cells(i, strQuelleLand)
If strVergleich = "" Then
strVergleich = .Value
Else
If .Value <> strVergleich Then
If .Value <> "" Then
.EntireRow.Insert
.Offset(-1, -1).FormulaR1C1 = "Gesamt (A/M/Z):"
.Offset(-1, -1).Font.Bold = True
.Offset(-1, 0).Formula = "=GETPIVOTDATA(Statistik!A2,""" & strVergleich & " A"") & """ & "/" & """ & GETPIVOTDATA(Statistik!A2,""" & strVergleich & " M"") & """ & "/" & """ & GETPIVOTDATA(Statistik!A2,""" & strVergleich & " Z"")"
.Offset(-1, 0).Font.Bold = True
i = i + 1
intEnd = intEnd + 1
strVergleich = .Text
Else
.Offset(0, -1).FormulaR1C1 = "Gesamt (A/M/Z):"
.Offset(0, -1).Font.Bold = True
.Formula = "=GETPIVOTDATA(Statistik!A2,""" & strVergleich & " A"") & """ & "/" & """ & GETPIVOTDATA(Statistik!A2,""" & strVergleich & " M"") & """ & "/" & """ & GETPIVOTDATA(Statistik!A2,""" & strVergleich & " Z"")"
.Font.Bold = True
i = i + 1
strVergleich = .Text
End If
Else
strVergleich = .Value
End If
End If
End With
Next i
End Sub