Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei msgbox mit Bedinung

Forumthread: Hilfe bei msgbox mit Bedinung

Hilfe bei msgbox mit Bedinung
01.08.2019 16:35:08
Simone
Hallo Liebe Helfer,
vielleicht könnte mir jemand bei meinem Problem weiterhelfen. Ich komm einfach nicht weiter :(
In meiner Beispiel Datei sollte am Ende folgendes passieren:
Wenn man in eine Zelle in Spalte "I" klickt, und dort der Wert 1 ist, sollte eine Meldung kommen: An diesem Tag ist kein TB nötig! Das funktioniert auch.
Doch nun sollte noch eine Meldung kommen wenn der Wert 2 ist mit dem Text
„Für den Tag (Tag laut Spalte B) hast du bereits einen TB erstellt!)
Und, bei Wert 0 sollte folgende Meldung kommen:
Erstelle Tagesbericht für Tag (Datum laut Spalte B) mit der Option JA oder NEIN zu klicken.
Ich wäre wirklich sehr dankbar wenn mich jemand unterstützen könnte.
Viele Grüße, Simone
https://www.herber.de/bbs/user/131213.xlsm
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei msgbox mit Bedinung
01.08.2019 17:00:23
{Boris}
Hi Simone,
dafür eigenet sich Select Case:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
Select Case Target.Value
Case 0
If MsgBox("Tagesbericht muss noch erstellt werden. Willst Du das jetzt erledigen?",  _
vbYesNo, "Tagesbericht") = vbNo Then
MsgBox "OK - aber mach es bitte spaeter noch", vbOKOnly, "Tu es bitte..."
Else
MsgBox "Sehr gut, dass Du es jetzt erledigst!", vbOKOnly, "Sehr schoen!"
End If
Case 1
MsgBox "An diesem Tag ist kein TB noetig!", vbOKOnly, "Hinweis"
Case 2
MsgBox "Fuer diesen Tag hast du bereits einen TB erstellt!)", vbOKOnly, "Hinweis"
End Select
End If
End Sub
VG, Boris
Anzeige
AW: Hilfe bei msgbox mit Bedinung
01.08.2019 17:39:48
Simone
WOW Boris, RESPEKT!!
Das ist ja besser als erträumt!
Vielen lieben Dank für deine Lösung!
Wünsch dir noch einen schönen Abend.
VG, Simone
;

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