Dieser Code treibt mich noch in den Wahnsinn

Computer: Software & Programmierung Visual Basic
16

Guten Morgen Thomas,

Kannst Du uns bitte auch noch sagen, was genau der Code
bewirken soll?
Denn nur wenn wir den Hintergrund des Codes, also das was er
genau macht, verstehen, können wir dir auch besser helfen.

Das will ich gerne tun.

Ich versuche einfach mal zu interpretieren…

Public Sub QsTisch()
Dim i As Long
For i = 13 To 166 Step 5

Hier gehsT Du ab Zile 13 in 5-er Schritten alle Zeilen-Blöcke
durch (in nehme an das sind die einzelnen Tische)

Genauso ist es.

:If Qsum(Sheets(1).Cells(i, 6).Value + Sheets(1).Cells(i + 1,


> 6).Value + Sheets(1).Cells(i + 2, 6).Value + Sheets(1).Cells(i  
> + 3, 6).Value) = Sheets(1).Cells(8, 7).Value Then

Zählst die gemachten Punkte zusammen und berechnest die
Quersumme der Summe dieser 4 Werte.

So sollte es eigentlich funktionieren.

Diese Quersumme vergleichst Du dann mit dem Wert der Zelle G8.
Stimmt der Wert überein, wird der Wert aus der ersten Zeile
des Pblockes Spalte I in die Zelle K2 geschrieben.

Nein,genau umgedreht,der Wert aus K2 wird bei Übereinstimmung in die erste Zeile der Spalte I geschrieben.

:Sheets(1).Cells(i, 9).Value = Sheets(1).Cells(2, 11).Value


> End If  
> Next i

Das geht dann so weiter, bis alle Tische abgearbeitet sind.

Richtig,und das soll dann je nach Bedarf für jede Runde geschehen,jenachdem was im Dropdown-Feld ausgewählt wird

End Sub

Was soll denn der Code genau tun - am Ende steht (bei
Übeeinstimmung der Quersumme) der Wert des letzten Tisches in
der genannten Zelle.

Eigentlich das,wie von mir beschrieben.Und das macht der Code ja auch bei mir in der Mappe
Habe das auf der Basis der Erklärung von Andreas- siehe hier
/t/was-bedeutet-der-code-zu-deutsch-und-im-einzelnen…
für den Pchen-Code entsprechend auf den Tisch angepasst(den fehler hab ich geändert)

Und so hoffe ich, Schritt für Schritt weiter zu kommen un die
restlichen Funktionen auch irgendwie zustande zu bringen.

Wir unterstützen dich auch gerne dabei, aber dafür müssen wir
wissen welche Berehnungen Du denn genau anstellen willst -
also die mathematischen Hintergrunde und/oder Rechenregeln,
die Du verwenden willst/musst.

Es geht immer um Quersumme,Primzahl und teilbar durch. Mal als Solo(jede zelle für sich),mal als Pchen(F13+F15 usw.) und mal als Tisch(F13-F16). Je nachdem,was im Dropdown-Feld steht.

LG Frank