Gruppe
Allgemein
Bereich
Kopieren
Thema
Werte nur mit Zahlenformaten übertragen
Problem
Wie kann ich Werte einer Zelle in eine andere Zelle übernehmen, ohne die Hintergrund- und Schriftfarbe mit zu übertragen? Die Zahlenformate sollen erhalten bleiben.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Uebertragen()
Dim rngSource, rngTarget
Set rngSource = Application.InputBox( _
prompt:="Quellbereich auswählen:", Type:=8)
Set rngTarget = Application.InputBox( _
prompt:="Zielbereich auswählen:", Type:=8)
rngSource.Copy
rngTarget.PasteSpecial Paste:=xlValues
rngTarget.NumberFormat = rngSource.NumberFormat
rngSource.ClearContents
End Sub