Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Dateieigenschaften eingeben beim speichern

Betrifft: Dateieigenschaften eingeben beim speichern von: Oliver
Geschrieben am: 28.08.2004 12:40:30

Liebe Excel Helfer,
die Suche im Archiv hat leider nicht das gewünschte gebracht.

Ich möchte gerne, das beim speichern einer Datei erst eine MSG-Box erscheint, in der ich in den Dateieigenschaften in den Feldern
- Titel
- Thema
- Kategorie
- Stichwörter
- Kommentar
nach einem einzugebenden Text gefragt werde. Diesen Text dann eingebe und beim speichern die eingegebenen Texte übernommen werden.
Wenn ich mit dem Makrorekorder es versuche wird nichts angezeigt.
Wer kann mir helfen.
Vielen Dank im Voraus
und have a nice WE
Gruß
Oliver

  


Betrifft: AW: Dateieigenschaften eingeben beim speichern von: OttoH
Geschrieben am: 28.08.2004 13:35:03

Hallo Oliver,

die einfachste Möglichkeit, die Eigenschaften per Makro einzugeben ist die Erstellung eines Makros mit etwa folgendem Inhalt:

Sub Dateieigenschaften()

ActiveWorkbook.BuiltinDocumentProperties(1) = InputBox("Bitte den Titel eingeben")

End Sub


Dieses MAkro belegt den Eintrag "Titel" mit dem eingegebenen Wert. Für alle weiteren Felder muss eine entsprechende Zeile her; die Einträge werden durch die Nummer hinter Properties festgelegt: 1= Titel; 2 = Thema; 18 = Kategorie; 4 = Stichwörter; 5 = Kommentar.


Gruß OttoH


  


Betrifft: AW: Dateieigenschaften eingeben beim speichern von: Bertram
Geschrieben am: 28.08.2004 15:16:00

Hallo Oliver,

es geht auch wenn du unter Extras Optionen im Registerblatt Allgemein ein Häkchen bei 'Automatische Anfrage von Dateieigenschaften' aktivierst.

Gruß
Bertram


  


Betrifft: AW: Dateieigenschaften eingeben beim speichern von: Oliver
Geschrieben am: 28.08.2004 15:56:35

Hallo Otto,
hallo Bertram,

vielen Dank für Eure Hlfe,
werde gleich mal beides testen.
Gruß
Oliver


 

Beiträge aus den Excel-Beispielen zum Thema "Dateieigenschaften eingeben beim speichern"