Punktetabelle für Turniere

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Michael,
wollte nur sichergehen, dass wir das selbe meinen.
Probier mal folgenden Code:

Option Explicit
Sub Zusammenfassen()
Dim rStart      As Range        'Zelle des ersten Namens
Dim lZeile      As Long
Dim lZeile1     As Long
Dim lSpalte     As Long
With Sheets("Homegametabelle")
Set rStart = .Range("D5")   'Ev. anpassen
For lZeile = rStart.Row To rStart.End(xlDown).Row
For lZeile1 = lZeile + 1 To rStart.End(xlDown).Row
If .Cells(lZeile, 4) = .Cells(lZeile1, 4) Then
For lSpalte = .Columns("I").Column To .Cells(lZeile1, _
.Columns.Count).End(xlToLeft).Column
If .Cells(lZeile1, lSpalte)  "" Then
.Cells(lZeile, lSpalte) = .Cells(lZeile, lSpalte) + _
.Cells(lZeile1, lSpalte)
.Cells(lZeile1, lSpalte) = ""
End If
Next lSpalte
.Cells(lZeile1, .Columns("D").Column) = ""
End If
Next lZeile1
Next lZeile
End With
End Sub

Dieser Code geht die Namensspalte bis zur ersten leeren Zelle durch und vergleicht diese mit allen darunter liegenden Namen (auch wieder bis zur ersten leeren Zelle). Wird ein solcher gefunden, werden alle Punkte ab Spalte I hinauf kopiert und gelöscht. Dann wird der Name selbst gelöscht.
Länderflaggen, Pokale, Orden uä bleiben unberührt. Weiss dzt. nicht, wie man sowas behandelt.
Anmerkung:
Vernachlässige nicht die erste Zeile "Option Explicit". In Deinem Beispiel war sie nicht drinnen.
Sie verhindert das Ausführen von Codes mit undeklarierten Variablen. Nicht, dass es ohne dem nicht geht, aber oft sind Fehler beim Programmieren durch diese Kontrolle vermeidbar. Entweder Du schreibst zu Beginn eines jeden Moduls "Option Explicit", oder Du lässt es automatisch machen, indem Du bei Extras, Optionen "Variablendeklaration erforderlich" wählst (empfehlenswert).
Funktioniert es?
LGB

Hi Barbara,
Ich habe bei meiner gestrigen Recherche leider nicht herausgefunden, wie man in der UserForm einem Textfeld einen definierten Zahlenwert zuweisen kann. (z.B. Spieler auf Platz (bzw. in Textfeld) 1 = 10(Punkte))
Die Länderflaggen, Orden usw. werden durch mein eigenes Makro korrekt transportiert, stellt also kein Problem dar.(Das Ausführen Deines Makros verursacht in der jetzigen leeren Tabelle zwar einen Absturz von Excel, aber bei meiner Originaltabelle funktioniert es einwandfrei!Ich schätze mal das Makro rödelt sich kaputt, weil zuwenig Daten vorhanden sind)
Kann man eigentlich mit drücken des CommandButtons in der UserForm die beiden Makros (sortieren der Gesamtpunkte, doppelte Spielernamen zusammenführen) und das Eintragen der Textfeldinhalte in die Tabelle gleichzeitig ausführen?
Könntest Du mir bitte nur für ein einziges Textfeld den Code schreiben? Also so das die Punkte vom Spieler D5 in I5 erscheinen? (10 Punkte). Also 1. Spieltag 1. Turnier.
(UserForm ist im 2. Tabellenblatt vorhanden und da bitte den Code für das erste Textfeld.
(Die Spielernamen enthalten oft Zahlen und Sonderzeichen!) Das würde mir wirklich sehr helfen! Ich kann mir den Rest dann für alle anderen Turniere und Spieltage kopieren und anpassen und wäre endlich mit der Tabelle fertig!(bastle seit dem 06.07. dran!!!)
https://www.herber.de/bbs/user/122855.xlsm
Gruß
Michael

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Punktetabelle für Turniere

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread