nachdem Ihr mir so klasse mit der MSG Box und dem Text schon geholfen habt, hoffe ich auf weitere Hilfe.
Ich möchte gerne den Text der MSG-Box nicht nur für eine Tag anzeigen lassen, sonder für einen Zeitraum ... sagen wir mal 5 Tage.
Desweiteren frage ich mich ob es die Möglichkeit gibt, den Text aus der Exceltabelle zu entnehmen sowie auch den Zeitraum.
z.B. aus Tabelle 3(Ferien) A1=Anfangsdatum B1=Enddatum C1=Der Text
Wenn Ihr mir dabei helfen könntet, währe das superklasse von Euch.
Gruß aus Norddeutschlan sagt Wolle
Bisher hatte ich es so gelöst:
Private Sub Workbook_Open()
Dim msgText As String
Dim msgStyle As Integer
Dim msgTitle As String
Select Case Date
Case DateSerial(Year(Date), 11, 19)
msgText = "Am Dienstag 15.12.2009 ist Weihnachtsfeier der RLS"
msgStyle = vbInformation
msgTitle = "Information"
Case DateSerial(Year(Date), 11, 20)
msgText = "Am Dienstag 15.12.2009 ist Weihnachtsfeier der RLS"
msgStyle = vbInformation
msgTitle = "Information"
Case DateSerial(Year(Date), 12, 23)
msgText = "Frohe Weihnachten"
msgStyle = vbInformation
msgTitle = "Information"
End Select
Call MsgBox(msgText, msgStyle, msgTitle)
End Sub