VBA Verschiedene "If"s mit gleichem "Else"?

[Sindri]

Hi,
gibt es ne Möglichkeit mehrere If-Formeln zu haben die unterschiedliche thens haben aber das gleiche else?

Oder ist es das gleiche wenn ich einfach beim else immer schon ein goto reinwerf?
Es kommt mir halt darauf an den Code möglichst übersichtlich zu halten.

Im Moment geht es um ne Kniffel-Highscore wo überprüft wird ob die Punkte für den ersten Reichen oder nur für den Zweiten/Dritten oder eben garnicht.

Danke schonmal

edit das wären 3 Formeln alá
If [r26] > [x17] Then
Name = InputBox("Bitte ihren Namen eingeben", "Sie sind erster!")
[x17] = [r26]
[w17] = Name

Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""
Else
Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""
End If

Nochmal edit:
Oder kann ich die einfach wie in Excel verketten?

ein letztes Edit :D :
Probieren geht über studieren :rolleyes:
Habs jetzt sogemacht:
If [r26] >= [x17] Then
Name = InputBox("Bitte ihren Namen eingeben", "Sie sind erster!")
[x17] = [r26]
[w17] = Name

Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""
Else

If [r26] >= [x18] Then
Name = InputBox("Bitte ihren Namen eingeben", "Sie sind zweiter!")
[x18] = [r26]
[w18] = Name

Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""
Else
If [r26] >= [x19] Then
Name = InputBox("Bitte ihren Namen eingeben", "Sie sind dritter!")
[x19] = [r26]
[w19] = Name

Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""

Else
Range("haltemarken") = ""
Range("Punkte") = ""
Range("Zahlen") = ""
Range("zähler") = 1
Range("Blockade") = ""
End If
End If
End If
Verbesserungs Vorschläge?
Wenn nicht kann der Thread zermüllt/geschloßen werden

[ravage]

Du kannst auch sowas schreiben:

If <bedingung1> Then
<mache dies>
ElseIf <bedingung2> Then
<mache das>
ElseIf <bedingung3> Then
<mache jenes>
Else
<mache ditte>
End If

Wenn ich mich recht erinner, müsste das passen

[Tech_FREAK_2000|GS]

gibt es bei VBA kein Case Statement?

[Sindri]

Ich hab atm ein Prob mit Excel. Die Makros werden nicht mehr ganz ausgefürht, gestern gings noch (zB. ändert er die Schrift von Knöpfen nicht mehr, bzw. nicht bei allen) und wenn ich einen neuen Knopf und dem ein Makro zuweisen will, sagt er mir immer(!) das die Formel zu komplex sei für die Zuweisungung zu einem Objekt.

Auch wenn das ein alter Knopf ist dem ich ein neues Makro zuweisen will, kommt die Meldung
Weiß einer von euch wo drann das liegen könnte? Ich nutze Office XP