Thema Datum  Von Nutzer Rating
Antwort
22.06.2012 12:17:00 Michael Leisgang
Solved
Blau 2 Arbeitsmappen miteinander vergleichen und bei Gleichheit in die 1 Arbeitsmappe einfügen
 22.06.2012 17:31:56 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
22.06.2012 17:31:56		 Views:
2157		 Rating:
     
Antwort:
  Ja
Thema:
2 Arbeitsmappen miteinander vergleichen und bei Gleichheit in die 1 Arbeitsmappe einfügen

Hallo Michi,

so ähnlich müsste es gehen. Dabei gehe ich davon aus, dass das Makro aus der Input-Arbeitsmappe heraus gestartet wird und dass in der Daten-Arbeitsmappe das erste Tabellenblatt relevant ist.

Set t1 = ActiveWorkbook.ActiveSheet 'Inputmappe
Workbooks.Open Filename:="..." 'Pfad und Name deiner Daten-Arbeitsmappe
Set t2 = ActiveWorkbook.Worksheets(1) 'oder ActiveSheet oder Tabellenblattbezeichnung, Daten
For i = 1 To t1.Cells(Rows.Count, 1).End(xlUp).Row
    a = Trim(CStr(t1.Cells(i, 1)))
    If a <> "" Then
        For j = 1 To t2.Cells(Rows.Count, 1).End(xlUp).Row
            If a = Trim(CStr(t2.Cells(j, 1))) Then
                t2.Cells(j, 1).EntireRow.Copy Destination:=t1.Cells(i, 1).EntireRow
            End If
        Next j
    End If
Next i

Gruß
Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.06.2012 12:17:00 Michael Leisgang
Solved
Blau 2 Arbeitsmappen miteinander vergleichen und bei Gleichheit in die 1 Arbeitsmappe einfügen
 22.06.2012 17:31:56 Holger
NotSolved