Der richtige VBA Code

Computer: Software & Programmierung Visual Basic
#1

Hallo

Kann mir bitte einer sagen wie ich den Code umschreiben muß das er ohne fehler läuft.

Ich brauche die beiden Makros in " Dieser Arbeitsmappe "

Private Sub Workbook_Open()
Call Laufschrift_Start
End Sub
Private Sub Workbook_Open()
If Date >= CDate(„01.02.2014“) Then
MsgBox „Testphase beendet.“
ThisWorkbook.Close
End If
End Sub

LG
Susanne

#2

Kann mir bitte einer sagen wie ich den Code umschreiben muß
das er ohne fehler läuft.

Hallo Susanne,

Option Explicit

Private Sub Workbook\_Open()
If Date \>= CDate("01.02.2014") Then
 MsgBox "Testphase beendet."
 ThisWorkbook.Close
End If
Call Laufschrift\_Start
End Sub

Gruß
Reinhard

#3

Hallo Reinhard

Mal wieder vielen Dank für deine Hilfe geht einwandfrei
LG
Susanne