ich stehe vor einem kleinen Problem.
In meiner Tabelle wird aktuell beim Öffnen eine MsgBox und ein Input gestartet, beides würde ich gerne aussetzen, sobald der Input, der sich in Zelle P1 auf dem Arbeitsblatt 3 befindet, bereits getätigt wurde.
Hier der von mir bisher erstellte Code:
Private Sub Workbook_Open()
If Sheets("Datenbasis").Cell("p1") = "" Then
MsgBox "Text"
Dim Datum As Date
Worksheets("Base de Datos").Activate
Datum = DateValue(InputBox("Bitte Datum eingeben tt/mm/jjjj.", "Datumseingabe"))
Range("P1").Value = Datum
End If
End Sub
es scheint nicht ganz zu funktionieren, kann da mal einer drüber schauen?Mein Dank im voraus.
Mit freundlichem Gruss
Christoph