Werte aus versch. Zellen übertagen
Dietmar
möchte verschiedene Werte in einem Sheet in andere Zellen übertragen.
Habe hier mal nur exemplarisch ein paar Werte eingetragen; in Wirklichkeit sind es viel mehr.
Kann man nachfolgenden Code vereinfachen?
Vielen Dank vorab!
Viele Grüße
Dietmar aus Aachen
Sub Werte_uebertragen()
With Range("A30") 'Quelle
Range("B28").Value = .Value 'Ziel
With Range("C30")
Range("D28").Value = .Value
With Range("E30")
Range("F28").Value = .Value
With Range("G30")
Range("H28").Value = .Value
With Range("I30")
Range("J28").Value = .Value
End With
End With
End With
End With
End With
End Sub