Supportnet Computer
Planet of Tech

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

Antwort 2 von JoeKe

Hi Rainer,

vielen Dank!
Genau das Richtige!

Schönes Wochenende

JöKe

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: