Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn heute Geburtstag dann MSG Box

Wenn heute Geburtstag dann MSG Box
15.07.2016 00:15:07
Benny
Hallo Zusammen,
in einer Datenmaske als Userform habe ich eine Textbox in der das Geburtsdatum der jeweiligen Person steht.
Ich möchte gerne, dass beim Laden der Userform ein Abfrage gemacht wird, wer von den gespeicherten Personen heute Geburtstag hat, diese Meldung soll als MSG Box ausgegeben werden. Beispiel: "Martin Schäfer hat heute Geburtstag"
Geht sowas?
Datenmaske ist angehängt.
Grüße Benny
https://www.herber.de/bbs/user/107022.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn heute Geburtstag dann MSG Box
15.07.2016 02:55:39
fcs
Hallo Benny,
ergänze die nachfolgenden Makros im Userform-Code
Außerdem solltest du ggf. den Geburtstag in der Speichern-Prozedur nicht als Text in der Tabelle eintragen sondern als Excel-Datum. 
      If TextBox92.Text = "" Then
.Cells(lzeile, 6).ClearContents
ElseIf IsDate(TextBox92.Text) Then
.Cells(lzeile, 6).Value = CDate(TextBox92.Text)
Else
.Cells(lzeile, 6).Value = TextBox92.Text
End If
Gruß
Franz 
Private Sub UserForm_Activate()
Call prcGeburtstag
End Sub
Private Sub prcGeburtstag()
Dim iTag As Integer, iMonat As Integer
Dim iTagGeb As Integer, iMonatGeb As Integer
Dim lngZeile As Long
Dim strMsg As String
iTag = Day(Date)
iMonat = Month(Date)
With Tabelle1
For lngZeile = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
If IsDate(.Cells(lngZeile, 6).Text) Then
iTagGeb = Day(CDate(.Cells(lngZeile, 6).Text))
iMonatGeb = Month(CDate(.Cells(lngZeile, 6).Text))
If iTag = iTagGeb And iMonat = iMonatGeb Then
strMsg = strMsg & IIf(strMsg = "", "", vbLf) & .Cells(lngZeile, 1).Text _
& " " & .Cells(lngZeile, 2).Text
ElseIf 29 = iTagGeb And 2 = iMonatGeb Then
'Geburtstag am 29. Februar in Nicht-Schaltjahren
If iTag = 1 And iMonat = 3 Then
strMsg = strMsg & IIf(strMsg = "", "", vbLf) & .Cells(lngZeile, 1).Text _
& " " & .Cells(lngZeile, 2).Text
End If
End If
End If
Next
End With
If strMsg = "" Then
'niemand hat Geburtstag
Else
MsgBox "Heute " & IIf(InStr(1, strMsg, vbLf) = 0, "hat", "haben") _
& " Geburtstag" & vbLf & vbLf & strMsg, vbOKOnly, "G E B U R T S T A G"
End If
End Sub

Anzeige
AW: Wenn heute Geburtstag dann MSG Box
15.07.2016 12:40:32
Benny
Hallo Franz,
vielen lieben Dank für Deine Mühe und Hilfe. Ich habe zu den von Dir angegebenen Codes noch eine Frage.
Ich habe jetzt nur mal den unteren Code eingefügt und das funktioniert bereits sehr gut. Wozu benötige ich denn den oberen Code und kannst Du mir sagen, wohin genau ich diesen einfügen soll. Ich gehe davon aus, dass dieser in die "Speichern-Prozedur" eingefügt werden muss aber wohin genau?
Grüße Benny
AW: Wenn heute Geburtstag dann MSG Box
15.07.2016 19:26:52
fcs
Hallo Benny,
der 2. Code-Schnippsel gehört in den Code zur Speichern-Schaltfläche.
Mit dieser Apassung wird Datums-Text der in die Textbox eingegeben wurde. In der Tabelle als Zahl/Datum eingefügt.
Damit funktioniert das Sortieren und Suchen nach Datumswerten einwandfrei.
Wenn du mit dieser Anpassung arbeitest, dann werden die Geburtstage übrigens rechtsbündig in den Zellen dargestellt (= bei Standardzellformat ein Zeichen für einen Zahlenwert/Datum in der Zelle).
Hier noch der Schaltflächen-Code für das Speichern. Die eine Zeile zum Eintragen des Datums wird hier durch das If-Konstrukt ersetzt.
Gruß
Franz 
Private Sub CommandButton3_Click()
'Eintrag speichern
Dim lzeile As Long, lIndex As Long
If ListBox1.ListIndex = -1 Then
lzeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
lzeile = ListBox1.Column(1)
End If
lIndex = ListBox1.ListIndex
If Trim(TextBox91.Text) = "" Then
MsgBox "Feld Nachname muss gefüllt sein!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
Else
With Tabelle1
.Cells(lzeile, 1).Value = TextBox4.Text
.Cells(lzeile, 2).Value = Trim(TextBox91.Text)
.Cells(lzeile, 3).Value = TextBox5.Text
.Cells(lzeile, 4).Value = TextBox6.Text
.Cells(lzeile, 5).Value = TextBox7.Text
If TextBox92.Text = "" Then
.Cells(lzeile, 6).ClearContents
ElseIf IsDate(TextBox92.Text) Then
.Cells(lzeile, 6).Value = CDate(TextBox92.Text)
Else
.Cells(lzeile, 6).Value = TextBox92.Text
End If
End With
End If
UserForm_Initialize
If lIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
Else
ListBox1.ListIndex = lIndex
End If
End Sub

Anzeige
AW: Wenn heute Geburtstag dann MSG Box
15.07.2016 23:28:59
Benny
Hallo Franz,
ok das hab ich gecheckt. Vielen herzlichen Dank für Deine Hilfe.
LG Benny

312 Forumthreads zu ähnlichen Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Mehr als 7 Wenn-Dann-Verschachtelungen
Bernd

Hallo Leute,
ich habe eine WENN DANN Formel mit mehr als 7 Verschachtelungen. Hat jemand eine Idee wie ich diese Formel so umschreiben kann, dass ich Sie nutzen kann?
Hier ist sie:
=WENN(Monat($D$2)=1;SVERWEIS($D$2;'01'!$G$7:$R$43;2);WENN(Monat($D$2)=2;SVERWEIS($D$2;'02'!$G$7:$R$43...
13.10.2008 17:23:11
Thread-ID: 1016134
4 Beiträge
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Wenn-Dann
Jenny

Hallo,
also in meiner Tabelle habe ich mehrere Daten z.B. 01.12.1990. Excel soll mir nun alle Daten die vor dem 01.10.2005 waren als 01.10.2005 anzeigen...alle Daten die nach dem 01.10.2005 sind soll er mir auch genau anzeigen. Geht das?
Lieben Gruß
23.10.2008 10:31:00
Thread-ID: 1018545
7 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
15
5
4
2
6
3
2
6
2
9
6
1
10
4
14
2
2
7
4
3
2
10
2
4