Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle1("A1").Value = Tabelle1("F1").Value
End Sub
Wer könnte helfen?
Gruß
klaro
Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle1.Range("A1").Value = Tabelle1.Range("F1").Value
End Sub
Dabei ist Tabelle1 der CODEname des Blattes.
Grüße Boris
Private Sub Worksheet_Change(ByVal Target As Range)
if Target.address= "$F$1" then
Range("A1").Value = Target.Value
End if
End Sub
Gruß Gerd