Office: (Office 2007) VBA: Mehrere If-Schleifen, entweder oder

Mahlzeit,

ich hab mal wieder nen Problem.

Mein Makro berechnet so schon wunderbar was es soll, und am Ende soll mit einer MsgBox eine Textausgabe erfolgen.

Es gibt die folgenden drei Möglichkeiten:

entweder es ist alles ok, dann soll nur "Fertig" ausgegeben werden.
ein Wert ist kleiner der Vorgabe, dann soll zusätzlich "Speicher zu groß",
oder ein Wert ist größer der Vorgabe, dann "Speicher zu klein" ausgegeben werden.

Im Moment läuft das mit eigenen If-Abfragen, was auch funktioniert. Jedoch wird im 2ten und 3ten Fall nach dem "Fertig" ein neue Textbox aufgemacht, was natürlich nicht so richtig elegant ist.

Wie bekomme ich das zusammengefasst, dass je nach Ergebnis eine Ausgabe erfolgt?

''If Range("K30").Value "" And FüllstandMax > 105 Then Start = False: MsgBox "Speicher zu klein"

''If Range("K30").Value "" And FüllstandMax < 80 Then Start = False: MsgBox "Speicher zu groß"

''If Range("K30").Value "" Then Start = False: MsgBox "Fertig"

Danke!

:)

 

arbeite mit elseif da nur ein Fall zutrifft.

 

Moin Hajo,

ungefähr so?

If Range("K30").Value "" And FüllstandMax > 105 Then Start = False: MsgBox "Speicher zu klein"
ElseIf Range("K30").Value "" And FüllstandMax < 80 Then Stat = False: MsgBox "Speicher zu groß"
ElseIf Range("K30").Value "" Then Start = False: MsgBox "Fertig"
End If

Funktioniert leider nicht, da bekomme ich die Fehlermeldung Else ohne If in der ersten ElseIf Zeile.

Wo liegt da der Fehler?

Danke!

 

du solltest nach then enter machen.

 

Super Hajo,

das Leben kann so einfach sein...

mit

If Range("K30").Value "" And FüllstandMax > 105 Then
Start = False: MsgBox "Speicher zu klein"
ElseIf Range("K30").Value "" And FüllstandMax < 80 Then
Start = False: MsgBox "Speicher zu groß"
ElseIf Range("K30").Value "" Then
Start = False: MsgBox "Fertig"
End If

funktioniert es wunderbar.

Vielen Dank, klasse!