Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Messagebox

Forumthread: Messagebox

Messagebox
22.09.2003 14: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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Messagebox
22.09.2003 14: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

Anzeige
AW: Messagebox
22.09.2003 14: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 14:56:53
MarcN
-
;

Beliebteste Forumthreads (12 Monate)

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