Wert aus Sheet("1") in Sheet("2") setzen
08.03.2004 17:11:46
Markus
ich versuche bei einer Veränderung der Zelle A1 im Sheet ("1") den Wert der Zelle A1 im Sheet("2") auf "0.7" zu setzen. Die Meldung aus der Msgbox erhalte ich, sonst passiert nichts. Ich brauche einen Rat.
Danke und Gruß Markus
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("A1").Address Then
MsgBox "Wert in Zelle eintragen!"
Worksheets("2").Range("A1").Value = "0,7"
End If
End Sub
Anzeige