For-Each-Next-Schleife
21.10.2002 23:52:34
Peter
ich möchte ein Userform namens "UserformEinstellung" nach einem OptionButton durchsuchen, desse Value-Eigenschaft True ist. Wenn dem so ist soll die Caption-Eigenschaft eben dieses OptioButtons in einer String-Variable gespeichert werden. Wenn ich wie unten aufgelistet vorgehe bekomme ich aber ständig einen Laufzeitfehler 13 Typen unverträglich in der Zeile, in der die For Each Next Schleife beginnt.
Ich komme nicht dahinter, was hier falsch ist.
Vielen Dank für Eure Hilfe !!
Gruß Peter
Sub GefragtWertBring(WertNummer As Integer, Wert As Single) 'KleinsteEinheit As Single, TickValue As Single)
Dim StrVar As String
Dim OptBt As OptionButton
Dim I As Integer
Dim GefragtWert As Single
I = 1
For Each OptBt In UserformEinstellung.Controls
If OptBt.Value = True Then
StrVar = OptBt.Caption
End If
I = I + 1
Next OptBt
PlatzAusmach StrVar, WertNummer, GefragtWert:=GefragtWert GefragtWert2:=GefragtWert2 'Aufruf
Wert = GefragtWert
'TickValue = GefragtWert2
End Sub
Anzeige