hallo zusammen,
ich bin recht neu in der welt der makros und brauche hier mal eure unterstützung.
folgendes szenario:

2 tabellenblätter (1. hiring request und 2. YTD recruiting status)

ich möchte nun, dass im ersten tabellenblatt "hiring request" die abteilungen ihre informationen ausfüllen, an mich zurücksenden und nach bestätigung mit "yes" in spalte o13 selektive informationen aus dem ersten tabellenblatt in das zweite tabellenblatt "YTD recruiting status" übernommen werden, wobei grundsätzlich der bereich im ersten tabellenblatt A13:O211 zutrifft und im zweiten tabellenblatt beginnend mit B12.
ich würde gerne mit makros die folgenden informationen wie folgt kopiert bekommen wenn das kriterium "yes" in o13 folgende erscheint:

tabelle 1 tabelle2
B13 B12
F13 C12
H13 E12
I13 F12
E13 G12
L13 I12

ich habe das unten dargestellte makro mal probiert, funktioniert leider nicht richtig. hat jemand von euch eine idee woran es liegt?


Sub uebernehmen()
Dim loZeile1 As Long
Dim loZeile2 As Long
loZeile2 = IIf(IsEmpty(Worksheets("YTD Recruiting Status").Cells(Worksheets("YTD Recruiting Status").Rows.Count, 2)), _
Worksheets("YTD Recruiting Status").Cells(Worksheets("YTD Recruiting Status").Rows.Count, 2).End(xlUp).Row, _
Worksheets("YTD Recruiting Status").Rows.Count) + 1
If loZeile2 < 12 Then loZeile2 = 12
With Worksheets("Hiring Requests")
For loZeile1 = 12 To IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
If UCase(.Cells(loZeile1, 16)) = "YES" Then
Worksheets("YTD Recruiting Status").Cells(loZeile2, 2) = .Cells(loZeile1, 2)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 3) = .Cells(loZeile1, 3)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 5) = .Cells(loZeile1, 5)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 6) = .Cells(loZeile1, 6)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 7) = .Cells(loZeile1, 7)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 8) = .Cells(loZeile1, 8)
Worksheets("YTD Recruiting Status").Cells(loZeile2, 10) = .Cells(loZeile1, 10)
loZeile2 = loZeile2 + 1
End If
Next loZeile1
End With
End Sub