|
Was soll denn das hier?
wksInput.Activate
wksInput.Range("=L7:AQ7").Select
Selection.Copy
Messbericht.Activate
'MySheet.Activate
Worksheets(i).Activate
Worksheets(i).Range("=A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Wirf das Select, Activate und Selection raus. Sowas ist nicht nur Fehlerquelle Nr1, sondern eine Geschwindigkeitsbremse als auch einfach nur schwer zu deuten.
Code wirkt zudem redundant geschrieben (Bsp: Set Messbericht = ActiveWorkbook, weiter unten dann wieder ActiveWorkbook statt Messbericht). Sowas läuft zwangsläufig irgendwann schief (idR. wenn man etwas geändert hat).
Zu deinem Problem:
Wenn du Daten in Zeile 1 eingefügt hast, musst du selbstredend für den nächsten Durchgang diese Zeile um die Anzahl der eingefügten Daten erhöhen. Du brauchst also eine Variable die den Zeileindex beinhaltet, ab dem Daten eingefügt werden soll.
Gruß
|