Hallo zusammen,
möchte mit VBA folgendes erreichen. Eine Datei soll mit aktuellen Verzeichnis abgespeichert werden, wobei der Original-Dateiname mit _Konzept ergänzt werden soll.
THX
Hallo, Alex!
möchte mit VBA folgendes erreichen. Eine Datei soll mit
aktuellen Verzeichnis abgespeichert werden, wobei der
Original-Dateiname mit _Konzept ergänzt werden soll.
Grundsätzlich geht das ungefähr so:
Sub Speichern()
Dim strDatei As String
strDatei = DieseArbeitsmappe.FullName
strDatei = strDatei & "\_Konzept"
DieseArbeitsmappe.SaveAs strDatei
End Sub
wobei das „_Konzept“ jetzt ans Ende, also nach „.xls“ gehängt wird. Und das auch immer wieder, d. h. rufe zwei Mal die Prozedur auf, und Du hast „C:\Test\Datei1.xls_Konzept_Konzept“.
Wie und wann Du also Deinen Dateinamen definierst, musst Du ein wenig genauer betrachten. Und welche Möglichkeiten es dabei gibt: Eine leere Datei geöffnet hat z. B. noch nicht die Endung „.xls“…
Gruß, Manfred
Hallo und danke für die Antwort,
hat mich schon ein ganzes Stück weiter gebracht.
Ist „DieseArbeitsmappe“ eigentlich ein fest definiertes Objekt in Excel?
THX
Hallo, Alex!
hat mich schon ein ganzes Stück weiter gebracht.
Ist „DieseArbeitsmappe“ eigentlich ein fest definiertes Objekt
in Excel?
Ja und nein. Ja im Sinne von: Jede Datei hat ein Arbeitsmappenobjekt. Und das ist fest definiert, hat also definierte Eigenschaften und Methoden. Nein im Sinne von: Der Name kann auch geändert werden. Wenn Du im VBA-Editor bist, hast Du i. d. R. links den Projektexplorer. Da gibt es immer dieses Arbeitsmappenobjekt (logisch, sonst gäb’s keine Datei), defaultmäßig heißt das „DieseArbeitsmappe“. Das kann aber über die Eigenschaften auch geändert werden.
Gruß, Manfred
Alles klar!! Klappt alles hervorragend!! Danke!!