Ich habe ein UserForm mit zwei verschiedenen OptionButton-Frames.
Je nachdem was ausgewählt wird sollen Kürzel in zwei verschiedene Zellen einer
Tabelle übertragen werden. Die ArtFrame-Option in Zelle A1 und die ZustandFrame-Option in Zelle B1.
Das funktionierte prima solange ich nur einen OptionFrame hatte.
Seit ich aber den zweiten eingebaut habe, steht in A1 und B1 immer das Gleiche.
Wie muß ich meinen Code ändern, damit zwei verschiedene Werte übertragen werden?
Das ist mein Code:
For Each ObCb In MultiPage1.Pages(0).Controls
If TypeName(ObCb) = "OptionButton" Then
If ArtFrame.Art_KM.Value = True Then .Cells(LoLetzte, ObCb.Tag) = "KM"
If ArtFrame.Art_GM.Value = True Then .Cells(LoLetzte, ObCb.Tag) = "GM"
If ZustandFrame.Zustand_UM.Value = True Then .Cells(LoLetzte, ObCb.Tag) = "UM"
If ZustandFrame.Zustand_ST.Value = True Then .Cells(LoLetzte, ObCb.Tag) = "ST"
If ZustandFrame.Zustand_PP.Value = True Then .Cells(LoLetzte, ObCb.Tag) = "PP"
End If
Next ObCb
LoLetzte berechnet die letzte freie Zeile der Tabelle und im ObCb.Tag der
OptionButtons steht die Spaltenbezeichnung in die dann übertragen werden soll.
In meinem Fall steht im Tag der Art-Optionen "A" und im Tag der Zustand-Optionen "B". Trotzdem erscheint in der Tabelle in beiden Zellen das, was im ZustandFrame ausgewählt wurde. Meine Tag´s stimmen ganz sicher.
Könnt ihr mir bitte helfen?
Chris