Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform problem

Userform problem
06.01.2020 16:49:22
feuerharry

Hy Leute
Meine Frage: Wenn heute kein Geburtstag, dann userform nicht anzeigen oder Msgbox "kein Geb.Tag?
https://www.herber.de/bbs/user/134208.xlsm
***********************************************************
If sTxt "" Then
Me.Label1 = "Heute am " & Date & vbNewLine & " hat Geburtstag:"
Else
Me.Label1 = "Es liegen heute keine Geburtstage an!"
End If
******************************************************************
Office 2010 32bit + 2016 64bit
LG feuerharry

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform problem
06.01.2020 16:57:34
Regina
Hi,
verstehe ich so:
Private Sub Ausfuehrende()
Dim rng_geb As Range
Set rng_geb = Worksheets("Tabelle1").Range("M:M").Find(Date)
If Not rng_geb Is Nothing Then
UserForm7.Show
Else
MsgBox "kein Geburtstag"
End If
End Sub
Gruß
Regina
AW: Userform problem
06.01.2020 17:15:56
feuerharry
Hy Regina
Passt leider nicht. sie dir die Testdatei an.
Wenn Datum heute, dann userform zeigen.
Wenn kein heutiges Datum msgbox oder userform nicht anzeigen
LG feuerharry
AW: Userform problem
06.01.2020 17:59:36
Regina
Hi,
stimmt, hatte die Jahreszahl außer Acht gelassen. So ein richtig elegante Lösung fällt mir da nicht ein. Du könntest die Schleife, die im Initialize-Ereignis steht in der Sub Ausfuehrende schon einmal laufen lassen, um zu ermitteln, ob das Formular geöffnet werden soll oder nicht. Von der Performance her, ist das aber nicht so elegant;
Private Sub Ausfuehrende()
Dim dat As Date, lRow As Long
Dim bol_treffer As Boolean
bol_treffer = False
lRow = 2
With Worksheets("Tabelle1")
Do Until IsEmpty(.Cells(lRow, 13))
dat = .Cells(lRow, 13).Value
If Month(dat) = Month(Date) And Day(dat) = Day(Date) Then
bol_treffer = True
End If
lRow = lRow + 1
Loop
End With
If bol_treffer = True Then
UserForm7.Show
Else
MsgBox "Kein geburtstag"
End If
End Sub
Gruß
Regina
Anzeige
AW: Userform problem
06.01.2020 18:32:49
feuerharry
Hy Regina
Sorry ich bekomme es nicht hin.
Kannst du mir es bitte in der Datei einfügen. DANKE
LG feuerharry
AW: Userform problem
06.01.2020 18:43:46
feuerharry
Hy Regina
Genau so passt es.
DANKE, Sorry kenn mich nicht viel aus in VBA
Ihr seid alle so hilfsbereit
VLG feuerharry
AW: Userform problem
06.01.2020 18:47:15
Regina
... alles klar, danke für die Rückmeldung.
Gruß
Regina

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige