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