Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 13:30:18

Dridrops

Hallo zusammen,

Ich habe eine Arbeitsmappe mit einen Tabellenblatt Namens Termine. Das Datum dieser Termine steht in Spalte E ab der Zeile 6 falls das auch noch wichtig wird.
Meine MsgBox soll und wird auch bereits angezeigt wenn ich die Arbeitsmappe starte und das abgefragte erfüllt ist.
In dem Makro soll überprüft werden ob ein Datum aus Spalte E innerhalb der Nächsten Woche fällig ist. Dann halt beim starten der Arbeitsmappe, wenn das zutrifft auch die entsprechende MsgBox anzeigen.
Was leider ich noch nicht umsetzen konnte ist das im Titel der MsgBox das was in der gefundenen Zeile in Spalte G steht.
Als Beispiel das gefundene Datum steht in E9 dann soll im Titel der Inhalt von G9 usw. stehen.
Ähnliches hätte ich gerne im Text. Zuerst das aus der jeweiligen Zelle der Spalte D dann das gefundene Datum aus Spalte E
Nach einen Zeilenumbruch ein eigener Text und zum Schluss der Inhalt aus der jeweiligen Zelle in Spalte F. Der eigene Text bleibt immer gleich.
Wofür ich auch noch keine Idee habe ist wenn im besagten Zeitraum sich mehrere Termine befinden das dann auch für jeden Termin eine wie
oben beschriebene MsgBox aufpoppt.
Schonmal im voraus Dankeschön für jede Hilfe.
LG

AW: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 14:17:39

RPP63

Moin!
Wer soll das nachbauen?
(Excel-Datei hochladen)

Warum steht Gott und die Welt (incl. Dridops) eigentlich auf so eine blöde Msgbox?
Was ist mit der kleinen Schrift übersichtlicher als Zelltext?

Kennst Du die Funktion FILTER()?
In Verbindung mit SPALTENWAHL() [evtl. INDEX(), wenn dies Excel 2021 nicht kennt] erhältst Du ein gespilltes Ergebnis, welches Du Dir on top ganz nach Belieben formatieren kannst.
(alles völlig ohne VBA)

Gruß Ralf

AW: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 16:23:05

Dridrops

Hallo Ralf,
danke für deine Ideen leider weiß ich nicht wie mich die Funktionen beim Start der Arbeitsmappe an die Termine erinnern sollen.
Falls es da was anderes geben sollte als die Lösung über VBA mit einer MsgBox dann bin ich absolut offen dafür.

LG

AW: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 14:24:36

GerdL

Moin, moin! :-)

Sub Unit()



    

    Const txt = "eigener text" & " "

    Dim z As Long

    

    For z = 6 To Cells(Rows.Count, 5).End(xlUp).Row

    

        If WorksheetFunction.WeekNum(Cells(z, 5)) = WorksheetFunction.WeekNum(Date) + 1 Then

            MsgBox prompt:=Cells(z, 4) & " " & Cells(z, 5) & vbCrLf & txt & Cells(z, 6), _

            Buttons:=vbOKOnly, Title:=Cells(z, 7)

        End If

    

    Next





End Sub

LG GL

AW: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 16:25:30

Dridrops

Hallo und danke GerdL,
soweit schon sehr gut. Leider bekomme ich es gerade nicht hin das es auch Funktioniert wenn ich das Makro ausführe und ein anderes Blatt aktiv ist.

Habe glaube gerade den hellen Moment.
LG

AW: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

26.07.2025 16:41:08

Dridrops

Danke klappt wunderbar, manchmal ist es auch wichtig das Makro an der richtigen Stelle einzugeben

LG

Dynamischer Text in MsgBox durch Inhalt aus Tabelle

Forumthread: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Dynamischer Text in MsgBox durch Inhalt aus Tabelle

Forumthread: Dynamischer Text in MsgBox durch Inhalt aus Tabelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread