VBA: Merkwürdiger Fehler beim kopieren
05.01.2020 20:25:51
Albert
schreibe gerade an einem Code mit Schleife. Dieser funktioniert zu geschätzen 95 Prozent fehlerfrei, aber beim ersten durchlauf passiert es gelegentlich, dass das Makro den Datensatz in die erste Spalte kopiert, was ich mir wirklich nicht erklären kann. ich mein er kopiert "Range(Cells(f + m, 4), Cells(f + m, 22)).Copy" und setzt es in Cells(j + 1, 1).Activate ein. Obwohl im Code Cells(j + 1, 4).Activate steht.
Bei jeden weiteren Durchlauf macht er wieder fehlerfrei. Zudem entsteht der Fehler nur gelegentlich...
Hoffe ihr könnt mir helfen.
Gruß Albert
Hier ein Auszug aus dem Code
Sub xxx ()
m = 0 'Index, wieviele Zeilen hinzugefügt worden sind
For f = k - t To k + i - t 'hinzugefügte Elemente überprüfen, ob noch nicht _
vorhanden bzw. Stückzahl größer ist
If Cells(f + m, 29) 1 Then 'wenn noch nicht voranden
Cells(f + m, 25) = Cells(f + m, 6) 'Anzahl als Backup erstellen
Cells(f + m, 6) = Cells(f + m, 6) * p 'mit INdex multiplizieren
Cells(j + 1, 2).Activate 'Zeile hinzufügen
ActiveCell.EntireRow.Insert
m = m + 1 'Index erhöhen
Range(Cells(f + m, 4), Cells(f + m, 22)).Copy 'Zeile kopieren und einfügen (bis _
SpalteV)
Cells(j + 1, 4).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
MsgBox "stop2"
Range(Cells(f + m, 24), Cells(f + m, 25)).Copy 'Zeile kopieren und einfügen ( _
SpalteX+Y)
Cells(j + 1, 24).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(j + 1, 16) = Date 'Datum Setzen
End If
Next f
End Sub