VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte nur mit Zahlenformaten übertragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren