MsgBox - Anzeige aller Geburtstage im nächst. Mon

Hallo liebe Leute,
ich habe gern mal wieder eine Problemstellung. Habe jetzt schon viele Ansätze im Netz ausfindig gemacht, allerdings habe ich das Gefühl, dass ich auf dem Holzweg bin...
Problemstellung:
Es gibt durch Stammdaten bedingt eine Geburtstagsliste (dyn. Tabelle). Diese findet man im Sheet "Kunden-Stammdaten" H7:H150 im Format Datum, kurz (01.01.2019).
Nun möchte ich per Commandbutton_Click im Sheet "Cockpit" eine Abfrage initialisieren, die mir aus der angegebenen Range alle Geburtstage des "kommenden" Monats in die MsgBox schreibt.
Die MsgBox soll inhaltlich so aussehen:
Bitte beachten Sie:
Im "(aktueller Monat +1) 2019" haben folgende Klienten Geburtstag...
(Vorname) (Nachname) "hat am" (Formel zum Datum) "Geburtstag, und wird" (z.B. 90 Jahre alt).
Es sollen wirklich alle Klienten im Monat +1 erfasst werden und in der MsgBox Zeile für Zeile aufgeführt werden.
Anbei eine Bsp-Datei:
https://www.herber.de/bbs/user/131608.xls
Liebe Grüße Oli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Oli,
hab' einfach mal Deinen code "weitergesponnen". Vielleicht reicht es Dir ja so schon.

Private Sub CommandButton1_Click()

    Dim lngColumn As Long

    Dim lngZeile As Long

    Dim Items  As String

    Dim iMonat As Integer, iMonate() As String, MsgTxt As String, Alter As Integer

    iMonat = Month(Date) + 1

    If iMonat &GT; 12 Then iMonat = 1

    Monate = Split(",Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober, November,Dezember", ",")

    MsgTxt = "Bitte beachten Sie:" & vbLf & "Im " & Monate(iMonat) & " " & Year(Date) & " haben folgende Klienten Geburtstag..." & vbLf & vbLf

    For lngZeile = 5 To ThisWorkbook.Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row

        With ThisWorkbook.Worksheets("Tabelle1").Range("A" & lngZeile)

            If Month(.Value) = iMonat Then

               Alter = Year(Date) - Val(Right(.Offset(0, 0).Value, 4))

               MsgTxt = MsgTxt & .Offset(0, 2).Text & " " & .Offset(0, 1).Text & _

                " hat am " & .Offset(0, 0).Text & " Geburtstag und wird " & Alter & "Jahre alt" & vbLf

             End If

        End With

    Next

    MsgBox MsgTxt, vbInformation, "Info"

End Sub

Viel Erfolg damit und viele Grüße
Karl-Heinz

Private Sub CommandButton1_Click() Dim loLetzte As Long, i As Long, strAusgabe As String With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To loLetzte If IsDate(.Cells(i, "A")) Then If Month(.Cells(i, "A")) = Month(Date) + 1 Then If strAusgabe = vbNullString Then strAusgabe = .Cells(i, "C") & ", " & .Cells(i, "B") & " hat am " _ & .Cells(i, "A") & " Geburtstag." & vbLf & "Er wird " _ & Year(Date) - Year(.Cells(i, "A")) & " Jahre alt" Else strAusgabe = strAusgabe & vbLf & vbLf & .Cells(i, "C") & ", " _ & .Cells(i, "B") & " hat am " & .Cells(i, "A") & " Geburtstag." _ & vbLf & "Er wird " & Year(Date) - Year(.Cells(i, "A")) _ & " Jahre alt" End If End If End If Next i End With If Not strAusgabe = vbNullString Then MsgBox strAusgabe Else MsgBox "Es gibt keine Geburtstagstermine im nächsten Monat." End If End Sub

Beliebteste Forumthreads (12 Monate)

MsgBox - Anzeige aller Geburtstage im nächst. Mon

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox - Anzeige aller Geburtstage im nächst. Mon

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread