Vba: so fügen sie werte ein und behalten die formatierung bei

Sie können die folgende Syntax in VBA verwenden, um einen Zellbereich zu kopieren und die Werte und Quellformatierung an einer neuen Position einzufügen:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Dieses spezielle Makro kopiert die Zellen im Bereich A1:C11 und fügt die Zellwerte mit ihrer Formatierung in den Bereich ab Zelle A13 ein.

Hinweis : Die Zeile „Application.CutCopyMode = False“ gibt an, dass der Ausschneide- und Kopiermodus nach der Ausführung des Makros deaktiviert werden soll.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Werte einfügen und mit VBA weiter formatieren

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Nehmen wir an, wir möchten alle Werte im Bereich A1:C11 kopieren und an einer neuen Stelle einfügen und die Formatierung beibehalten.

Dazu können wir das folgende Makro erstellen:

 Sub PasteWithFormatting()

Range(" A1:C11 ").Copy
Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die ursprünglichen Zellwerte mit ihrer Formatierung in den Zellbereich ab Zelle A13 eingefügt wurden.

Hinweis : Die vollständige Dokumentation für die VBA-Methode PasteSpecial finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So fügen Sie Werte nur ohne Formatierung ein
VBA: So kopieren Sie sichtbare Linien in ein anderes Blatt
VBA: Zeilen basierend auf Kriterien in ein anderes Blatt kopieren