Hallo Helferleins,
habe folgendes Problem:
Ich öffne eine Exceldatei, und richte Spalten und Zeilen aus.
Teilweise füge ich Zeilen ein. Makro funktioniert so weit so gut.
Zu beginn ermittle ich die Anzahl der Zeilen mit:
Zeilen_Datei1 = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Daraus ergibt sich eine For next schleife:
For zeile = 7 To Zeilen_Datei1
'For reihe = 1 To 3
'If reihe = 1 Then spalte = "A" Else If reihe = 2 Then spalte = "B" Else If reihe = 3 Then spalte = "C"
Range("C" & zeile).Select
If Left(ActiveCell(), 4) = "3 x " Or Left(ActiveCell(), 4) = "8mm " Then
zeilenzähler = ActiveCell.Row
Feederb = Left(ActiveCell(), 4)
End If
If zeilenzähler > 0 And ActiveCell() = "2" Or ActiveCell() = "3" Then
If ActiveCell.Row - 2 Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromLeftOrAbove
Zeilen_Datei1 = Zeilen_Datei1 + 1
Else
zeilenzähler = ActiveCell.Row
End If
If ActiveCell() = "3" Or Feederb = "8mm " And ActiveCell() = "2" Then zeilenzähler = 0
End If
If ActiveCell() = "2" Or ActiveCell() = "3" Then
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 'Zeile nach rechts schieben
End If
'Next reihe
Next zeile
Erase Feeder ' Array löschen
Das Problem ist nun, das ich beim einfügen einer Zeile den Wert der Variablen Zeilen_Datei1 um 1 hochzähle.
Allerdings geht die Schleife nur bis zum Wert der beim Start der Schleife definiert war.
Hoffe alles ist verständlich.
Gruß Jürgen