Userform problem

Forumthread: 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

AW: Userform problem

06.01.2020 16:57:34

Regina
AW: Userform problem

06.01.2020 17:15:56

feuerharry
AW: Userform problem

06.01.2020 17:59:36

Regina
AW: Userform problem

06.01.2020 18:32:49

feuerharry
AW: Userform problem

06.01.2020 18:36:38

Regina
AW: Userform problem

06.01.2020 18:43:46

feuerharry
AW: Userform problem

06.01.2020 18:47:15

Regina

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

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:36:38

Regina

... Du musst doch nur die vorhandene Prozedur durch meine ersetzen. Aber, kein Problem, hier die Datei:
https://www.herber.de/bbs/user/134212.xlsm
Gruß
Regina

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Userform problem

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread