Hallo Benjamin,
nachfolgend mal ein Makro, dass anhand einer Schleife in dem Tabellenblatt "Tabelle1" in Spalte D ermittelt, ob ein Datumswert vorhanden ist. Wenn ja, wird das Alter ausgerechnet und festgelegt, in welches Blatt der Name gehört. Danach wird die Zeile in das entsprechende Tabellenblatt in die 1. freie Zeile kopiert.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub A()
Dim intRow As Integer
Dim strSheetName As String
Dim intFirstCells As Integer
Application.ScreenUpdating = False
For intRow = 11 To Sheets("Tabelle1").Range("A65536").End(xlUp).Row
If IsDate(Sheets("Tabelle1").Cells(intRow, 4)) Then
Select Case DateDiff("yyyy", Sheets("Tabelle1").Cells(intRow, 4), Now)
Case 6 To 7
strSheetName = "F-Jugend"
Case 8 To 9
strSheetName = "F-Jugend"
Case 10 To 11
strSheetName = "D-Jugend"
Case 12 To 13
strSheetName = "C-Jugend"
Case 14 To 15
strSheetName = "B-Jugend"
Case 16 To 18
strSheetName = "A-Jugend"
End Select
intFirstCells = Sheets(strSheetName).Range("A94").End(xlUp).Offset(1, 0).Row
Sheets("Tabelle1").Rows(intRow).Copy
Sheets(strSheetName).Cells(intFirstCells, 1).PasteSpecial
End If
Next
End Sub
Wobei ich nicht ganz verstanden habe, warum in Deiner Beispieldatei einige Zeilen mit Spielern ausgeblendet sind. Mit obigem Makro werden aber auch die ausgeblendeten Namen mit berücksichtigt.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]