Office: Wenn Wochentag Freitag dann MSG oder Userform anzeigen

Hallo zusammen

Ich denke mal das es für Euch ein leichtes ist mir bei meinem Problem weiter zu helfen.

Ich würde gerne überprüfen lassen wenn eine Userform geöffnet wird ob die Systemzeit ein Freitag ist ,wenn das der fall sein sollte und in dem Worksheet"Kontrolle" in Spalte D nicht schon das Datum der Systemzeit vorhanden ist dann soll eine Userform oder msg box geöffnet werden.
Falls nicht dann geht's halt wie sonst auch weiter.

danke für Eure Hilfe / Mühe

lg
Weissbart

:)

 

Code:

 

Moin,

das liefert die Funktion WOCHENTAG.

Gruß
Ralf

Zu schbääd ...

 

Vielen Dank Hajo

hab da noch ne Frage zu

If Weekday(Date, 2) = 5 Then

wenn das Freitag ist wäre Samstag nicht

If Weekday(Date, 2) = 6 Then

oder wie muss ich das verstehen???

 

Moin!
Der VBA-Editor besitzt eine sehr gute Hilfe.
(Cursor in Weekday, F1)

Zusätzlich lasse mal folgendes Makro laufen:
Code:

Gruß Ralf

 

bei mir schon
If Weekday(Date, 2) = 6 Then

 

ok danke Ralf

erklärt sich so bestens

wollte es halt nur testen da heute Samstag ist mit Hajos Code

aber dann stimmt da irgendwas nicht mit dem Match check in dem Worksheet

dort stehen jetzt die Datumswerte 11.6.2016 aber die Userform öffnet sich weiterhin.
also habs so übernommen

Code:

[/    If Weekday(Date, 2) = 6 Then
If IsError(Application.Match(CDbl(Date), Worksheets("Kontrolle").Columns(4), 0)) Then
UserForm13.Show
End If
End IfCODE]

 

in meiner Datei nicht, Deine sehe ich nicht.

 

hab jetzt mal eine testdatei angehangen da geht es auch nicht

 

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

 

Bevor Du umbenennst (Hajo ist mal wieder im "Netten-Wochenende-Modus"),

bei mir läuft es einwandfrei.

Rufe im Direktfenster (Strg+g im VBA-Editor) mal ?Application.EnableEvents, gefolgt von Enter auf.
Was wird angezeigt?
False?
Dann im Direktfenster Application.EnableEvents = True (mit Enter abschließen).

Gruß Ralf

 

hmm also bei mir geht es nicht

wenn ich die Datei starte werden bei mir direkt beide Userformen angezeigt

auch mit deinem Ratschlag Ralf ging es nicht

das event war übrigens auf True


Also um nochmal alle Missverständnisse auszuräumen

Wenn die Systemzeit = Samstag (If Weekday(Date, 2) = 6 Then ) und in Spalte D des Worksheets noch kein Heutiges Datum (Systemzeit) zu finden ist dann soll Userform2 angezeigt werden.

Wenn die Systemzeit = Samstag (If Weekday(Date, 2) = 6 Then ) und in Spalte D des Worksheets bereits ein Heutiges Datum (Systemzeit) steht soll Userfom2 nicht angezeigt werden sondern bei Userform1 Weitermachen.

 

Ja, Du hast Recht, Weissbart (meiner ist weißer!)!
Wie so häufig, ist das, was wie ein Datum aussieht, kein Datum (aka Ganzzahl), sondern ein TEXT, der wie ein Datum aussieht.
(=ISTZAHL(D2) ergibt FALSCH)
Wandel die Texte in Daten um (Spalte D markieren, Daten, Text in Spalten, sofort fertigstellen), dann klappt es auch mit dem Makro.

Gruß Ralf

 

Ralf

Danke Dir das wars

aber was es alles für Fehlerquellen gibt ,mensch mensch

und wieso kennst meinen weißen Bart? *wink.gif*

lg
Weissbart

 

Hallo ich wollte dieses Thema nochmal öffnen leider funktioniert es nicht so gewünscht wie es soll.

folge abfrage funktiniert zwar

Code:

[/    If Weekday(Date, 2) = 5 Then
If IsError(Application.Match(CDbl(Date), Worksheets("Gerätekontrolle").Columns(4), 0)) Then
UserForm13.Show
Else
End IfCODE]


die Userform geht jeden Freitag auf  alles gut .

aber wenn man jetzt das Datum per Userform in Sheet Gerätekontrolle  einträgt geht die Userform immer noch auf.


habe es schon damit per VBA versucht zu lösen funktioniert aber leider nicht.

Sub Spalteumwandeln()
'
' Spalteumwandeln Makro
'
Code:
[quote]Sub Spalteumwandeln()
'
' Spalteumwandeln Makro
'

With Worksheets("Gerätekontrolle")
.Unprotect "ron"
Columns("D:D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
.Protect "ron"
End With
End Sub[/quote]
wenn ich es "händisch" wie RPP63neu  beschreibt mache geht es aber
wenn ich es mit dem Makroeditor aufzeichne und per vba ausführe geht es leider nicht.

hat jemand eine andere VBA Lösung ?

vielen Dank
für die Hilfe
Der Weissbart