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
Gruß Frank H.
Anzeige