Wie kann die VBA-Formel angepasst werden, sodass alle Mitarbeiter in die Zieltabelle übertragen werden?

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan") überträgt – unabhängig davon, ob der Name bereits in der Ziel-Tabelle steht. Für jeden gefundenen Namen wird die entsprechende Zeile im "Arbeitsplan" gesucht und die Werte werden übertragen. Falls der Name nicht gefunden wird, wird er übersprungen.

```vba
Sub uebertragAllePersonen()
Dim wb As Workbook
Dim wsQuell As Worksheet, wsZiel As Worksheet
Dim datumToFind As Variant, rGef As Range
Dim nameQuell As Variant
Dim zielStartCol As Long, zielCol As Long, quelleCol As Long
Dim i As Long, j As Long
Dim nameGefunden As Boolean

Set wb = ThisWorkbook
Set wsQuell = wb.Sheets("Personen einzelnd drucken")
Set wsZiel = wb.Sheets("Arbeitsplan")

' Datum aus Spalte B8 der Quell-Tabelle als Zahl
If IsDate(wsQuell.Range("B8").Value) Then
datumToFind = CLng(wsQuell.Range("B8").Value)
Else
MsgBox "Datum in Personen einzeln drucken!B8 ist ungültig oder leer.", vbExclamation
Exit Sub
End If

zielStartCol = 4 ' Spalte D

' Jetzt alle Namen in C9:C66 durchgehen
For i = 9 To 66
nameQuell = wsQuell.Cells(i, 3).Value ' Spalte C

If Not IsEmpty(nameQuell) Then
nameGefunden = False

' In Arbeitsplan Spalte A nach Datum suchen
For Each rGef In wsZiel.Columns("A").Cells
If IsDate(rGef.Value) Then
If CLng(rGef.Value) = datumToFind Then
' Prüfen, ob Name in Spalte B übereinstimmt
If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then
' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D der aktuellen Zeile
For zielCol = 6 To 54 ' F(6) bis BA(54)
wsQuell.Cells(i, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value
Next zielCol
nameGefunden = True
Exit For
End If
End If
End If
If rGef.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen
Next rGef

' Optional: Hinweis, wenn Name nicht gefunden wurde
'If Not nameGefunden Then
' wsQuell.Cells(i, zielStartCol).Value = "Name nicht gefunden"
'End If
End If
Next i

MsgBox "Datenübertragung abgeschlossen.", vbInformation
End Sub
```

**Hinweise:**
- Das Makro sucht für **jeden** Namen aus C9:C66 das passende Datum und den Namen in der Ziel-Tabelle und überträgt die Werte.
- Falls ein Name nicht gefunden wird, passiert nichts (optional kann ein Hinweis in die Quell-Tabelle geschrieben werden, siehe Kommentar).
- Die Übertragung erfolgt immer in die Zeile des jeweiligen Mitarbeiters in der Quell-Tabelle.

Falls du möchtest, dass auch neue Mitarbeiter in die Ziel-Tabelle eingefügt werden, müsste das Makro entsprechend erweitert werden.