Was wenn ein definierter Rangebereich sich ändert?
Holger
mein Makro wächst und gedeiht, jedoch stosse ich hier auf ein Problem.
Ich definiere einen Rangebereich, diesen durchschleife ich.
Nun werden manchmal neue Zeilen eingefügt, der Rangebereich würde sich dadurch
ändern, wird aber innerhalb der Schleife natürliich nicht upgedatet.
Das bedeutet, durch das Einfügen von Zeilen bin ich irgendwann am Ende des
ursprünglichen Rangebereiches obwohl dieser tatsächlich ja größer geworden ist.
Wie kann man das denn nur lösen?
Sub Wärezuschön gewesen
Cells(Rows.Count, 1).End(xlUp).Select
intLastTranslation = ActiveCell.Row
Set rngTranslationBereich = cpwTranslationWS.Range("A20:A" & intLastTranslation)
For Each rngTranslationCell In rngTranslationBereich
strTemp = rngTranslationCell.Offset(0, 3).Value
intZkomma = InStr(strTemp, strDeli)
If intZkomma 0 Then
intZkomma = 0
intTemp = Split(strTemp, strDeli)
For lngZeile = 0 To UBound(intTemp)
rngTranslationCell.Offset(1, 0).EntireRow.Insert
Range(rngTranslationCell, rngTranslationCell.Offset(0, 2)).Copy _
rngTranslationCell.Offset(1, 0)
rngTranslationCell.Offset(1, 3).Value = intTemp(lngZeile)
intZkomma = intZkomma + 1
Next lngZeile
intZkomma = 0
rngTranslationCell.EntireRow.Delete
End If
Next rngTranslationCell
End Sub