Makro unter einer Bedingung nicht ausführen
28.12.2017 16:35:17
Christoph
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
Mein Dank im voraus.
Mit freundlichem Gruss
Christoph
Anzeige