Gruppe
Allgemein
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.
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