Office: Namen beim Speichern selbst übernehmen

Hallo...

Ich hoffe ihr könnt mir helfen....

Folgendes Problem:

Ich habe eine Tabelle, die ist leer. Sie soll auch leer erhalten bleiben beim beenden.
Also, ich gebe halt ein paar Daten ein, z.B. Name Vorname Geb Datum usw... ich möchte gern wenn ich Excel beende, das diese Daten gespeichert werden und zwar so das die Daten ausden Zellen Name und Vorname übernommen werden.

Beispiel: Ich habe blanko.xls

dort gebe ich meine Daten ein von Horst Schlämmer... bei beenden soll das automatisch gespeichert werden so das ich hinterher 2 Dateien habe.

blanko.xls und
Schlämmer, Horst.xls

Hört sich doch eigentlich einfach an oder ????? :-o

Hoffentlich kann mir jemand helfen....

Gruß René

 

Hallo Renè,

ich verrmute Du benutzt eine Mustervorlage?
Komma im Dateinamen sind nicht erlaupt.
Ich vermute Schlämmer Horst steht in einer Zelle?

Gruß Hajo

 

Hallo..

Nein ich ich benutze keine Vorlage.

Der Name steht in C3 und der Vorname in C4.

und das sollte an einem bestimmten pfad gespeichert werden.

D:\~~ ARGUS Dokumente ~~\02 Akustik\Kundenstamm....


Ich habe alle meine Kundendaten mit nem Kommadrin gespeichert, da gibt eskeine Probleme.

Schlämmer, Horst.xls

 

Hallo Horst,

mit dem Komma habe ich mich dann geirrt.
Ich sehe das richtig, Du sagst in Excel neue Datei undd falls die geschlossen wird soll sie unter Hors, Schlämmer, Horst.xls gespeichert werden.

Dazu kann ich Dir nicht raten, das würde dann bei jeder Datei in Excel passieren. Dazu müßtest Du die Vorlage in Excel ändern.
Ich würde Dir zu einerr Mustervorlage raten.
Folgenden Code unter DieseArbeitsmapppe

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Worksheets("Test")
        Application.DisplayAlerts = False
        ThisWorkbook.SaveAs "J:\Eigene Dateien\Hajo\Internet\Test\2010\" & .Range("C3") & ", " & .Range("C4") & ".xls", FileFormat:= _
        xlExcel8
        Application.DisplayAlerts = True
    End With
End Sub

Vorhandene werden überschrieben.

Gruß Hajo

 

ok... danke ..

werde es mal damit probieren.. hoffe das funzt auch auf meinem 2003er office...


Gruß Rene

 

Hi...


irgendwie klappt das ned....

ich trage deinen code doch unter VBA ein ?

 

Hallo René,

Ja unter DieseArbeitsmappe, nicht Modul, nicht Tabelle.

Gruß Hajo

 

hi... ok ich habe deinen code kopiert nur beim schliessen bekomme ich eine fehlermeldung

"Variable nicht definiert"

dann klicke ich ok und das hier:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ist farblich hervorgehoben....

 

Hallo René,

das verstehe ich nicht. Ich sehe auch nicht Deine Datei.

Gruß Hajo

 

vllt kannst du dir das hier mal ansehen.....


ich gebe die daten halt in "KD Daten" ein und danach sollte es dann gespeichert werden beim beenden.

siehe anhang... hm das mit dem anhang geht ned, is zu groß.. schade

 

So.. jetzt..


ich habs dann doch hinbekommen... hab noch in ein paar anderen foren gestöbert.....

aber trotzdem Danke !!!!!!!!


falls es dich interessiert, es sieht jetzt so aus...

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs "D:\~~ ARGUS Dokumente ~~\02 Akustik\Kundenstamm\" & Range("C3").Value & ", " & Range("C4").Value
End Sub

.... Danke nochmal

 

neues Problem --- Aktualisierung

Hallo

Vielleicht kannst du mir ja nochmal helfen.....


Meine Excel Datei ist mit einer anderen verknüpft, und beim start wird halt immer die Aktualisierung überprüft...
Kann man das nicht auch automatisieren, so das ich nicht jedesmal gefragt werde, sondern excel das selbstständig im hintergrund erledigt ????


Gruß René

 

Mach sonst vielleicht mal einen Screenshot vom VBA-Editor, nachdem der Fehler auftrat und die Zeile farbig markiert ist. Aber so, daß der kpl. Source (so lang ist er ja nicht) zu lesen ist.

Ich tippe auf irgendeinen kleinen Schreibfehler. Denn HaJo's Routine verwendet eigentlich gar keine Variablen, die deklariert werden müßten.

Ein Knackpunkt könnte vielleicht der eine _ sein, der eigentlich 2 Zeilen miteinander verbindet...

Es müßte eigentlich so aussehen, wie in dem Screenshot, den ich mal angehängt habe. (Ich hab allerdings die _ etwas anders angeordnet, um die Zeilenlänge etwas zu reduzieren.) Achte dabei bitte auch auf die beiden Ausklapp-Listen ("Workbook" und "BeforeClose") am oberen Rand.

Ah, Moment, eine Sache kann noch sein: Wenn Du im VBA-Editor auf "Debuggen - Kompilieren von VBA-Projekt" gehst und er ebenfalls sich über eine nicht deklarierte Variable beschwert, dann... ist vielleicht "xlExcel8" markiert? Dann kennt Deine Version dies noch nicht und hört vielleicht bei xlExcel7 auf. Im Zweifelsfall laß dann den Parameter gleich ganz weg, dann wird, sofern ich mich nicht irre, die verwendete Excel-Version für das Dateiformat benutzt.

Gruß, Michael

 

hat schon geklappt mit dem Namen übernehmen......


jetzt habe ich nur noch problem mit der aktualisierung



das excel die verknüpfung selbst aktualisiert ohne mich zu fragen...


Gruß René