Benutzerdefinierte Eigenschaft zur Laufzeit

Bild

Betrifft: Benutzerdefinierte Eigenschaft zur Laufzeit
von: Jochen
Geschrieben am: 02.12.2003 21:26:03

Hallo Leute,

kann man eigentlich benutzerdefinierte Dateieigenschaften(Register
Anpassen) zur Laufzeit erstellen und wenn ja, wie geht das?

Ein wenig VBA kann ich schon.

Gruß Jochen

Bild


Betrifft: AW: Benutzerdefinierte Eigenschaft zur Laufzeit
von: Ramses
Geschrieben am: 02.12.2003 22:25:15

Hallo

damit kannst du dir alle Documenteigenschaften ansehen und diese auch beschreiben


Sub document_Propierties_Show()
'(C) Hajo
    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


Gruss Rainer


Bild


Betrifft: AW: Benutzerdefinierte Eigenschaft zur Laufzeit
von: Jochen
Geschrieben am: 02.12.2003 22:41:51

Hallo Rainer,

ich hab geschrieben "Register Anpassen", dort kann man eigene Eigenschaften
definieren mit Beschreibung, Datentyp, Wert. Nur weiß ich nicht, wie das
mit VBA geht.

Gruß Jochen


Bild


Betrifft: Sorry,... Missverständnis. Siehe K.Rola o.T.
von: Ramses
Geschrieben am: 02.12.2003 23:04:59

...


Bild


Betrifft: AW: Benutzerdefinierte Eigenschaft zur Laufzeit
von: K.Rola
Geschrieben am: 02.12.2003 22:54:22

Hallo,

anlegen kannst du sie so:


Sub Eigenschaft_anlegen()
With ActiveWorkbook.CustomDocumentProperties
     .Add Name:="DeineEigenschaft", LinkToContent:=False, _
      Type:=msoPropertyTypeNumber, Value:=12345
End With
End Sub


Du musst aber dafür sorgen(am einfachsten mit einer On Error- Anweisung),
dass nicht versucht wird, sie ein zweite mal anzulegen.

Gruß K.Rola


Bild


Betrifft: Danke, damit komme ich klar..oT
von: Jochen
Geschrieben am: 02.12.2003 23:14:13

oT


Bild

Beiträge aus den Excel-Beispielen zum Thema " Benutzerdefinierte Eigenschaft zur Laufzeit"