Office: Dateinamen automatisch generieren

Hallo zusammen,

für die Suche habe ich wahrscheinlich (mal wieder) die falschen Begriffe genutzt und deshalb nicht das gefunden was ich brauche.

Ev. kann mir ja jemand beim Suchen helfen *wink.gif*

Ich habe eine einfach schreibgeschützte Arbeitsmappe, die von X Usern befüllt wird und dann an mich geschickt wird.

Die User sind bei der Vergabe der Dateinamen schon sehr kreativ. Um dies ein wenig einzudämmen möchte ich den Dateinamen aus bestimmten Felder automatisch erstellen lassen um diese dann in einem vorbestimmten Verzeichnis ablegen zu lassen.

Mappe1 Zelle G2 (Ort)
Mappe1 Zelle K2 (Datum)

Es wäre super, wenn der User den Pfad anpassen könnte.
Mappe2 Zelle B5 (Speicherpfad)

Für den ersten Teil habe ich in den unendlichen Tiefen des Netzes folgenden Code gefunden:

Code:

Der Code läuft ohne Fehlermeldung ab - aber eine Speicherung erfolgt nicht. *entsetzt Die Datei bleibt unverändert.

Für eure Hilfe bedankt sich
Hajo

:)

 

Damit machst du auch nur eine Dialogbox auf. Du musst noch explizit speichern...

So in etwa...
Code:

 

Hallo M Merlin,

wie gesagt Code ist geklaut...

wenn er eine Dialogbox öffnen soll, so tut er's nicht! *grübel*

Mit seinem Zusatz komme ich leider auch nicht weiter.......


besten Dank
Hajo

 

Wo hast du den Code denn plaziert.
Ich hab das eben doch mal getestst, das könnte so auch funktionieren...

Du musst das im VB-Tei unter diese Arbeitsmappe kopieren...

 

Hallo Hajo,
das Makro muss natürlich in den Arbeitsmappen-Codebereich kopiert werden.
Übrigens ist die Angabe [G2] nicht besonders klug. Wenn Du Dich auf Tabelle2 beziehen willst sogar unumgänglich. Da kannst Du locker eine Stunde Fehler suchen und Du findest nix.
Besser "Wokrsheets("Tabelle1").Range("G2").Value" , dann geht nichts schief.

Der File- bzw. Mappen-Name schlägt der Dialog nur vor! Wenn jemand diesen ändert kannst Du nichts dagegen tun. Dazu müsstest Du den Filename zwangsweise vorgeben. Wenn sich der Dialog öffnet kann man auch den Pfad auswählen.
Noch wass, mit Mappe meinst Du "Tabelle1" etc. Als Mappen werden normalerweise die Sheets selbst bezeichent.

 

Hallo Armin,,

du hast ja sooo Recht.
Mit Mappe meinte ich die Tabelle - sorry.

Also jetzt sieht es so aus:

Es kommt der normale Dialog zum Speichern einer schreibgeschützten Arbeitsmappe.

Ich möchte aber hier den Namen gem. meiner Vorgabe ( z.B. Ergebnis-Düsseldorf-10102012) angezeigt bekommen, bzw. die Datei direkt unter einem Namen in ein Verzeichnis ( abspeichern

Danke
Hajo

 

Hallo Hajo,
bin leider nicht eher dazu gekommen.
Hier eine Variante. Zu Erläuterung: Die Tabelle1 ist nur Muster du kannst auch jede andere nehmen und code anpassen. Ich würde Sie dann ausblenden und zwar von der Codeseite aus (-2 ) dann kann das keiner so leicht ändern.
In G4 steht der Pfad. Zum eintragen in die Zelle A1 ="Master" schreiben sonst speichert er nix ab.