Supportnet / Forum / Tabellenkalkulation
Überprüfen: Datum=Samstag
Frage
Moin zusammen,
ich suche mal wieder eine VBA Lösung.
Es soll überprüft werden ob das Datum das in "A7" steht ein Samstag ist. Falls ja soll dies in einer MsgBox angezeigt werden.
Also in etwa so:
Sub Datum()
[b]If Wochentag(A7;2)=6 Then [/b] <=??
MsgBox "Dies ist ein Samstag!"
Exit Sub
End If
End Sub
Wie muss die If-Abfrage richtig aussehen?
Vielen Dank
MfG Jöke
Antwort 1 von rainberg
Hallo,
kopiere folgenden Code in das Codefenster der entsprechenden Tabelle.
Das Makro reagiert dann auf eine Eintragung in A7.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$7" Then
If Weekday(Target.Value, 2) = 6 Then
MsgBox "Das ist ein Samstag"
Else
Exit Sub
End If
End If
End Sub
Gruß
Rainer
kopiere folgenden Code in das Codefenster der entsprechenden Tabelle.
Das Makro reagiert dann auf eine Eintragung in A7.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$7" Then
If Weekday(Target.Value, 2) = 6 Then
MsgBox "Das ist ein Samstag"
Else
Exit Sub
End If
End If
End Sub
Gruß
Rainer
Antwort 2 von JoeKe
Hi Rainer,
vielen Dank!
Genau das Richtige!
Schönes Wochenende
JöKe
vielen Dank!
Genau das Richtige!
Schönes Wochenende
JöKe