Code von Reinhard
29.08.2006 12:08:22
Reinhard
ich habe hier von Reinhard ein Code gefunden den ich auch nutzen könnte.
Nun habe ich diesen ausprobiert, aber es öffnet sich keine MsgBox.
Woran kann das liegen?
Gruß
Sybille
Betrifft: AW: Ausgabe in MsgBox
Hi Cordula,
Alt+F11, Doppelklick auf "DieseArbeitsmappe", Code einfügen, Editor schliessen.Datei schliessen, öffnen...
Option Explicit
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
Dim z As Long, Satz As String
For z = 1 To .Range("A65536").End(xlUp).Row
If Day(Now) = .Cells(z, 2) And Month(Now) = .Cells(z, 3) Then Satz = Satz & .Cells(z, 1) & Chr(10)
Next z
End With
If Len(Satz) > 0 Then MsgBox Left(Satz, Len(Satz) - 1)
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..