Wie kann der VBA-Code angepasst werden, damit in 'Personen einzelnd drucken' der Name in Spalte C9-C66 gesucht und mit dem Wert im Arbeitsplan verglichen wird?

Um die Schleife so umzubauen, dass **in "Personen einzelnd drucken"** in den Zellen **C9:C66** nach dem Namen gesucht und mit der Spalte B im "Arbeitsplan" verglichen wird, muss die Namensprüfung in eine Schleife über diese Zellen gelegt werden. Für jeden gefundenen Namen wird dann geprüft, ob er in der gefundenen Zeile im "Arbeitsplan" steht. Die Übertragung erfolgt dann in die jeweilige Zeile (also z.B. in Zeile 9, 10, ...).

Hier die angepasste Version des relevanten Teils:

```vba
Sub übertragallepersonen()
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

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

' In Arbeitsplan Spalte A suchen (ebenfalls als Zahl)
Set rGef = Nothing
For Each cell In wsZiel.Columns("A").Cells
If IsDate(cell.Value) Then
If CLng(cell.Value) = datumToFind Then
Set rGef = cell
Exit For
End If
End If
If cell.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen
Next cell

If rGef Is Nothing Then
MsgBox "Datum nicht in Arbeitsplan Spalte A gefunden.", vbInformation
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
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
End If
End If
Next i

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

**Hinweis:**
- Die Übertragung erfolgt für jede Zeile von C9 bis C66, sofern dort ein Name steht und dieser in der gefundenen Zeile im "Arbeitsplan" (Spalte B) steht.
- Die Werte werden in die jeweilige Zeile (i) ab Spalte D geschrieben.
- Die Meldung am Ende kommt nur einmal, wenn alle Zeilen durchlaufen wurden.

Falls du möchtest, dass für jeden gefundenen Namen eine eigene Zeile im "Arbeitsplan" gesucht wird (also nicht nur für das eine Datum), müsste die Logik noch weiter angepasst werden.