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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen