Daten werden nicht kopiert.

Dura Cell · 28. November 2019

Guten Tag.

Sub BereicheVergleichen()
Dim rngZelle As Range
Dim rngBereich As Range
Dim rngZiel As Range
Dim wbkZiel As Workbook
Dim wksZiel As Worksheet
Dim wksQuelle As Worksheet
Dim lngZeile As Long, lngZeileMax As Long

Set wbkZiel = Workbooks("Test 1.xlsm")
Set wksZiel = wbkZiel.Sheets("Entnahme")
Set wksQuelle = Tabelle1

With wksQuelle

Set rngBereich = .Range("A2:A" & .UsedRange.Rows.Count)
Set rngZiel = .Range("H13" & .UsedRange.Rows.Count)

For Each rngZelle In rngBereich

If rngZelle.Value = wksZiel.Range(rngZelle.Address).Value Then

'DIE NÄCHSTEN BEIDEN ZEILEN BILDEN DIE FRAGE !!!

wksZiel.Range("D4").Copy Destination:=wksQuelle.Range(rngZelle.Address & "O2")
wksZiel.Range(rngZelle.adress).Value.Copy Destination:=wksQuelle.Range(rngZelle.Address & "P2")

End If

Next rngZelle

End With

End Sub

Was nicht passiert, ist das kopieren. Dank Euch läuft der Code jetzt fehlerfrei durch. Ich habe mir die Variablen ins Überwachungsfenster gezogen. Die Zeile If rngZelle.Value = … zeigt im Überwachungsfenster das richtige an - den Wert, den ich testweise eingetragen habe und die Zeile, in der geprüft wird. Soweit alles supi. Die nächsten beiden Zeilen habe ich beinahe 1:1 aus einem Buch übernommen. Aufgrund dessen und da auch kein Fehler ausgegeben wird, stehe ich vor dem Rätsel, dass nichts passiert/kopiert wird.

Sorry für die nervigen Fragen. Bin noch Anfänger und hab noch viel zu lernen.

Dura Cell

So. Habe Euch mal drei Beispieldateien gebastelt.

Beispieldateien

Nur, falls es nötig sein sollte:

wbkMakro ist die Datei, die die fertige Funktion enthält und in die die Daten kopiert werden sollen.
wbkQuelle enthält die Daten, nach denen gesucht werden soll.
wbkZiel stellt die Mappe dar, in der gesucht werden soll.
Die Ordnerstruktur ist so, wie sie aussieht.

Falls ich einen Fehler bei der Freigabe gemacht hab, bitte kurz Bescheid geben.

Andreas Killer

If rngZelle.Value = wksZiel.Range(rngZelle.Address).Value Then
wksZiel.Range("D4").Copy Destination:=wksQuelle.Range(rngZelle.Address & "O2")

wksZiel.Range(rngZelle.adress).Value.Copy Destination:=wksQuelle.Range(rngZelle.Address & "P2")

Der Code macht keinen Sinn.

Beschreib mal was Du eigentlich machen willst. Oder noch besser mach 2 Beispieldateien.

Logge Dich auf https://onedrive.live.com ein (Verwende die gleiche Login-ID und das Passwort wie für dieses Forum).

Klicke oben auf Hochladen und wählen die Datei aus.

Klicke nach dem Hochladen mit der rechten Maustaste auf die Datei und wähle Teilen.

Klicke auf "Link abrufen".

Kopiere den Link und poste ihn hier.

Es ist schon klar das Du irgendwas aus der einen Datei in die andere kopieren willst, so ala "Filter mir mal alles was mit "X" heißt", aber das geht ganz anders... viel einfacher.

Andreas.

Andreas Killer

in den anderen Spalten steht schon (irgendwas) drin. Aber das, was relevant ist, steht in Spalte H.

Jahaa, ist egal wo noch was steht. Nochmal: Du willst nur das was in Spalte H steht?

Wenn Du noch mehr Daten aus anderen Spalten willst sieht der Code anders aus, das ist später nicht so einfach einzubauen, darum geht es mir.

Andreas.

Dura Cell

Hallo Andreas,

in den anderen Spalten steht schon (irgendwas) drin. Aber das, was relevant ist, steht in Spalte H.

In wbkQuelle stehen die Daten, nach denen gesucht werden soll. Gesucht werden soll in wbkZiel und es MUSS was gefunden werden. Das, was nach Vergleich/Suche gefunden wird, soll kopiert werden. Das nichts gefunden wird, ist keine Option.

Das Ziel ist es, eine Gesamtübersicht zu schaffen, die Tabelle 1 und Tabelle 2 (wbkQuelle) mit Spalte H (wbkZiel) vergleicht und die die gefundenen Daten in das leere Worksheet (wbkMakro) kopiert. Zusätzlich dann noch das Modell zwecks der Zuordnung.

P.S.: Danke für den Tipp. Das richtige Vorgehen, ein Makro zu entwickeln, muss ich noch lernen. Hab mich auch schon nach professioneller Unterstützung in Form von Workshop umgesehen.

Claus Busch

Hallo,

dann beschreibe mal, wo die Daten hin sollen.

Im Moment werden sie immer in die gleichen Zellen eingefügt, so dass du immer nur die letzten beiden Werte siehst.

D4, O2 und P4 müssen dynamisch sein und in der Schleife hochgezählt werden.

Claus

Hi,

willkommen im Windows Forum!

Daten werden nicht kopiert. - Similar Threads - Daten kopiert	Forum	Datum
184 GB Daten verschollen, nach dem sie innerhalb von OneDrive verschoben wurden 184 GB Daten verschollen, nach dem sie innerhalb von OneDrive verschoben wurden: 184 GB Daten verschollen, nach dem sie innerhalb von OneDrive verschoben wurden!?Sehr geehrtes Microsoft Support-Team,ich habe beim Versuch, ca. 228 GB Daten innerhalb meines OneDrive-Kontos zu...	Microsoft Office	Gestern um 14:33 Uhr
Wo sind die Chrinik und Lesezeichen-Daten Wo sind die Chrinik und Lesezeichen-Daten: Windows wurde in den Ursprungszustand gesetzt Fall-Nr.: 707422 3580 gesetzt, da eine Funktion nicht aisgeführt werdennkonnte.Jetzt sin die Dateien in der Chronik nicht mehr vorhanden.	Apps	Gestern um 09:03 Uhr
Wo sind die Chrinik und Lesezeichen-Daten Wo sind die Chrinik und Lesezeichen-Daten: Windows wurde in den Ursprungszustand gesetzt Fall-Nr.: 707422 3580 gesetzt, da eine Funktion nicht aisgeführt werdennkonnte.Jetzt sin die Dateien in der Chronik nicht mehr vorhanden.	Games und Spiele	Gestern um 09:03 Uhr
OOBE Fehlermeldung nach Update KB5055627 Bösartiger Fehler löscht Useraccount alle Daten weg OOBE Fehlermeldung nach Update KB5055627 Bösartiger Fehler löscht Useraccount alle Daten weg: Hallo CommunityIch habe soeben meinen Pc neu aufgesetzt, bereits nach einem Tag erhielt ich am Samstag das KB5055627 welche ich leider installiert habe.Danach erhielt ich die OOBE Fehelermeldung...	Apps	Montag um 02:33 Uhr
OOBE Fehlermeldung nach Update KB5055627 Bösartiger Fehler löscht Useraccount alle Daten weg OOBE Fehlermeldung nach Update KB5055627 Bösartiger Fehler löscht Useraccount alle Daten weg: Hallo CommunityIch habe soeben meinen Pc neu aufgesetzt, bereits nach einem Tag erhielt ich am Samstag das KB5055627 welche ich leider installiert habe.Danach erhielt ich die OOBE Fehelermeldung...	Games und Spiele	Montag um 02:33 Uhr
onedrive wird angemeldet, kann aber nicht auf daten zugreifen, es heisst: Serverprobleme onedrive wird angemeldet, kann aber nicht auf daten zugreifen, es heisst: Serverprobleme: file:///C:/Users/sl/OneDrive/Lohnabrechnung.pdfes kann nicht auf Daten in Onedrive zugegriffen werden.Daten werden geladen und angezeigt, können aber nicht geöffnet werden.	Microsoft Office	23. April 2025
Zwischenablage kopiert nicht alle Daten Zwischenablage kopiert nicht alle Daten: Hallo, ich arbeite mit Office Home&Student 2019. Ich habe z.B. 14 Artikel in der Zwischenablage und möchte diese in ein anderes Dokument einfügen, klicke auf "alles einfügen" und es werden nur...	Microsoft Office	21. Februar 2020

Daten werden nicht kopiert.