Werte aus UserForm übertragen

Hallo,
ich möchte die Werte aus der Userform in eine Zelle übertragen
Die Wahl "Tankversion" oder "Festwasser" ist optional
Dann wird in dem zweiten Feld das fehlende Zubehör ausgewählt.
zb bei der Auswahl von Festwasser und Siebträger erscheint
Festwasser - Ohne : Siebträger
so ist es erwünscht.
Aber wenn in dem zweiten Feld nichts (Siebträger) eingeben wird sollte
nur "Festwasser" erscheinen ... aber es wird "Festwasser - Ohne : " ausgegeben.
Wir kann ich es machen dass wenn im Bereich S1 bis S2 ( in der normalen Version gehen es bis S12 )
nicht eingegeben wird nur der Wert der ersten Auswahl ausgegeben wird.
Siehe Testdatei (https://www.herber.de/bbs/user/135928.xlsm)
Gruß
Sabbel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If CBool(Tankversion.Value) And CBool(S1.Value) = True Or CBool(S2.Value) = True Then k = " Tankversion - Ohne:" End If If CBool(Tankversion.Value) And CBool(S1.Value) = False And CBool(S2.Value) = False Then k = " Tankversion" End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ If CBool(Festwasser.Value) And CBool(S1.Value) = True Or CBool(S2.Value) = True Then k = " Festwasser - Ohne:" End If If CBool(Festwasser.Value) And CBool(S1.Value) = False And CBool(S2.Value) = False Then k = " Festwasser" End If

Hallo, hier die überarbeitet Version

Private Sub CommandButton1_Click()
Dim MyString$ '( $ = String )
If Not S1 And Not S2 And Not Tankversion And Not Festwasser Then
Tabelle1.Range("E14").ClearContents
Unload UserForm6
Exit Sub
End If
'S1 und oder S2
If S1 Then MyString = S1.Caption
If S2 Then MyString = S2.Caption
If S1 And S2 Then MyString = S1.Caption & ", " & S2.Caption
'Tankversion
If Tankversion Then MyString = Tankversion.Caption
If Tankversion And S1 Then MyString = Tankversion.Caption & " Ohne " & S1.Caption
If Tankversion And S2 Then MyString = Tankversion.Caption & " Ohne " & S2.Caption
If Tankversion And S1 And S2 Then MyString = Tankversion.Caption & " Ohne " & S1.Caption & ", "  _
& S2.Caption
'Festwasser
If Festwasser Then MyString = Festwasser.Caption
If Festwasser And S1 Then MyString = Festwasser.Caption & " Ohne " & S1.Caption
If Festwasser And S2 Then MyString = Festwasser.Caption & " Ohne " & S2.Caption
If Festwasser And S1 And S2 Then MyString = Festwasser.Caption & " Ohne " & S1.Caption & ", " &  _
S2.Caption
'Ausgabe in Zelle
Range("E14") = MyString
Unload UserForm6
End Sub

Einfach den Code ersetzen.
Das scheint mir jedenfalls einfacher lesbar zu sein ;-)
S1 & S2 sind nun wieder generell Enabled = True
https://www.herber.de/bbs/user/135930.xlsm
Rückmeldung wäre nett ...
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus UserForm übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread