Servus Community,
ich bin gerade am verzweifeln. Versuche mit CustomProperties ein Integer Wert
festzulegen. Dieser soll je nach Userformsteuerung sich ändern, so dass ich mit diesen Wert später rechnen kann.
Wenn ich die Userform öffne kommt "Laufzeitfehler 5 Ungültiger Prozeduraufruf oder ungültiges Argument". Ich weiß aber, das ich das so ähnlich schon mal gelöst hatte.
Evtl. hat ja jemand eine Idee :?: wäre sehr dankbar.
Viele Grüße
Martin
ich bin gerade am verzweifeln. Versuche mit CustomProperties ein Integer Wert
festzulegen. Dieser soll je nach Userformsteuerung sich ändern, so dass ich mit diesen Wert später rechnen kann.
Wenn ich die Userform öffne kommt "Laufzeitfehler 5 Ungültiger Prozeduraufruf oder ungültiges Argument". Ich weiß aber, das ich das so ähnlich schon mal gelöst hatte.
Code:
Sub UserForm_Activate() Dim AnZahl As Integer AnZahl = ActiveWorkbook.CustomDocumentProperties("Anz").Value Select Case AnZahl Case 1 UgH.Opt = True Case 2 UgH.Opt = False End Select End Sub Sub CMD_CLOSE_click() UgH.Hide If UgH.Opt = True Then ActiveWorkbook.CustomDocumentProperties("Anz").Value = 1 Else ActiveWorkbook.CustomDocumentProperties("Anz").Value = 2 End If Cells(Anz, 3).Select End Sub
Evtl. hat ja jemand eine Idee :?: wäre sehr dankbar.
Viele Grüße
Martin
Comment