Steuerelemente Code

[derHoepp]

Hallo,

ohne Formatierung benötigst du entweder die .Pastespecial()-Methode, oder du weist direkt der .Value-Eigenschaft des Zielbereichs den Inhalt der . Value-Eigenschaft des Quellbereichs zu. Du kannst in beiden Fällen dann nicht mehr den Destination-Parameter verwenden. Zusätzlich musst du beachten, dass die Alternativmethoden mit nicht-zusammenhängenden Quellbereichen nicht klar kommen.

Zur Ermittlung der ersten freien Zeile (oder der letzten beschriebenen) findest du im Forum vermutlich mehr als 500 Antworten (Stichwort .End(xlUp) ).

Viele Grüße
derHöpp
Vom Handy gesendet

[schauan]

Hallöchen,

eine Codezeile könnte dann so aussehen

Worksheets("Erfassung").Range("A4,B4,D4").Copy: Worksheets("Kennzahl 2")Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues


... und bitte keine Vollzitate wie in #9
derHeopp weiß schon, was er geschrieben hat

[XF7000_LC]

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)

[XF7000_LC]

Es geht so wie es soll, klappt alles

ich hatte noch einen weiteren code im dokument versehentlich im falschen blatt mal erstellt.

ich danke euch für eure Hilfe