Hallo zusammen,
ich hatte die ganze Zeit unten stehenden Codeanfang in meiner Userform stehen. Nun wollte ich diesen Teil und der danach folgt auslagern(über ein Sub und mit Call aufrufen) in ein Modul.
Leider markiert er mir nun "Controls" und bringt folgende Fehlermeldung: "Fehler beim Kompilieren: Sub oder Function nicht definiert"
Dim i As Integer
akennz = -1
For i = 1 To 32
If i = 19 Then
'ignorieren
ElseIf Controls("OptionButton" & CStr(i)).Value Then
akennz = i
TextKommentar = Controls("OptionButton" & CStr(i)).Caption
Exit For
End If
Next
Über eure Hilfe wäre ich sehr Dankbar.
Viele Grüße,
Nicolai