Kopieren und Einfügen nicht zusammenhängender Zellbereiche (Microsoft Excel)
Szilvia kann einen Auswahlsatz von Zellen erstellen, so dass sie einen nicht zusammenhängenden Bereich von Zellen ausgewählt hat. Wenn sie versucht, diese Zellen mit Strg + C zu kopieren, teilt Excel ihr mit, dass „diese Aktion bei Mehrfachauswahl nicht funktioniert“. Szilvia fragt sich, ob es eine Möglichkeit gibt, einen nicht zusammenhängenden Bereich zu kopieren und diesen Bereich dann einzufügen, sodass sich die Zellen an derselben relativen Position wie in der ursprünglichen Auswahl befinden.
Anscheinend ist diese Einschränkung, dass Sie nur zusammenhängende Bereiche kopieren und einfügen dürfen, die Funktionsweise von Excel. Die einzige Möglichkeit, einen nicht zusammenhängenden Bereich zu kopieren und einzufügen, besteht darin, ein Makro zu verwenden, das jede Zelle in einer Auswahl durchläuft und relativ zu einer Zieladresse einfügt. Das Folgende ist ein Beispiel:
Sub CopyPasteCells() Dim sTemp As String Dim sTarget As String Dim c As Range Dim pasteRng As Range sTemp = InputBox("Target cell?") sTarget = Trim(sTemp) If sTarget > "" Then Set pasteRng = ActiveSheet.Range(sTarget) For Each c In Selection c.Copy pasteRng.Range(c.Address).PasteSpecial xlPasteValues Next End If Application.CutCopyMode = False End Sub
Um das Makro zu verwenden, erstellen Sie einfach Ihren Auswahlsatz von Zellen. Führen Sie dann das Makro aus und geben Sie die Zielzelle für das Einfügen an. Die Zellen werden relativ zu dieser Zielzelle im aktuellen Arbeitsblatt eingefügt.
Sie sollten beachten, dass das Makro nur sehr wenige Fehlerprüfungen durchführt. Zum Beispiel könnten Sie eine völlig falsche Zielzellenadresse eingeben, und das Makro würde versuchen, Ihre Anfrage zu berücksichtigen. (Wenn die Zieladresse zu falsch ist, wird eine Fehlermeldung angezeigt.)
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (5228) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.