Hallo zusammen, habe hier ein ähnliches Problem,
ich möchte vor schließen eine Abfrage starten, ob das Feld schon ausgefüllt wurde, ist das nicht der Fall, soll eine InputBox den User dazu zwingen das Feld auszufüllen.
Denn das Feld wird benötigt um die Datei unter dem richtigen Namen zu schließen, leider kommt die Abfrage dann öfters als nur einmal. und ich verstehe einfach nicht wieso
Ich bin ein ziemlicher VBA-Anfänger, deshalb fällt es mir wohl leider nicht auf..
Vielleicht könnt ihr es euch ja mal anschauen..? Wäre super!
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim eingabe As String
Dim schoneingegeben As String
Range("B4").Select
If MsgBox("Projekt und Mitarbeiter eingtragen?", vbYesNo, "Frage") = vbNo Then
eingabe = InputBox("Bitte geben Sie das Projekt und den Mitarbeiter an", "Fehlende Eingabe", "Max Mustermann, Desertec")
ActiveCell.Value = eingabe
Else: schoneingegeben = Range("B4").Value
ActiveCell.Value = schoneingegeben
End If
Call SpeichernAls
End Sub
Sub SpeichernAls()
Dim NName As String
Dim DDir As String
DDir = CurDir
NName = DDir & "\Kalkulation_" & Range("B4").Value & " " & Date & ".xls"
ActiveWorkbook.SaveAs Filename:=NName
End Sub
alle SpeichernAl
Searching...
|