MsgBox bei bestimmten Kriterien nicht ausgeben lassen

[Basti5]

Einen schönen Sonntagmorgen Zusammen,
 
ich stehe mal wieder vor einem Problem. Ich habe mir in Excel einen Gebührenrechner erstellt. Diese Gebühren werden anhand eines bestimmten Faktors ausgerechnet (dieser Faktor wird über eine Combo Box eingetragen). Hat man jetzt vergessen diesen Faktor anzugeben, dann erscheint eine MsgBox, mit der Aufforderung diesen noch anzugeben, da sonst die Gebühren nicht ausgerechnet werden können (Code 1).

Jetzt kommt das Problem, sollte eine Honorarvereinbarung bestehen (also ein ausgemachter  Festbetrag für die Tätigkeit) entfällt die Faktor Angabe (Code 2).  Hierbei würde dann auch keine MsgBox benötigt, es gelingt mir aber nicht, diese für den Fall einer Honorarvereinbarung nicht anzeigen zu lassen. (Cells7, 17, ist die Ausgabe des Faktors in der Combo Box).
 
Weiß zufällig jemand, wie dies gehen kann?
 
Viele Grüße und vielen Dank für die Hilfe
 
Basti
 
 
Code 1
'rechnet die Geschäftsgebühr aus = anzusetzende Gebühr mal Faktor
If Worksheets("Gebührenrechner").Cells(19, 3) > 0 And Worksheets("Gebührenrechner").Cells(7, 17) = "" Then
MsgBox "Bitte geben Sie den Faktor ein."
Else
<“Hier werden dann die zu zahlenden Gebühren ausgerechnet“>
 
 
Code 2
'kein Faktor benötigt weil Honorarvereinbarung
If Worksheets("Gebührenrechner").Cells(18, 7) > 0 Then
Worksheets("Gebührenrechner").Cells(7, 17) = " "
End If

[Kuwer]

Hallo,

vielleicht so:

'rechnet die Geschäftsgebühr aus = anzusetzende Gebühr mal Faktor

If Worksheets("Gebührenrechner").Cells(18, 7) > 0 Then

 Worksheets("Gebührenrechner").Cells(7, 17) = 1

End If

If Worksheets("Gebührenrechner").Cells(19, 3) > 0 And Worksheets("Gebührenrechner").Cells(7, 17) = "" Then

 MsgBox "Bitte geben Sie den Faktor ein."

Else

<“Hier werden dann die zu zahlenden Gebühren ausgerechnet“>

Gruß Uwe

[Basti5]

Jip, funktioniert!!! ich verstehe zwar nicht ganz warum, aber die Hauptsache ist, es geht.

Ich bedanke mich vielmals.  :15: 

Gruß 

Basti