Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2019 12:11:11 |
Timestheus |
|
|
|
13.12.2019 12:45:09 |
Timestheus |
|
|
Excel VBA - Zugriff auf benutzerdefinierte Felder |
26.12.2019 05:47:19 |
Burkhard |
|
|
|
26.12.2019 14:29:44 |
Gast6582 |
|
|
Von:
Burkhard |
Datum:
26.12.2019 05:47:19 |
Views:
497 |
Rating:
|
Antwort:
|
Thema:
Excel VBA - Zugriff auf benutzerdefinierte Felder |
Hallo,
das kann auch gar nicht hinhauen, wenn ich mir so Deine Beispielzeilen ansehe. Mit
Range("C2").Value = DocProps("Mein_DokTitel")
Range("D1").Value = DocProps("Mein_DokNummer")
fragst Du auf gar keinen Fall Standardeigenschaften (BuiltinDocumentProperties) einer Excel Workbook-Datei ab, sondern bestenfalls die Erweiterten Dokumenteneigenschaften! Und die sind nun mal nicht in der BuiltinDocumentProperties Collection, sondern in der CustomDocumentProperties Collection jedes Workbook Objekts abgelegt! Versuchs mal mit meiner Variante (ungetestet in diesen "Krüppel-Online-Editor" getippt :-)
Function DocProps(prop As String, Optional tbBuildIn As Boolean)
On Error GoTo ErrorHandler
Dim lnErrVal As Integer
lnErrVal = 0 ' kein Fehler
If prop <> ""
If tbBuildIn then
DocProps = ActiveWorkbook.BuiltinDocumentProperties(prop)
else
DocProps = ActiveWorkbook.CustomDocumentProperties(prop)
end if
else
err.raise 1010 ' irgend eine Zahl über 1004
endif
If lnErrVal > 0
' Fehlerauswertung und Rückgabe eines _echten_ Fehlerwerts, _
falls die Funktion auch direkt in ein Sheet zurückschreiben soll
Select Case Err.Number
Case 5
DocProps = CVErr(xlErrValue)
Case 1010
DocProps = CVErr(xlErr.........) ' kram dir eine passende Konstante raus
Case Else
DocProps = CVErr(xlErr.........) ' dito
End Select
End If
Exit Function '---------------------------------------------------->>>
ErrorHandler:
lnErrVal = Err.Number
Resume Next
End Function
Hope that helps!
Cheers :-)
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2019 12:11:11 |
Timestheus |
|
|
|
13.12.2019 12:45:09 |
Timestheus |
|
|
Excel VBA - Zugriff auf benutzerdefinierte Felder |
26.12.2019 05:47:19 |
Burkhard |
|
|
|
26.12.2019 14:29:44 |
Gast6582 |
|
|