set myCell = range(activecell) klappt nicht
14.02.2018 13:45:14
Axel
wahrscheinlich was ganz einfaches...
Bei myTarC wird keine Zellenadresse eingelesen, sondern der Zelleninhalt.
Bei mySourC klappt es. Warum?
Danke für Hilfen!
Gruß,
Axel
Sub Test()
Dim myTarC As Range, mySourC As Range, mySourVal As String
Sheets(1).Select
Set myTarC = Range(ActiveCell.Address)
Sheets(2).Select
Set mySourC = Range("C3")
mySourC.Select
mySourVal = ActiveCell.Offset(0, -1).Value
Sheets(1).Activate
Range(myTarC).Select
ActiveCell.Value = myTarC
End Sub