Messagebox

• Messagebox von MarcN vom 22.09.2003 14:16:33
  • AW: Messagebox - von Willie am 22.09.2003 14:26:48
  • AW: Messagebox - von BerndE am 22.09.2003 14:28:53
  • Besten Dank an alle! - von MarcN am 22.09.2003 14:56:53

Betrifft: Messagebox
von: MarcN
Geschrieben am: 22.09.2003 14:16:33
Hallo Zusammen

ich habe mal wieder eine Frage:
ich habe eine Messagebox, die einen Ok und einen Cancel Button hat. ich möchte, das wenn ich den Cancel Button drücke, dass das Makro abbricht, bei ok soll das nachfolgende makro ausgeführt werden.

Sheets(CStr(Sheets("Berechnung_Zeiten").Cells(2, 1))).Cells(Sheets("Berechnung_Zeiten").Cells(2, 2) + 15, 4) = _
Round(Sheets("Berechnung_Zeiten").Cells(2, 4), 2)

Besten Dank schon im Voraus

marc

Betrifft: AW: Messagebox
von: Willie
Geschrieben am: 22.09.2003 14:26:48
Nicht getestet aber solle so funktionieren!
Willie

Sub test()
antwort = MsgBox("Test", vbOKCancel)
If antwort = vbOK Then
Sheets(CStr(Sheets("Berechnung_Zeiten").Cells(2, 1))).Cells(Sheets("Berechnung_Zeiten").Cells(2, 2) + 15, 4) = Round(Sheets("Berechnung_Zeiten").Cells(2, 4), 2)
Else
Exit Sub
End If
End Sub

Betrifft: AW: Messagebox
von: BerndE
Geschrieben am: 22.09.2003 14:28:53
Hi Marc,

schau mal in der Online-Hilfe bei 'MsgBox-Funktion'.

Dort kannst Du nachlesen, dass der Rückgabewert für 'Cancel' = 2 ist.

Gruß
Bernd

www.bernds.page.de.vu

Betrifft: Besten Dank an alle!
von: MarcN
Geschrieben am: 22.09.2003 14:56:53
-

Excel-Beispiele zum Thema " Messagebox"
Bei Rechtsklick auf Diagramm MessageBox-Aufruf