Sub WerteKopieren()

    Dim aktZ As Range
    Dim copZ As Range
    Dim helpSheet As String
    Dim Worksheet As String


    aktZ = Range("A10")
    copZ = Sheets("Tabelle2").Range("C3")

    aktZ.Value = copZ.Value


End Sub