Datei Eigenschften Titel aus Zelle.

Question

Wer kann mir helfen?

Kann man den Inhalt der Datei Eigenschft Titel aus einer Zelle übernehmen?

Beispiel: Titel aus Zelle A5 übernehmen

MfG und Danke

Answer 1

nur per VBA
ActiveWorkbook.BuiltinDocumentProperties(1).Value = Worksheets("Tabelle1").Cells(5, 1)

Gruß Hajo

Answer 2

Hallo Hajo,

vielen Dank für den schnellen Tipp.

Es geht hierbei um ein Rechnungsformular das über -Datei, Speichern unter- immer weiter verwendet wird.
Die Info die in die Datei Eigenschaft -Titel- soll steht in Zelle J1

Ich habe von VBA keine Ahnung.

Wie macht man so etwas! Kannst Du mir da bitte helfen?

MfG
MaroMoroni

Answer 3

unter dieseArbeitsmappe.

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.BuiltinDocumentProperties(1).Value = Worksheets("Tabelle1").Cells(5, 1)
End Sub

Gruß Hajo

Answer 4

Hallo Hajo,

sorry aber es geht nicht!

Ich habe vba mit Alt F11 aufgerufen und dann den VBA-Code hinein Kopiert und gespeichert.

Dann habe ich in Zelle A5 Test-VBA geschrieben und gespeichert.
Aber in den Eigenschaften im Feld Titel steht nichts. Auch nicht wen ich das File schließe und wieder öffne.

Was mache ich Falsch?

Answer 5

Du hast diese Hinweis

unter dieseArbeitsmappe.

kein Modul und auch nicht unter der Tabelle.

Gruß hajo

Answer 6

Ich bekomme es nicht hin!

Schade und sehr traurig!!!

MfG

Answer 7

Wenn ich den code unter dieseArbeitsmappe eingebe gibt es einen Laufzeit Fehler

LG
MM

Answer 8

die angesprochene Tabelle gibt es schon?

Gruß Hajo

Answer 9

ja

Es ist eine Datei mit 3 Arbeitsblättern

Answer 10

das war nicht ganz die Antwort auf meine Frage. (Tabellen mit den namen Wort1; Wort2; Wort3)
Nur wenige sehen Deine Datei.
Vielleicht solltest Du die verlinken?

Gruß Hjao