Nur Werte Kopieren und Einfügen
06.11.2025 15:26:08
20251002
ich will in meinem gesamten Excel-Sheet, dass beim Kopieren und Einfügen nur die Werte kopiert werden und nicht die Formeln und Formate.
Dass keine Formeln sondern nur die Werte kopiert werden sollen, kann mein Ansatz schon. Aber irgendwie funktioniert das mit den Formaten nicht und ich verstehe nicht warum. Der Code sollte das eigentlich können oder habe ich einen Denkfehler?
Vielen Dank im Voraus für die Hilfe!!!
Private Sub Workbook_Open()
Application.OnKey "^c", "NurWerteKopieren"
Application.OnKey "^v", "NurWerteEinfuegen"
End Sub
Private Sub Workbook_BeforClose(Cancel As Boolean)
Application.OnKey "^c"
Application.OnKey "^v"
End Sub
Sub NurWerteKopieren()
On Error Resume Next
'Kopieren von Zellen als reine Werte (ohne Formeln und Formatierung)
Dim rngSelection As Range
' Aktuelle Auswahl erhalten
Set rngSelection = Selection
' Prüfen, ob Auswahl gültig ist
If rngSelection Is Nothing Then
MsgBox "Keine gültige Auswahl zum Kopieren."
Exit Sub
End If
' Inhalte der Auswahl als reine Werte speichern
Dim tempData As Variant
tempData = rngSelection.Value
' Entfernen der Formatierung, indem der ursprüngliche Bereich komplett gelöscht wird
rngSelection.Interior.ColorIndex = xlNone ' Entfernt Zellenhintergrund (falls vorhanden)
rngSelection.Borders.LineStyle = xlNone ' Entfernt alle Rahmen (falls vorhanden)
rgSelection.Clear
Application.CutCopyMode = False
rngSelection = tempData
End Sub
Sub NurWerteEinfuegen()
On Error Resume Next
' Aktuell ausgewählter Bereich
Dim rngTarget As Range
Set rngTarget = Selection
Dim originalNumberFormat As Variant
originalNumberFormat = rngTarget.FormatConditions
' Werte in den ausgewählten Bereich einfügen
rngTarget.PasteSpecial Paste:=xlPasteValues
rngTarget.FormatConditions = originalNumberFormat
Application.CutCopyMode = False
End Sub
Anzeige