Makro nur einmal starten
26.02.2015 10:20:24
Stephan
ich habe einen Makrocode, der beim Öffnen der Datei eine Messagebox erscheinen lässt in die man etwas einträgt. Nun möchte ich allerdings, dass diese nicht jedes mal beim Öffnen kommt, sondern nur, wenn man noch nichts eingetragen hat.
Leider kenn ich mich nur mangelhaft mit VBA aus und hoffe ihr könnt mir helfen :)
Hier ist mein Code:
Private Sub Workbook_Open()
Dim varEingabe As Variant
varEingabe = Application.InputBox(prompt:="Projectnamen festlegen", Title:="project name", _
Default:="project", Type:=2)
If VarType(varEingabe) = vbBoolean Then Exit Sub
If varEingabe 0 Then
ThisWorkbook.Worksheets("Instructions").Cells(10, 2).Value = varEingabe
End If
varEingabe = Application.InputBox(prompt:="IT-Request-Nr eintragen", Title:="IT-Request-Nr", _
Default:="2015-nnnn", Type:=2)
If VarType(varEingabe) = vbBoolean Then Exit Sub
If varEingabe 0 Then
ThisWorkbook.Worksheets("Instructions").Cells(11, 2).Value = varEingabe
End If
End Sub
Liebe Grüße