Hi Sven,
es komm darauf an ob der Inhalt deiner Zelle vom Typ Datum oder vom Typ Text ist. Wenn du reinen Text in der Zelle stehen hast (erkennbar an der linksbündigen Ausrichtung, sowie daran, dass der Wochentag auch in der Formelleiste zu sehen ist), dann sollte folgende Bedingung funktionieren:
If Range("H2") = Format(Date, "dd.mm.yyyy, ddd") Then
Ich empfehle jedoch deine Eingaben in den Typ Datum umzuwandeln. Dann kannst du auch viel besser damit weiterrechnen. Markiere dazu die Spalte, mache einen Rechtsklick und wähle Zellen formatieren. Dann im Register Zahlenformat auf Benutzerdefiniert gehen und dort "TT.MM.JJJJ, TTT" eingeben. Fortan kannst du ein beliebiges Datum eingeben und der Wochentag wird automatisch ergänzt. Und der Code von Gast 9552 funktioniert dann auch.
Gruß Mr. K.
|