Hallo Frank,
hab ich doch gerade tatsächlich nen Schrecken bekommen. Öffne
die Mappe,sehe das in der ComboBox „Nix machen“ steht und
dennoch stehen Werte immer noch in der Bonusspalte.
Gottseidank falscher Alarm. Es läuft alles…fg
sorry, ich hab nur die Teilnehmerdaten on dir übernommen aber nicht die jeweils gültigen Comboboxwerte.
Aber durch paar Klicks in die Comboboxn leicht zu beheben 
Modul 3 jedoch ist immer noch ein Rätsel für mich(No Plan).
Erkläre ich untenstehend.
Nun zu deinen beiden ComboBoxen. Da es zu 95% immer mind. 7
Runden sind,bringen sie mir nicht wirklich was. Da fand ich
das mit der nur einen sichtbaren Runde viel besser. Das dazu.
Das ist okay. Dann kram ich die Version wieder aus mit nur einer sichtbaren Runde.
Aber da das ja nur die angezeigte Runde ist so bleibt natürlich in einem andeen Blatt im Hintergrund die bisherige Tabbi bestehen. Also alles was da getan wurde an Codes/Formeln ist genauso wichtig wie jetzt.
Welche Hilfsspalten meinst Du genau? Im Moment habe ich gar
keine davon.Sind bestimmt noch die Alten.
Ich meinte die auf deinem Zusatzblatt wo du den Rang bestimmst, da teilst du durch 100000 o.ä. in Hilfsspalten.
Deine Formel in der Platzberecnung „Solo“ hab ich auch,nützt
mir aber nichts,da bei mir ja gleichwertige Ränge vorkommen
können und die auch noch fortlaufend, sprich ohne Lücken.
Welche Platzverteilung willst du bei gleicher Punktzahl?
1,2,2,2,3,4
oder
1,2,2,2,5,6
oder etwas anderes?
Mir schwebt da eher folgender Lösungsansatz vor :
{=INDEX($DH$13:blush:DH$166;VERGLEICH(INDEX($E$13:blush:E$166;VERGLEICH(K
GRÖSSTE(ZÄHLENWENN($DG$13:blush:DG$166;"Function RSumme(ByRef Zelle As Range) As Integer
Dim N
For N = 1 To 15
RSumme = RSumme + Zelle.Offset(0, (N - 1) * 7).Value
Next
End Function
ist eine eigene Funktion die eine spezielle Formel bildet.
Für einen Solo spieler bräuchtest du die Summe von
J13 + Q13 +… + DD13
dann schreibst du als Formel nur noch:
=RSumme(J13)
Das klappt genauso für Pchen- und Tischsummen.
Mit der nachstehenden Prozedur „Formeln“ erstelle ich hinten in „tabbi“ die ganzen Summen- und Rangformeln, Solonamen, Pchennamen Tischnamen.
Ich habe eben da noch was ergänzt, ersetze bite die bestehende Prozedur durch diese Version.
Zu Cells und Range, hier erschien es mir zweckmäßiger Range zu benutzen:
.Range(„DJ“ & Zei).Formula = „=RANK(DK“ & Zei & „,$DK$13:blush:DK$166)“
Da ist es damit leichter sofort zu sehen daß da in
DJx eine Formel reinkommt die den Rang von DKx in Spalte DK berechnet.
Rank ist der Rang im engl. Excel, dort ist das Trennungszeichen in Formeln das Komma nicht das Semikolon.
Formula bedeutet engl. Schreibweise (weltweit)
Formulalocal deutsche Schreibweise (hier in D)
Sub Formeln()
Dim Zei As Long, Z As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Worksheets("Tabbi")
For Zei = 13 To 163 Step 5
' Teilnehmer, Summe und Rang für Solo
For Z = 0 To 3
.Range("DI" & Zei + Z).Formula = "=E" & Zei + Z
.Range("DH" & Zei + Z).Formula = "=RSUMME(J" & Zei + Z & ")"
.Range("DG" & Zei + Z).Formula = "=RANK(DH" & Zei + Z & ",$DH$13:blush:DH$166)"
Next Z
' Teilnehmer, Summe und Rang für Pchen
.Range("DL" & Zei).Formula = "=E" & Zei & "&"" / ""&E" & Zei + 2
.Range("DL" & Zei + 2).Formula = "=E" & Zei + 1 & "&"" / ""&E" & Zei + 3
.Range("DK" & Zei).Formula = "=RSUMME(K" & Zei & ")"
.Range("DK" & Zei + 2).Formula = "=RSUMME(K" & Zei + 2 & ")"
.Range("DJ" & Zei).Formula = "=RANK(DK" & Zei & ",$DK$13:blush:DK$166)"
.Range("DJ" & Zei + 2).Formula = "=RANK(DK" & Zei + 2 & ",$DK$13:blush:DK$166)"
' Teilnehmer, Summe und Rang für Tisch
.Range("DO" & Zei).Formula = "=E" & Zei & "&"" / ""&E" & Zei + 1 \_
& "&"" / ""&E" & Zei + 2 & "&"" / ""&E" & Zei + 3
.Range("DN" & Zei).Formula = "=RSUMME(L" & Zei & ")"
.Range("DM" & Zei).Formula = "=RANK(DN" & Zei & ",$DN$13:blush:DN$166)"
Next Zei
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub