Zellen automatisch in neue Tabelle/Datei kopieren

[lorwagner12]

Danke will aber ned ganz funktionieren. Habe dir jetzt mal alle Dokumente angehangen und die Sachen und Spaltennamen gelöscht, die irrelevant sind und Testdaten hinzugefügt.

Die Original-Datei ist die Schwebeliste. Dort sollen die Nominale und die ISN mit denen von der Auslieferungsliste verglichen werden und dann die "AA_DEP_NR" (Spalte CN) in ein anders Dokument ausgespuckt werden. Da in der Ausliefungsliste aber nur die ID steht muss die richtige ISN noch aus der ID-Liste mit SVERWEIS geholt werden.

Denn Befehl hab ich jetzt:

Code:

=WENNFEHLER(INDEX([Daten_Auslieferung.xlsx]Tabelle1!$CN$2:$CN$16;VERGLEICH(Tabelle2[Nominal (offen)]&Tabelle1[ISIN];[Daten_Auslieferung.xlsx]Tabelle1!$CW$2:$CW$16&SVERWEIS([Daten_Auslieferung.xlsx]Tabelle1!$CM$2:$CM$16;[IDs.xlsx]Tabelle1!$A$2:$B$17;2;FALSCH)));"Kein Match")

Jetzt wäre es noch Klasse, wenn die Matches in des neue Dokument kopiert werden

[AlterDresdner]

Hallo,
dann kann es nicht funktionieren, wird aber wohl werden.
Der Satz
     Jetzt wäre es noch Klasse, wenn die Matches in des neue Dokument kopiert werden
bedeutet? Neben"AA_DEP_NR" (Spalte CN) auch Nominale und die ISN ausgeben?

Noch die Frage: sind die Dateien alle offen oder liegen sie im gleichen Verzeichnis wie die "Originaldatei" Schwebeliste.xlsx?

[lorwagner12]

Wenn es geht dass alles ausgegeben wird, dann am besten alles aber im Grunde muss nur die Spalte CN ausgegben werden.

Momentan liegen die Datein nicht im selben Verzeichnis.

[AlterDresdner]

Hallo,
dann schauen wir mal (d.h ihr).
Die Dateien sind entweder offen oder können geöffnet werden, sie müssen aber IDs.xlsx und Daten_Auswahl.xlsx heißen.
Die Makros finden sich in Tabelle1 von Schwebeliste.xlsm.

[lorwagner12]

Danke dir. Bekomme leider immer die Fehlermeldung "Typen unverträglich"

[AlterDresdner]

Hallo,
damit kann ich nichts anfangen. Bei mir mit den Dateien ging es.
Wird ein Meldungsfeld angezeigt, auf dem es die Schaltfläche Debuggen gibt? Wenn ja, darauf klicken und einen Screenshot des Bildschirms danach entweder hier posrten oder an schatte.jm(at)web.de schicken.
Sonst eine Telefonnr an die Mailadresse schicken, dann müssen wir die Möglichkeiten ausloten.

---

Hallo,
bei mir geht es auch nicht (wenn die Dateien nicht offen sind) .
Ersetze in der Function Dateiobjekt die beiden Zeilen
OM:    FName = Application.GetOpenFilename("Exceldateien (*.xlsx), *.xlsx", , "Datei " & Datei & " öffnen")
      If VarType(FName) = vbBoolean Then End
dann sollte es gehen.

[AlterDresdner]

Hallo,
sicherheitshalber: Um den Fehler zu beheben ist
in der Function Dateiobjekt(Objekt, Datei As String, Optional Pfad)
die Zeile
      If FName = False Then End
nach der Zeile
OM:    FName = Application.GetOpenFilename("Exceldateien (*.xlsx), *.xlsx", , "Datei " & Datei & " öffnen")
zu ersetzen durch
      If VarType(FName) = vbBoolean Then End

[lorwagner12]

Super danke. Leider findet er immer noch keine Matches. Meinst du es kann an einer unterschiedlichen Formatierung der Spalten und damit auch der Zahlenwerte liegen? Falls ja, wie bekomme ich die Spalten in das gleiche Format?

[AlterDresdner]

Hi,
vielleicht kannst du mir mal einen Auszug eines nicht gefundenen Matches (nur die interessanten Spalten) der beiden Dateien schicken? So ins Blaue geraten: keine Ahnung.

[AlterDresdner]

Hallo,
du kannst es auch mit dem Ersatzcode versuchn, vielleicht klappt es. Wenn nicht, dann siehe vorheriger Post.

  For zeile = 2 To Q1.Cells(Rows.Count, SID1).End(xlUp).Row
    Set Idfound = Q3.Columns(2).Find(what:=Q1.Cells(zeile, SID1).Value, lookat:=xlWhole, LookIn:=xlValues)
    If Idfound Is Nothing Then
      MsgBox "Die ID " & Q1.Cells(zeile, SID1) & " ist in der Datei IDs.xlsx nicht gefunden worden.", vbCritical
    Else
      Set Idfound = Idfound.Offset(0, -1)
      Set found = Q2.Columns(SID2).Find(what:=Idfound.Value, lookat:=xlWhole, LookIn:=xlValues)
      If Not found Is Nothing Then
        firstaddr = found.Address
        Do
          If Q1.Cells(zeile, SStk1).Value = Q2.Cells(found.Row, SStk2).Value Then 'Match found