Das Archiv des Excel-Forums

Messagebox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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
Bild


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



Bild


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


Bild


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

-


 Bild

Excel-Beispiele zum Thema " Messagebox"

Bei Rechtsklick auf Diagramm MessageBox-Aufruf download