Folgende Anweisungen habe ich geschrieben:
Sub Makro5()
Dim Ziel
Ziel = Range("E1")
Range("B1").Select
Selection.Copy
Range("Ziel").Select
ActiveSheet.Paste
End Sub
Sub Makro5()
Dim Ziel
Ziel = Range("E1")
Range("B1").Select
Selection.Copy
Range("Ziel").Select
ActiveSheet.Paste
End Sub
Sub Makro5()
Range("B1").Copy Destination:=Range(Range("E1"))
End Sub