Hey Leute,
ich habe ein Problem bei auslesen einer Zelle
ich füge mit „OptionButton1“ den Text ein, den der „OptionButton1“ hat
(Auszug aus meinem Code)
…
…
If OptionButton1 = True Then
ActiveCell = OptionButton1.Caption
…
…
Jetzt lese ich die Zelle wieder aus und füge einen 2. OptionButton ein
…
...
...
If ActiveCell.Text = OptionButton1.Caption Then
If OptionButton2 = True Then
ActiveCell = ActiveCell.Text & Chr(10) & OptionButton2.Caption
…
…
…
…
Jetzt mein Problem:
Ich möchte gerne noch einmal die Zelle auslesen und einen 3. Optionsbutton Text einfügen,
aber irgendwie bekomme ich das nicht hin.
Es kommt immer eine Fehlermeldung (Laufzeitfehler 13)
Ich habe es mit folgendem Code versuch (und Abwandlungen)-leider alles Ohne erfolg
…
…
…
If ActiveCell.Text = OptionButton1.Caption And OptionButton2.Caption Then
If OptionButton3 = True Then
ActiveCell = ActiveCell.Text & Chr(10) & OptionButton3.Caption
End If
…
…
…
Leider funktioniert das nicht so ich es mir gedacht habe.
Kann mir jemand helfen, eine Lösung zu meinem Problem zu finden?
Danke schon einmal im Voraus und schönes Wochenende an alle
Grüße Klaus