Hilfe bei Workbook_Open
22.06.2011 18:59:22
Frank H.
Hallo Zusammen!
Wieder einmal bin ich ratlos. Wollte folgenden Code, den ich selber gezimmert habe nutzen. Nur leidfer funzt er nicht!
Private Sub Worbook_Open()
If Sheets("Daten").Range("AW7") <> "" Then
MsgBox Sheets("Daten").Range("AW7") & " " & "hat morgen Geburtstag"
End If
End Sub
Der Code befindet sich in DieseArbeitsmappe! Wo liegt mein Denkfehler, dass es nicht funzt und beim Öffnen der Arbeitsmappe keine Meldung erscheint obwohl in AW7 ein Text steht. Bitte um eure Hilfe!!!Gruß Frank H.