MSG-TExt für einen bestimmten Zeitraum anzeigen
Wolle
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
Anzeige