Registriert seit: 10.11.2022
Version(en): 2021
danke für die Anpassung, soweit funktioniert es.
- es kopiert wahlos in irgend eine Zeile mal Zeile 4 mal Zeile 103422 mal in Zeile 88
- das mit dem Format wäre zweitranig, da kann ich das auch im Quell-Dokument so formatieren wie es im ziel sein soll, das übernimmt er.
- es wird doppelt eingefügt in jedem Tabellenblatt
Worksheets("Erfassung").Range("A4:I4").Copy: Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,C4").Copy: Worksheets("Kennzahl 1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,D4").Copy: Worksheets("Kennzahl 2").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,E4").Copy: Worksheets("Kennzahl 3").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,F4").Copy: Worksheets("Kennzahl 4").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,G4").Copy: Worksheets("Kennzahl 5").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,H4").Copy: Worksheets("Kennzahl 6").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4,B4,I4").Copy: Worksheets("Kennzahl 7").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Erfassung").Range("A4:I4").Copy: Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,C4").Copy: Worksheets("Kennzahl 1").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,D4").Copy: Worksheets("Kennzahl 2").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,E4").Copy: Worksheets("Kennzahl 3").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,F4").Copy: Worksheets("Kennzahl 4").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,G4").Copy: Worksheets("Kennzahl 5").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,H4").Copy: Worksheets("Kennzahl 6").Cells(Rows.Count, 1).End(xlUp)
Worksheets("Erfassung").Range("A4,B4,I4").Copy: Worksheets("Kennzahl 7").Cells(Rows.Count, 1).End(xlUp)