Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt

Forumthread: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt

MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 16:49:51
Dieter(Drummer)
Guten Tag an alle,

dieser Code fügt aktuelles Datum in markierte Zelle und funktioniert: 
Sub Datum()

ActiveCell.Select

SendKeys "^{.}", True

End Sub


Was ist an meinem Code falsch, der mit MsgBox Ja/Nein, bei Ja(OK) des aktuelle Datum einfügen soll? Bei OK kommt kein Datum in Zelle.
Dieser Code: 
Sub Test()

MsgBox "Zelle für Datum markiert?", vbOKCancel

    If vbCancel = True Then

      Exit Sub

    Else

      ActiveCell.Select

      SendKeys "^{.}", True

    End If

End Sub


Finde den Fehler nicht und es kommt auch kein Fehlerhinweis:

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 16:56:42
ralf_b
du liest keinen Rückgabewert von der Funktion MsgBox aus. if vbCancel = msgbox(.......) then
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:06:20
Dieter(Drummer)
Danke ralf_b für Rückmeldung.

Habe es jetzt so gemacht und es geht dennoch nicht. Ich denke auch, dass ich da einfach auf dem Schlauch stehe, mit meiner Logik.
Evtl. kannst kannst Du mir noch weiter helfen.
Code: 
Sub Test()

MsgBox "Zelle für Datum markiert?", vbOKCancel

    If vbCancel = True Then

      Exit Sub

    Else

     If vbOK = True Then

      ActiveCell.Select

      SendKeys "^{.}", True

    End If

    End If

End Sub

Gruß, Dieter(Drummer)
Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:14:18
JoWE 
Sub Test()

dim myMBoxResult As Integer

myMBoxResult=MsgBox "Zelle für Datum markiert?", vbOKCancel

 If myMBoxResult = 2 then

      Exit Sub

    Else

      ActiveCell.Select

      SendKeys "^{.}", True

      'besser so: ActiveCell= Date 

    End If

End Sub

Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:36:19
Dieter(Drummer)
Hallo JoWE,

danke für Rückmeldung. Dein Code geht nicht. Diese Zeile wird rot gekennzeichnet, mit Fehlerhinweis "Feler beim kompilieren. Syntaxfehler": 
myMBoxResult=MsgBox "Zelle für Datum markiert?", vbOKCancel


Gruß, Dieter(Drummer)
Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 18:09:14
daniel
Hi
du musst hier Klammern um die Parameter setzen: 

myMBoxResult = MsgBox("Zelle für Datum markiert?", vbOKCancel)


nur wenn die Funktion oder der Befehl das einzige in der Programmzeile ist, muss man die Klammern weglassen.
sobald noch irgendwas dazu kommt, braucht man die Klammern.

dh. nur der Msgboxaufruf allein: 
MsgBox "Zelle für Datum markiert?", vbOKCancel

sobald was dabei steht, mit Klammern.
egal ob ein Call 
Call Msgbox("Hallo Welt")

oder wie hier die Variabelnzuweisung des Rückgabewertes

Gruß Daniel
Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 18:23:31
JoWE
Ja, Daniel hat natürlich absolut recht. Ich war hier nicht aufmerksam genug, sorry
Gruß Jochen
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
30.05.2024 09:43:52
Dieter(Drummer)
Danke Daniel,

für deine Erklärung und Rückmeldung, die mir sicher in Folgefällen weiter helfen kann.

Gruß, Dieter(Drummer)
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:15:04
ralf_b
zu Info vbOK und vbCancel sind feste Werte. die ändern ihren Werte also nicht. Siehe Link
https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/msgbox-constants#msgbox-return-values
Deshalb vergleicht man den Rückgabewert einer Funktion mit diesen Konstanten. Der Vergleich der Konstante mit dem Rückgabewert der Funktion ist dann entweder true oder false.
Anzeige
AW: Danke für Info, ralf_b
29.05.2024 17:26:05
Dieter(Drummer)
Danke ralf_b für Info.

Gruß, Dieter(Drummer)
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:00:12
daniel
Hi
bei mir wird das Datum eingefügt.
SendKeys ist halt immer problematisch.
hier wäre das Problem, dass du damit in die Bearbeitungszeile gehst und damit weitere Makroaktivität verhinderst.
es sollte zumindest noch ein ENTER hinterher geschickt werden, um die Bearbeitungszeile wieder zu verlassen.
SendKeys kann man auch nicht im Einzstepmodus testen, weil dann das SendKeys auf den VBA-Editor wirkt und nicht auf das Excelblatt
man sollte SendKeys daher nur dann verwenden, wenn es wirklich nicht anders geht.
hier könntest du das heutige Datum auch einfach so einfügen: 
ActiveCell.Value = Date


Gruß Daniel


Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:12:31
Dieter(Drummer)
Danke Daniel,

für deinen Hinweis und dem Code, der funktioniert.

Wie ich das jetzt mit MsgBox ja/nein machen kann, weiss ich nicht.
Evtl. kannst du da noch helfen.

Gruß, Dieter(Drummer)

AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:22:34
Kuwer
Hallo Dieter, 

Sub Test()

  If MsgBox("Zelle für Datum markiert?", vbOKCancel) = vbOK Then

    ActiveCell.Value = Date

  End If

End Sub
Gruß, Uwe
Anzeige
AW: MsgBox Ok/Cancel. Bei OK wird Code nicht ausgeführt
29.05.2024 17:27:11
daniel
Hi
mit IF 
if Msgbox("Datum einfügen", vbOkCancel) = vbOk then

    activecell.Value = Date

end if


oder mit Select Case 
Select Case Msgbox("Datum einfügen", vbOkCancel)

   Case vbOK

       activeCell.Value = Date

    Case vbCancel

       exit Sub

     Case else

end Select
Anzeige
AW: Danke an alle, die mir geholfen haben. owT
29.05.2024 17:37:58
Dieter(Drummer)
;

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Anzeige
Set objWorkbook = Application.Workbooks.Open(Activ
Hugo

Hallo Zusammen
Nachfolgender Code läuft auf Excel 2000 und 2007
Im 2000 egal ob ich die Datei lokal oder über ein Netzlaufwerk gestartet wird.
Im 2007 nur wenn ich die Datei lokal starte.
Wenn ich im 20007 die Datei über ein Netz-LW starte entsteht ein Error bei
Set objWor...
31.10.2010 21:53:57
Thread-ID: 1184589
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
aus WorkBook1 ein WorkBook2 speichern ?
rieckmann

Hallo,
gibt eine Möglichkeit aus WorkBook1 per VBA ein geöffnetes WorkBook2 abzuspeichern und gleichzeitig zu beenden, ohne das WorkBook1 beendet wird ?
Gruß
Fred
08.04.2012 15:43:06
Thread-ID: 1258373
13 Beiträge
range.copy workbook - workbook
robert

Hallo liebe Community,
ich möchte Zellinhalt aus einem workbook in ein anderes kopieren.
Dabei wird zunächst die Hauptdatei geöffnet.
Dann soll bevor das userform initialisiert wird eine 2. Exceldatei geöffnet werden aus der dann rauskopiert werden soll; dannach soll diese wieder ge...
26.11.2012 08:29:16
Thread-ID: 1288028
4 Beiträge
Nach Workbook.close zu Aktivem Workbook springen
TOM

Guten Morgen zusammen
Stehe auf dem Schlauch und wäre um ein Tipp für folgendes Problem dankbar:
Ich habe zwei Workbooks offen. Per VBA schliesse ich das Workbook1 und möchte dann
ins Workbook2 erstes Blatt springen.
Besten Dank und Gruss
TOM
11.06.2013 11:27:09
Thread-ID: 1317071
17 Beiträge
Wert aus Combobox von Workbook zu Workbook
Workbook

Erstmal Hallo an die Excel-Profis :)
mein Problem ist folgendes und ich bin schon durch dutzende Foren gescrollt:
Ich habe zwei verscheidene Excel Workbooks. Im Ersten stehen Informationen drin die ich in das Zweite übertrage mit Macros. Das klappt auch wunderbar. Jetzt befindet sich im...
16.07.2015 08:25:41
Thread-ID: 1436649
3 Beiträge
Wert aus Combobox von Workbook zu Workbook
Workbook

Erstmal Hallo an die Excel-Profis :)
mein Problem ist folgendes und ich bin schon durch dutzende Foren gescrollt:
Ich habe zwei verscheidene Excel Workbooks. Im Ersten stehen Informationen drin die ich in das Zweite übertrage mit Macros. Das klappt auch wunderbar. Jetzt befindet sich im...
16.07.2015 08:26:45
Thread-ID: 1436650
2 Beiträge
VBA: Mehrere Doks in einem neuen Dok vergleichen..
Andreas

Ein freundliches "Hallo" in die Runde und vielen Dank im Voraus an alle die sich diesen Post durchlesen und Zeit für mich opfern.. :)
Ich suche eine VBA-Lösung für den folgenden Sachverhalt:
Durch meine Arbeit generiere ich in regelmässigen Zeitabständen Prüfberichte in Excel.
Dies...
13.11.2015 09:35:48
Thread-ID: 1458091
3 Beiträge
Jede zweite Zeile aus Wookbook A in ein anderes WB
linda

Hallo Leute!
Ich habe eine Frage, und hoffe ihr könnt mir helfen.
Und zwar habe ich zwei Workbooks A (.csv Datei mit einem Sheet "Referenz") und B (normale Excel mit mehreren Sheets). In Workbook B wird das Makro quasi gestartet werden, da mit der Excel-Tabelle gearbeitet wird.
Ich...
20.09.2016 10:59:42
Thread-ID: 1515303
6 Beiträge
Anzeige
Mit variablen Wokbook.Name zw.Dateien wechseln
Schmidti

Hallo da draussen,
über
Dim Dateiname
Dateiname = Application.ActiveWorkbook.name
erfrage ich mir den Dateinamen und suche mir dann über Application.Dialogs(xlsDialogOpen).Show eine Datei aus, aus der ich Werte mittels Inputbox (Bereich) auslese. Nun soll das Makro automatisch in d...
02.09.2002 15:42:43
Thread-ID: 155444
3 Beiträge
VLookUp Workbook übergreifend
Sergej

Hallo liebe Excel Freunde,
bin gerade am verzweifeln.
Ich möchte mit einem SVerweis(VLookUp) etwas finden.
Ich gebe z.B. "Apfel" in Textbox1 ein. Danach soll das Wort "Apfel" in einem anderen
Workbook in Spalte A gesucht werden und der Inhalt der 2. Spalte(also rechts neben Apfe...
27.01.2017 15:21:13
Thread-ID: 1537853
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige