der schlechteste fängt an

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
es ist leider so, dass mir noch nicht geholfen wurde.Und wenn ich hier aus unwissenheit irgendjemand auf die Füsse getreten hab, weil ich die gleiche Frage in einem anderen Forum gestellt hab, tut mir das leid.Das war nicht meine Absicht.
Also der Code ohne verbundene Zellen in Zeile 2 und 27 ist folgender:

Private Sub CommandButton7_Click()
Dim varPlayers As Variant, varNew() As Variant, varRet As Variant
Dim lngCol As Long, lngIndex As Long
With ActiveSheet
If Application.CountA(.Range("B2:I2")) > 1 And Application.Max(.Range("B27:I27")) > 0 Then
lngCol = Application.Max(2, .Cells(2, .Columns.Count).End(xlToLeft).Column)
varPlayers = .Range(.Cells(2, 2), .Cells(2, lngCol))
varRet = Application.Match(Application.Max(.Range("B27").Resize(1, lngCol - 1)), _
.Range("B27").Resize(1, lngCol - 1), 0)
If IsNumeric(varRet) Then
If varRet > 1 Then
ReDim varNew(1 To 1, 1 To UBound(varPlayers, 2))
For lngIndex = 1 To UBound(varPlayers, 2)
varNew(1, lngIndex) = varPlayers(1, varRet)
varRet = varRet + 1
If varRet > UBound(varPlayers, 2) Then varRet = 1
Next
.Range("B2").Resize(1, UBound(varPlayers, 2)) = varNew
End If
.Range("B3:i26") = ""
End If
End If
End With
End Sub

Dieser Code funktioniert perfekt... Aber wie beschrieben möchte ich den Punktestand zu jedem Wurf in den Zeilen 3 bis 26 zusätzlich anzeigen. Quasi jeweils eine Spalte dazwischen setzen und die Zellen im Namensfeld(Zeile 2) und im Ergebnissfeld (Zeile 27) verbinden.
Für einen Hinweis wo ich das im Code anpassen müsste wäre ich sehr dankbar.
Einen schönen Tag noch... gruß Ulli

Hallo,
ich hab mir deinen bisherigen Code mal angesehen, und für deinen Fehler war diese Codezeile verantwortlich.

.Range("B3:P26") = ""

Du wolltest darin Zellen löschen, welche gesperrt sind.

.Range("B3:B26") = ""
.Range("D3:D26") = ""
.Range("F3:F26") = ""
.Range("H3:H26") = ""
.Range("J3:J26") = ""
.Range("L3:L26") = ""
.Range("N3:N26") = ""
.Range("P3:P26") = ""

Ich habs abgeändert, dass er jede Spalte einzeln löscht.
Dann war ja dein Hauptproblem, dass mit dem sortieren (falls ich mich nicht irre)
Ich hab es jetzt soweit gelöst, dass immer der mit den meisten Restpunkten in Zelle B2 steht, die Reihenfolge bleibt aber erhalten.
Das ganze ist aber darauf ausgelegt, dass 8 Spieler mitspielen, sonst hast du eine leere Spalte.
Falls du nur 2-7 Spieler hast, und die leere Spalte nicht haben möchtest, müsstest du zuerst abfragen wieviele Leute dabei sind und das dann dementsprechend ergänzen.
https://www.herber.de/bbs/user/133094.xlsm
Ich hoffe ich konnte helfen
Grüße
Stefan

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

der schlechteste fängt an

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread