Office: Excel Vorlage Speichern unter neuem namen

Hi

folgendes
habe ein VBA womit ich die bearbeitete excel vorlage abspeichern kann

durch klick auf die schaltfläche geht dann das fenster speichern unter auf mit dem richtigen ordner dann muß nur der neue date name eingetragen werden

schön und gut

ich möchte eigentlich das umgehen

so das man wenn möglich auch das umgehen kann das man den neuen datei namen aus einer excel zelle nehmen kann

also ein automatisches speichern mit neuem namen der aus der gennanten zelle kommt

hier das jetzige VBA

Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="D:\Eigene Dateien\Ordner-1\Ordner-2\Ordner 2", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ChDir "D:\Eigene Dateien\Ordner11\Ordner-2\Ordner 2"
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub

:)

 

Hallo Lex,

vielleicht einfach so:

Sub LexSpeichern()
ActiveWorkbook.SaveAs Filename:=Cells(1, 1).Value 'in Zelle z.B. c:\test.xls
End Sub

 

der dateiname aus der zelle verändert sich aber immer

der name besteht aus einer zahl

die zelle muß doch irgendwie angeben werden

???

 

nein funzt net

 

Hallo Lex,

ähnlich "c:\ordner\dateiname.xls" muss mit obigen Befehl mitgegeben werden. Es ist egal ob der Name eine Zahl ist (z.B. "c:\ordner\1234.xls"). Die Zelle ist mit Cells(1, 1) klar benannt (A1). Ich verstehe Dein Problem damit nicht.

Solltest Du nur eine Zahl in der Zelle stehen haben, so kannst Du sie so erweitern:
ActiveWorkbook.SaveAs Filename:="c:\ordner\" & Cells(1, 1).Value & ".xls" (in A1 steht z.B. 1234´).

Das sich der Dateinamen ändert mit anderer Zahl ist klar, verstehe ich aber nicht als Problem wie Du es anmerkst. Vielleicht führst Du die Aufgabenstellung noch einmal etwas weiter aus.

 

die Zelle die ich ansprechen will ist F 19

 

Sub LexSpeichern()
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Ordner 1\Ordner 2\Ordner 3\" = Cells(19, 6).Value 'in Zelle
End Sub

irgentwas klappt noch nicht

speichert ab aber nur unter eigene dateien soll aber in ordner 3 gespeichert werden

was mach ich noch falsch

sorry das ich kein profi darin bin

bitte im ganzen wäre dann einfacher um das nach zu voll ziehen danke

 

Moin Lex,

Du musst schon genau lesen bzw. kopieren:

Falsch:
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Ordner 1\Ordner 2\Ordner 3\" = Cells(19, 6).Value 'in Zelle

Richtig:
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Ordner 1\Ordner 2\Ordner 3\" & Cells(19, 6).Value 'in Zelle

 

super danke jetzt klappts herrvorragend

PS: ist erst das 2 vba was ich mir zusammen gebastelt hab
mit hilfe
bitte um nachsicht

frage gibt es etwas womit man diese vba s besser verständlicher erlernen kann

buch software ???

 

Hallo Lex,

also ich lerne VBA am Besten an konkreten Beispielen die ich selber nutzen kann.
Bücher gibt es massenhaft, im WWW die eine oder andere Abhandlung.

Diese zwei Beispiele sollten Dich schon einmal in die Thematik reinbringen:

VBA in 21 Tagen

Anlegen, Ausführen und Anbinden von Makros von unseren Moderator jinx

 

nochmal danke

das sieht ja klasse aus

hab auch immer gesucht nur nie so das passende gefunden auch hier im forum

gruß
lex