Messagebox

Forumthread: Messagebox
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Messagebox

Messagebox

22.09.2003 16:16:33

MarcN

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Messagebox

22.09.2003 16:26:48

Willie
AW: Messagebox

22.09.2003 16:28:53

BerndE
Besten Dank an alle!

22.09.2003 16:56:53

MarcN

AW: Messagebox

22.09.2003 16:26:48

Willie

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

AW: Messagebox

22.09.2003 16:28:53

BerndE

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

Besten Dank an alle!

22.09.2003 16:56:53

MarcN

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!