Hallo liebe VBA-Experten!
Ich habe im Tabellenblatt "Tagesrapporte" eine Auflistung mit täglich ergänzten Mitarbeiterrapporten, unter anderem mit den Namen der Mitarbeiter (Spalte D). Per VBA sollen nun bestimmte Zellen in eine andere Exceldatei des entsprechenden Mitarbeiters kopiert werden.
Zu meinen Problemen:
1. Ich möchte die Daten des entsprechenden Mitarbeiters in andere, bestehende Arbeitsmappen ("Mitarbeiter1", "Mitarbeiter2", usw.) kopieren und nicht auf ein anderes Blatt in der Quelldatei wie bis jetzt der Fall.
2. Es sollen nur die Spalten D - K, M, O - Q und S der entsprechenden Zeile kopiert werden.
3. Die Daten sollen bei Änderungen oder beim Öffnen von "Tagesrapport" kopiert werden.
Wie müsste ich den folgenden Code ändern?
Vielen Dank im Voraus!
Sub SearchMitarbeiter()
With Worksheets("Tagesrapporte")
For i = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
Select Case .Cells(i, 4).Value
Case Is = "Mitarbeiter1"
.Rows(i).EntireRow.Copy Destination:=Worksheets("Mitarbeiter1").Range("A" & Worksheets("Mitarbeiter1").Cells(Rows.Count, 4).End(xlUp).Row + 1)
Case Is = "Mitarbeiter2"
.Rows(i).EntireRow.Copy Destination:=Worksheets("Mitarbeiter2").Range("A" & Worksheets("Mitarbeiter2").Cells(Rows.Count, 4).End(xlUp).Row + 1)
End Select
Next i
End With
End Sub