Office: 2 mal If -Funktion in einer Anweisung funktioniert nicht

Kann mir jemand auf die Sprünge helfen?
Habe in dieser Anweisung zwei mal eine If-Funktion verbaut.
Diese sollen getrennt voneinander funktionieren.
Die letzte If-Funktion soll sich nur auf diesen Bereich von ComboBox13 konzentrieren, stattdessen schleppt sie die erste If-Funktion vor sich her.

Vielleicht steh' ich auch vor lauter Schreiberei im Moment auf'm Schlauch?
Gruß timi

Private Sub CommandButton5_Click()
'z ist Wert aus ComboBox1 und zugleich der Tabellenblattname
z = ComboBox1.Value
'wenn CB5 größer null-komma-nix, dann......
If ComboBox5.Value > "" Then
'Wert aus ComboBox(en) in jeweilige Zelle(n) des Tabellenblatts (z) eintragen!
x = Worksheets(z).Range("F65536").End(xlUp).Row
Worksheets(z).Cells(x + 1, 6) = ComboBox13.Value
Worksheets(z).Cells(x + 1, 7) = ComboBox14.Value
Worksheets(z).Cells(x + 1, 8) = ComboBox15.Value
Worksheets(z).Cells(x + 1, 10) = ComboBox17.Value
Worksheets(z).Cells(x + 1, 11) = ComboBox18.Value
Worksheets(z).Cells(x + 1, 12) = ComboBox19.Value
Worksheets(z).Cells(x + 1, 13) = ComboBox20.Value
Worksheets(z).Cells(x + 1, 14) = ComboBox21.Value
Worksheets(z).Cells(x + 1, 15) = ComboBox22.Value
Worksheets(z).Cells(x + 1, 16) = ComboBox23.Value
Worksheets(z).Cells(x + 1, 17) = ComboBox24.Value
Worksheets(z).Cells(x + 1, 18) = ComboBox25.Value
Worksheets(z).Cells(x + 1, 19) = ComboBox26.Value
Worksheets(z).Cells(x + 1, 20) = ComboBox27.Value
Worksheets(z).Cells(x + 1, 21) = ComboBox28.Value
Worksheets(z).Cells(x + 1, 22) = ComboBox29.Value
'sonst
Else
'UserForm:"HinweisKeineAuswahlVorgenommen2" anzeigen
HinweisKeineAuswahlVorgenommen2.Show
'Hinweis: geöffnete UserForm beendet sich autom. nach 4 Sekunden
End If
If ComboBox13.Value < "" Then
HinweisKeinArtikelEingetragen.Show
End If
End Sub

 

Hallo Timi,

ich verstehe das Problem nicht

<pre><span>

<span>' **************************************************************
' Modul: Modul3 Typ = Allgemeines Modul
' **************************************************************</span>

<span>Option</span> <span>Explicit</span>

<span>Private</span> <span>Sub</span> CommandButton5_Click()
<span>'z ist Wert aus ComboBox1 und zugleich der Tabellenblattname</span>
Z = ComboBox1.Value
<span>'wenn CB5 gr&ouml;&szlig;er null-komma-nix, dann......</span>
<span>If</span> ComboBox13.Value &lt; "" <span>Then</span>
HinweisKeinArtikelEingetragen.Show
<span>ElseIf</span> ComboBox5.Value &gt; "" <span>Then</span>
<span>'Wert aus ComboBox(en) in jeweilige Zelle(n) des Tabellenblatts (z) eintragen!</span>
x = Worksheets(Z).Range(<span>"F65536"</span>).End(xlUp).Row
Worksheets(Z).Cells(x + 1, 6) = ComboBox13.Value
Worksheets(Z).Cells(x + 1, 7) = ComboBox14.Value
Worksheets(Z).Cells(x + 1, 8) = ComboBox15.Value
Worksheets(Z).Cells(x + 1, 10) = ComboBox17.Value
Worksheets(Z).Cells(x + 1, 11) = ComboBox18.Value
Worksheets(Z).Cells(x + 1, 12) = ComboBox19.Value
Worksheets(Z).Cells(x + 1, 13) = ComboBox20.Value
Worksheets(Z).Cells(x + 1, 14) = ComboBox21.Value
Worksheets(Z).Cells(x + 1, 15) = ComboBox22.Value
Worksheets(Z).Cells(x + 1, 16) = ComboBox23.Value
Worksheets(Z).Cells(x + 1, 17) = ComboBox24.Value
Worksheets(Z).Cells(x + 1, 18) = ComboBox25.Value
Worksheets(Z).Cells(x + 1, 19) = ComboBox26.Value
Worksheets(Z).Cells(x + 1, 20) = ComboBox27.Value
Worksheets(Z).Cells(x + 1, 21) = ComboBox28.Value
Worksheets(Z).Cells(x + 1, 22) = ComboBox29.Value
<span>'sonst</span>
<span>Else</span>
<span>'UserForm:"HinweisKeineAuswahlVorgenommen2" anzeigen</span>
HinweisKeineAuswahlVorgenommen2.Show
<span>'Hinweis: ge&ouml;ffnete UserForm beendet sich autom. nach 4 Sekunden</span>
<span>End</span> <span>If</span>
<span>End</span> <span>Sub</span>
</span></pre>


Gruß Hajo