In einer Spielerliste ab gefäbter zelle Spielername tauschen
22.12.2023 01:24:37
lippeud
ich bastel mir gerade ein Kickerprogramm zusammen.
Hier bin ich mal wieder ins stocken geraten. Auf dem Tabellenblatt (User) , soll die möglichkeit geboten werden im laufenden Turnier
über eine Userform einen Spieler durch einen anderen neuen Mitspieler zu ersetzen.
Das laufende Spiel ist in der Liste Farbig markiert. Also sollen nur die Werte (Namen der Spieler) unterhalb und incl. der farbig markierten Namen getauscht werden.
Der Code zum finden der Farbigen Zellen ist der folgende.
Dim i As Variant
Dim zeile As Variant
Dim zelle, Bereich$, Farbe As Byte
Bereich = "i14:i200"
Farbe = 37
'nach farbiger zelle suchen (Colorindex 37)
For Each zelle In Range(Bereich).Cells
If zelle.Interior.ColorIndex = 37 Then zeile = zelle.Row
Next
(Alternativ könnte man auch in den Spalten K,L,M, ( K=Tore Team1, M= Tore Team2) nach dem letzten Eintrag suchen)
Der Code zum Tauschen für die gesamte Liste lautet
Sub Namentauschen()
'Eintragen
Sheets("User").Range("i14:o" & Sheets("User").Cells(Rows.Count, 10).End(xlUp).Row).Replace What:=ComboBox1.Value, Replacement:=TextBox1.Value, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Wie bekomme ich das hin, dass ich nur ab der gefärbten Zeile nach unten tausche...?
So dass die Spiele vom ausgetauschten Mitspieler in die anschliessende Wertung unter dem richtigen Namen gewertet werden und nicht bei dem neuen Mitspieler
in die Wertung gehen
vielen Dank für eure Hilfe im voraus.....
Gruß Ulli