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

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige