Thema Datum  Von Nutzer Rating
Antwort
13.12.2019 12:11:11 Timestheus
NotSolved
13.12.2019 12:45:09 Timestheus
Solved
Rot Excel VBA - Zugriff auf benutzerdefinierte Felder
 26.12.2019 05:47:19 Burkhard
NotSolved
26.12.2019 14:29:44 Gast6582
NotSolved

Ansicht des Beitrags:
Von:
Burkhard		 Datum:
26.12.2019 05:47:19		 Views:
495		 Rating:
     
Antwort:
  Ja
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 :-)

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
13.12.2019 12:45:09 Timestheus
Solved
Rot Excel VBA - Zugriff auf benutzerdefinierte Felder
 26.12.2019 05:47:19 Burkhard
NotSolved
26.12.2019 14:29:44 Gast6582
NotSolved