ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
Dim varLastrow1() As Long, j As Long
Dim varLastRow As Variant
strWksName = ThisWorkbook.Name
Loletzte1 = Workbooks(strWksName).Sheets(1).Cells.Find(What:="*", after:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
varLastRow = Workbooks(strWksName).Sheets(1).Range(Cells(1, 8), Cells(Loletzte1, 8))
ReDim varLastrow1(0 To UBound(varLastRow))
With Workbooks(strWksName).Sheets(1)
For j = 11 To UBound(varLastrow1)'hier wird der Wert nicht erhöht?!
'div Abfragen
.Cells(j, 2).EntireRow.Insert
'Redimensionierung aufgrund der eingefügten Zeile
ReDim varLastrow1(0 To UBound(varLastrow1) + 1)
next j
End With
Für Tipps währe ich euch Dankbar
viele Grüße
Steffen