Sheets("Aktuell").Rows(2).Copy
Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues, _
operation:=xlNone, skipblanks:=False, Transpose:=False
Um eine bestimmte Zeile aus einem Tabellenblatt in ein anderes zu kopieren, kannst Du den folgenden VBA-Code verwenden. Dieser Code kopiert die Werte der Zeile 2 aus dem Blatt "Aktuell" in die nächste freie Zeile des Blattes "Archiv".
Sheets("Aktuell").Rows(2).Copy
Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues, _
operation:=xlNone, skipblanks:=False, Transpose:=FalseALT + F11, um den VBA-Editor zu öffnen.Einfügen > Modul).Problem: Die Verknüpfungen werden kopiert, nicht die Werte.
PasteSpecial-Methode verwendest, um nur die Werte zu kopieren, wie im obigen Beispiel gezeigt.Problem: Die Zeile wird nicht in die nächste freie Zeile eingefügt.
Es gibt auch andere Möglichkeiten, um Zeilen in ein anderes Tabellenblatt zu kopieren:
Manuelles Kopieren:
Excel-Funktionen:
=INDIREKT()-Funktion, um Daten dynamisch aus einem anderen Blatt zu ziehen.Dim i As Integer
For i = 1 To Sheets("Aktuell").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Aktuell").Cells(i, 1).Value = "Bedingung" Then
Sheets("Aktuell").Rows(i).Copy
Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
End If
Next i1. Frage Wie kann ich mehrere Zeilen gleichzeitig kopieren?
Antwort
Du kannst eine Schleife oder einen Bereich angeben, den Du kopieren möchtest, z.B. Sheets("Aktuell").Rows("2:5").Copy.
2. Frage Gibt es eine Möglichkeit, nur bestimmte Zellen in der Zeile zu kopieren?
Antwort
Ja, Du kannst die Zellen gezielt auswählen, z.B. Sheets("Aktuell").Range("A2:C2").Copy und dann in das Zielblatt einfügen.