Thema Datum  Von Nutzer Rating
Antwort
Rot CustomDocumentProperties
20.02.2015 10:58:39 Andy
NotSolved
20.02.2015 11:25:41 Holger
NotSolved
20.02.2015 17:50:28 Andy
NotSolved
21.02.2015 11:27:22 Trägheit
*****
Solved
23.02.2015 08:17:37 Andy
NotSolved

Ansicht des Beitrags:
Von:
Andy
Datum:
20.02.2015 10:58:39
Views:
1267
Rating: Antwort:
  Ja
Thema:
CustomDocumentProperties

Hallo zusammen,

ich erstelle gerade ein Excel Dokument in das über drei Userforms Daten eingegeben werden können.

Es handelt sich hierbei um eine Übersicht über Reklamationsfälle. Zuerst soll das Produktionswerk über ein Userform ausgewählt werden. Dazu haben ich OptionButtons benutzt. Die Auswahl möchte ich in der Eigenschaft "Werk" speichern um darüber später die Bereiche auszuwählen in die die Daten geschrieben werden sollen.


Sub CommandButton1_Click()

Dim p As Variant
 
If OptionButton1 = True Then p = 1
If OptionButton2 = True Then p = 2
If OptionButton3 = True Then p = 3

       
If ActiveWorkbook.CustomDocumentProperties("Werk") Is Nothing Then

    ActiveWorkbook.CustomDocumentProperties.Add _
        Name:="Werk", LinkToContent:=False, Value:=p, _
        Type:=msoPropertyTypeNumber
Else
        ActiveWorkbook.CustomDocumentProperties("Werk") = p
End If

Me.Hide

EingabeKennzahlen.Show


End Sub

 

Bei der Fett markierten Zeile tritt dann der Fehler Laufzeitfehler '5 Ungültiger Prozeduraufruf oder Ungültiges Argument auf.

Den Code hatte ich vorher extra in einem anderen Dokument getestet, da lief das ganze ohne Fehler durch.

Könnt Ihr mir helfen? Ich habe mir VBA bis jetzt komplett selbst beigebracht, deshalb bitte ich um Nachsicht. :)

 

Vielen Dank im Vorraus

Gruß Andy

 


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
Rot CustomDocumentProperties
20.02.2015 10:58:39 Andy
NotSolved
20.02.2015 11:25:41 Holger
NotSolved
20.02.2015 17:50:28 Andy
NotSolved
21.02.2015 11:27:22 Trägheit
*****
Solved
23.02.2015 08:17:37 Andy
NotSolved