Code anpassen
15.05.2006 18:36:59
Andreas
Mit dem nachfolgendem Code speichere ich eine Excelmappe mittels CommandButton und schließe die Mappe anschließend, allerdings bräuchte ich 2 Veränderungen:
Wie muß der Code aussehen wenn:
1. Sich der Name der Mappe statt dem Inhalt der Zelle l1 und g2 aus dem Wort "Kassenbuch-" und dem Inhalt aus g2 zusammen setzen soll (l1 soll also durch "Kassenbuch-" ersetzt werden).
2. Ich eine bereits vorhandene Datei ohne Abfrage überschreiben möchte.
Danke für die Hilfe!
mfg, Andreas
Private Sub CommandButton1_Click()
Call Speichern
Call Beenden
End Sub
Sub Speichern()
Const PFAD As String = "C:\"
Const EXT As String = ".xls"
Dim a As String, b As String, Dateiname As String
a = [l1].Text
b = Format([g2], "yyyy_mm_dd")
Dateiname = PFAD & a & b & EXT
ThisWorkbook.SaveAs Dateiname
End Sub
Sub Beenden()
ActiveWorkbook.Close False
End Sub
Anzeige