Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte nur mit Zahlenformaten übertragen

Gruppe

Kopieren

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