|
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
|