MsgBox
18.01.2005 14:01:54
steffen
Ich möchte mit Hilfe einer MsgBox einen Wert in eine andere Zelle kopieren, dabei soll die Msgbox mir die endscheidung zwischen Ja und Nein geben.
Ich habe es schon mal versucht aber der Wert wird immer kopiert bei ja oder nein.
Hier mein Versuch:
Sub Originalwerte()
Dim Antwort
MsgBox " Möchte Sie mit den Orginalwerten weiter arbeiten ?" _
, vbYesNo, "Originalwerte"
' MsgBox - text und Schaltfläche zugewiesen
If Antwort = yes Then
Range("C21").Value = 3.22
Range("C21").Copy Range("J21")
End If
End Sub
Danke im Vorraus schon mal
Mit freundlichen Grüßen
Steffen