Inhalte aus Datei -> Eigenschaften

Bild

Betrifft: Inhalte aus Datei -> Eigenschaften
von: Benjamin Feldmann
Geschrieben am: 10.10.2003 10:41:25

Hi all,

gibt es in Excel eine Möglichkeit, die Inhalte, die man unter Datei -> Eigenschaften der Datei zuweist, im Blatt in bestimmte Zellen zu schreiben - ähnlich wie das in Word machbar ist?

Vielen Dank für eure Hilfe...

MfG

Ben

Bild


Betrifft: AW: Inhalte aus Datei -> Eigenschaften
von: Hajo_Zi
Geschrieben am: 10.10.2003 10:44:40

Hallo Benjamin

lasse folgendes Makro laufen.


Sub Eigenschaften()
    Dim Rw As Integer
    Dim P
    Rw = 1
    On Error Resume Next
    For Each P In ActiveWorkbook.BuiltinDocumentProperties
        Cells(Rw, 1).Value = P.Name
        Cells(Rw, 3) = P.Value
        Rw = Rw + 1
    Next
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Inhalte aus Datei -> Eigenschaften
von: Ben
Geschrieben am: 10.10.2003 10:56:41

Hallo Hajo,

vielen Dank für die Hilfe.

Eine Frage hätte ich jedoch noch:
Das ganze läuft ja jetzt in einer Schleife und gibt alle Eigenschaften aus.
1. Wie kann ich mir gezielt nur eine Eigenschaft ausgeben lassen?
2. Wie kann ich das dann automatisch (o. das Makro manuell zu starten) in eine bestimmte Zelle schreiben lassen.

Nochmals vielen Dank...

MfG

Ben


Bild


Betrifft: AW: Inhalte aus Datei -> Eigenschaften
von: Hajo_Zi
Geschrieben am: 10.10.2003 10:57:58

Hallo Benjamin

spreche die Eigenschaft entsprecht der Zeile an

Cells(I, 3) = ActiveWorkbook.BuiltinDocumentProperties(I).Value


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Inhalte aus Datei -> Eigenschaften
von: Ben
Geschrieben am: 10.10.2003 11:19:05

Hallo Hajo,

das einzelne Ausgeben klappt nun...

Wie kann ich jetzt das automatisch (z.B. beim Öffnen) ausführen lassen?

Vielen Dank & Grüße

Ben


Bild


Betrifft: AW: Inhalte aus Datei -> Eigenschaften
von: Hajo_Zi
Geschrieben am: 10.10.2003 11:23:15

Hallo Benjamin

schreibe es unter VBA unter DieseArbeitsmappe unter Private Sub Workbook_Open()


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



 Bild

Beiträge aus den Excel-Beispielen zum Thema " Inhalte aus Datei -> Eigenschaften"