Ich würde gerne die Auswahl von 3 Optionsfeldern in einer Userform in eine Excel Spalte übertragen.
Dabei soll wenn keine Auswahl getroffen wurde eine Fehlermeldung kommen.
Kann mir bitte jemand den Code dafür bekannt geben?
Vielen Dank!
Mfg
leito
If Listbox1.Listindex = -1 then
Msgbox "Bitte einen Wert auswählen"
Else
Range("A1"). Value = Listbox1.value
End if
Bei Optionbuttons müsstest du jeden einzelnen abfragen, was aufwendig wirdif Optionbutton1 Then
Range("A1").value = Wert1
Elseif Optionbutton2 Then
Range("A1").value = Wert2
Elseif Optionbutton3 then
Range("A1").value = Wert3
Else
Msgbox "Bitte Wert auswählen"
End if
Gruß DanielIf OptionButton1 Or OptionButton2 Or OptionButton3 Then
msgbox "mach dies"
Else
msgbox "Bitte erst eine Option wählen"
End If
Gruß ...