Gruppe
Allgemein
Bereich
Kopieren
Thema
Werte ohne Zwischenspeicher übertragen
Problem
Wie kann ich Werte von einem zum anderen Bereich übertragen, ohne die Zwischenablage nutzen zu müssen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Kopieren()
With Range("A1:B2")
Range("F1:G2").Value = .Value
Range("F1:G2").NumberFormat = .NumberFormat
End With
End Sub