falls datei existiert zurück zu excel
12.10.2022 17:23:21
yannick
Ich bin ein totaler Anfänger was das Arbeiten mit Makros betrifft. Habe mich die letzten Tage ein erstes Mal eingelesen in das Thema und ein erstes Excel versucht.
Ich möchte eine Tagesabrechnung erstellen, welche mit einem CommandButton abgespeichert werden kann.
Der Name des neuen Files ist in der Zelle "B20" (Es ist ein Datum).
Endziel wäre für mich, dass ich für jeden Monat die einzelnen Tage zusammenfassen kann. Aber da bin ich noch weit entfernt..
Wenn ein neues Datum abgespeichert wird, klappt es und die Mappe wird sogleich geschlossen.
Falls aus Versehen ein Datum eingegeben wird, welches schon vorhanden ist im Ordner, kommt "Es ist bereits ein.. unter diesem Namen, soll es überschrieben werden?" - Wenn ich auf nein klicke, kommt "Laufzeitfehler 1004"
Ich möchte ein Fenster, welches darauf hinweist und ich das Excel nochmals bearbeiten kann.
Wie geht das?
Ich hoffe, ich langweile euch nicht mit dieser Anfängerfrage..
Beste Grüsse
yan_n
Mein bisheriger Code:
Private Sub CommandButton1_Click()
Select Case MsgBox("Sind alle Angaben korrekt?" & Chr(13), vbQuestion + vbYesNo, "Tagesabrechnung abschliessen")
Case vbNo
Exit Sub
Case vbYes
Const myPath = "C:\hier\steht\mein\pfad"
ActiveSheet.SaveAs myPath & Range("B20").Value & ".xls"
MsgBox "Die Tagesabrechnung wurde erfolgreich gespeichert", vbOKOnly, "Bald Feierabend"
End Select
Application.Quit
End Sub