Hallo zusammen, mein Name ist Paul,
hoffe mir kann einer der Makro Profi's helfen. Danke!
Platzierung (Rangfolge) für eine Sportveranstaltung.
Leider bin ich noch Anfänger bei der Makro Erstellung, aufzeichnen mit Makrorekorder ist O.K.
Makro in Bezug auf Spalte "D", Sortierung Spalte "D" ist o.K. Das Makro Spalte "O" Rangfolge sollte so aussehen.
Spalte D: ---------------------- Spalte O: Platzierung
Jugend (Beginn: D4) --------→ 1 (Beginn: O4)
Jugend ________________________ 2
Jugend ________________________ 3
Jugend ________________________ 4
Senior ------------------------→ 1
Senior _________________________ 2
Senior _________________________ 3
Unter50 ----------------------→ 1
Unter50 ________________________ 2
Unter50 ________________________ 3
Größer50 ---------------------→ 1
Größer50 _______________________ 2
Größer50 _______________________ 3 u.s.w
Die Platzierungen, sollten alle untereinander in Spalte "O" sein.
Sub Rangfolge()
Dim i!
Sheets("Lauf").Select
Range("O4").Value = 1
Range("O5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-2]=0,"" "",IF(AND(RC[-25]=R[-1]C[-25],RC[-24]=R[-1]C[-24]),R[-1]C+1,1))"
Range("O5").Select
Selection.AutoFill Destination:=Range("O5:O63"), Type:=xlFillDefault
Range("O4:O63").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("O5").Select
For i = 1 To 64
If Cells(ActiveCell.Row - 1, ActiveCell.Column - 2).Value = Cells(ActiveCell.Row, ActiveCell.Column - 2).Value Then
Cells(ActiveCell.Row, ActiveCell.Column).Value = Cells(ActiveCell.Row - 1, ActiveCell.Column).Value
End If
Selection.Range("A4").Select
Next i
End Sub