AW: Datum Suche in MSG Box ausgeben und farblich marki
29.08.2014 13:37:11
Adis
Hallo
es freut mich sehr das es funktioniert. Unten ein kleines Testprogramm mit 3 Varianten wie die MsgBox aussehen kann. Selbst entscheiden was optisch besser gefaellt. Reine Geschmacksache. Basis ist die MsgBox im Auto_Open ThisWorkbook.
kurzer Tipp dazu. Projekt und Datum waren ja als "xxxx" schon vorgegeben. An der Stelle habe ich den String aufgetrennt und die Variablen mit & Zeichen eingefügt. Mit Chr(10) geht man auf die naechste Zeile. Manche programmieren auch vbLF als LineFeed. Bitte selbst entscheiden was gefaellt.
Sub MsgBox_Test()
Dim Datum As Date, Projekt As String
'Projekt Name + Datum aus Zeile 2 laden
Datum = CDate(Cells(2, 2))
Projekt = "Test " & Cells(2, 1)
'drei Meldungen: Selbst entscheiden was optisch besser gefaellt
MsgBox "Es gibt offene/anstehende Wareneingänge zum Projekt: " & Projekt & " Datum " & _
Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
MsgBox "Es gibt offene/anstehende Wareneingänge zum Projekt: " & Projekt & Chr(10) & " _
Datum " & Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
MsgBox "Es gibt offene/anstehende Wareneingänge" & Chr(10) & "Projekt: " & Projekt & Chr( _
10) & "Datum " & Datum & " bitte prüfen !", vbInformation, "Rectiquest offene Wareneingänge"
End Sub
Gruss Adis