Sub kopieren_mit_abstand()
Dim startzelle As Range
Dim zielzelle As Range
Dim zelle As Range
Sheets("tabelle1").Activate
For Each zelle In Selection
zelle.Copy
Sheets("tabelle2").Paste Destination:=Sheets("tabelle2").Range(zelle.Address)
Next
End Sub
Sub test()
Dim i As Integer
For i = 1 To 5 Step 2
Cells(2, i).Value = Cells(1, i).Value
Next i
End Sub
Um eine Mehrfachauswahl in Excel zu kopieren, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
ALT + F11.Einfügen > Modul) und kopiere den folgenden Code hinein:Sub kopieren_mit_abstand()
Dim startzelle As Range
Dim zielzelle As Range
Dim zelle As Range
Sheets("tabelle1").Activate
For Each zelle In Selection
zelle.Copy
Sheets("tabelle2").Paste Destination:=Sheets("tabelle2").Range(zelle.Address)
Next
End SubALT + F8), wähle kopieren_mit_abstand und klicke auf Ausführen.Jetzt sollten die Zellen mit dem korrekten Abstand in Tabelle2 eingefügt sein. Wenn du die Zellen innerhalb derselben Tabelle einfügen möchtest, kannst du den Zielbereich entsprechend anpassen.
Fehler: "Diese Aktion funktioniert nicht bei einer Mehrfachauswahl."
Fehler: "Diese Funktion funktioniert nicht bei einer Mehrfachauswahl."
Wenn du kein VBA verwenden möchtest, kannst du auch die Funktion OFFSET in Excel nutzen. Hier ist ein Beispiel:
Sub test()
Dim i As Integer
For i = 1 To 5 Step 2
Cells(2, i).Value = Cells(1, i).Value
Next i
End SubDieses Makro kopiert die Werte von Zeile 1 in die entsprechenden Zellen in Zeile 2, wobei nur die Spalten A, C, und E berücksichtigt werden.
Angenommen, du möchtest die Zellen A1, C1 und E1 kopieren und in A2, C2 und E2 einfügen. Mit dem oben genannten Makro kannst du dies ganz einfach tun. Wenn du mehrere Zellen in verschiedenen Zeilen kopieren möchtest, kannst du die Schleife im Makro entsprechend anpassen.
Application.ScreenUpdating-Eigenschaft, um die Ausführungsgeschwindigkeit zu verbessern, indem du das Bildschirm-Update während der Ausführung des Makros deaktivierst.1. Kann ich das Makro anpassen, um mehr als drei Zellen zu kopieren?
Ja, du kannst die For Each-Schleife anpassen, um beliebig viele Zellen zu kopieren.
2. Was, wenn ich die Zellen nicht in eine andere Tabelle, sondern in dieselbe Tabelle einfügen möchte?
Du kannst den Zielbereich im Makro entsprechend anpassen, um die Zellen innerhalb der gleichen Tabelle zu kopieren.
3. Welche Excel-Version benötige ich für die Verwendung von VBA?
Die oben genannten Methoden funktionieren in den meisten modernen Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2013, 2016 und später.