Hilfe, meine RangeSchleife geht ins Unendliche
Holger
ich komme einfach nicht weiter.
Ich habe in einer Tabelle (1) für Länder Werte stehen von links nach rechts.
Daraus muss ich in einer anderen Tabelle (2) die Werte pro Land in eine
einzelne Zeile kopieren.
Tabelle1:
Periode1 Periode2 Periode3
A
B
C
Tabelle2
A Periode1
A Periode2
A Periode3
B Periode1
B Periode2
etc
etc
Dazu habe ich für Tabelle 2 einen Rangebereich definiert von A bis C.
Da ich nun immer wieder eine Zeile einfüge, geht die Schleife
ins Endlose und das Ergebnis ist:
A Periode1
A Periode2
A Periode3
A Periode1
A Periode2
A Periode3
A Periode1
A Periode2
A Periode3
Trotz Range Resize klappt das nicht, kann mir bitte jemand auf die Sprünge helfen?
Sub KlapptNicht
For Each rngCell In rngWsSheet
For i = int1stCol To intLastCol
If i > 2 Then
rngCell.Offset(1, 0).EntireRow.Insert
wsSheet.Cells(rngCell.Row + 1, 2).Value = wsDataWeek.Cells(lng1stCell - 2, i). _
Value
Set rngWsSheet = rngWsSheet.Resize(rngWsSheet.Rows.Count)
Else
wsSheet.Cells(rngCell.Row, 2).Value = wsDataWeek.Cells(lng1stCell - 2, i).Value
End If
Next i
Next rngCell
End Sub