mehrere then anweisungen

Liebe VBA Profis,
bin nun zum ersten Mal mit VBA im Excel konfrontiert und normalerweise schaffe ich es durch googeln einen Schritt nach dem anderen zu lösen,
leider finde ich die Ursache meines Syntaxfehlers nicht.
Lese aus zwei Zellen ein Anfangs- und Endedatum aus, stelle fest ob das Tagesdatum in diesem Gültigkeitsbereich liegt und gebe dann einen Text aus.
Nur den richtigen Text auszugeben hat funktioniert, aber die weitere Anweisung die Zelle grün oder rot zu färben dann nicht mehr.
Es kommen dann in weiterer Folge noch weitere Anweisung, die bei der Erfüllung der Bedingung oder halt nicht gemacht werden sollen.
Ich danke sehr für Eure Hilfe.
Liebe Grüße
Joachim


Private Sub Workbook_Open()
Dim VonDatum As Date
Dim BisDatum As Date
AktuellesDatum = Date
VonDatum = Worksheets("HK-Preisblatt").Range("B74").Value
BisDatum = Worksheets("HK-Preisblatt").Range("C74").Value
Worksheets("Bodenplatte mit Frostsch.").Range("L3").Clear
If AktuellesDatum  BisDatum Then
Worksheets("Bodenplatte mit Frostsch.").Range("L3).Interior.ColorIndex = 3
Worksheets("Bodenplatte mit Frostsch.").Range("L3") = "Preisliste veraltet"
Else
Worksheets("Bodenplatte mit Frostsch.").Range("L3).Interior.ColorIndex = 50
Worksheets("Bodenplatte mit Frostsch.").Range("L3") = "Preisliste aktuell"
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Joachim,
der Code sieht ok aus.
Ich konnte nicht sehen wo der Fehler ausgelöst wird, was wohl damit zusammenhängt das ich nicht auf fremde Rechner schaue.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Grußformel

If AktuellesDatum BisDatum Then Worksheets("Bodenplatte mit Frostsch.").Range("L3").Interior.ColorIndex = 3 Worksheets("Bodenplatte mit Frostsch.").Range("L3") = "Preisliste veraltet" Else Worksheets("Bodenplatte mit Frostsch.").Range("L3").Interior.ColorIndex = 50 Worksheets("Bodenplatte mit Frostsch.").Range("L3") = "Preisliste aktuell" End If

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread