Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Makros zum Kpieren





Frage

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

Antwort 1 von dvdh

kann auch sehr gerne die datei zur verfuegung stellen

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: