|
Hallo Zusammen,
habe paar Probleme mit dem unteren Code, diese äußern sich bei größenren Datenmengen darin:
- langsam (womit ich noch leben könnte)
- "Keine Rückmeldung" von Excel, d.h. es hängt sich auf
- in worst case, Excel wird geschlossen
Interessant ist aber, mit F8 läuft es manuell super durch und bei kleinen Datenmengen auch.
Was macht der Code
- Es Kopiert eine Zeile
- Es fügt die Kopie unterhalb der korpierten Zeile x Mal ein (gemäß der Anzahl in einem Feld)
Ideen?
Danke
Dim zeilenanzahl&
For i = startZeile To Wert
If Cells(i, 1) = "" Then Exit For ' führt aus der Schleife raus, wenn Ax Leer
zeilenanzahl = Cells(i, 9)
If (zeilenanzahl - 1) < 0 Then GoTo Weiter2 ' Sollte das Ergebnis kleiner 0 sein, dann springt man raus
Rows(i).EntireRow.Copy '
Range(Cells(i, 1).Offset(1, 0), Cells(i, 1).Offset(zeilenanzahl, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
Range(Cells(i + 1, 19), Cells(i + zeilenanzahl, 19)).ClearContents 'Bereinigung der Doppelten Hauptanlagen Bezeichnungen
Weiter2:
i = i + zeilenanzahl
Next i
|