Thema Datum  Von Nutzer Rating
Antwort
25.11.2011 11:00:24 novus
Solved
Blau  2 Tabellen vergleichen und Ergebnis in neue Tabelle
 25.11.2011 14:48:06 Ynachten
NotSolved
26.11.2011 12:05:17 novus
NotSolved
28.11.2011 10:34:54 Ynachten
NotSolved

Ansicht des Beitrags:
Von:
Ynachten		 Datum:
25.11.2011 14:48:06		 Views:
911		 Rating:
     
Antwort:
  Ja
Thema:
2 Tabellen vergleichen und Ergebnis in neue Tabelle

Hi,

ich habe gerade für einen anderen Beitrag ein Makro geschrieben, dass Du nur noch für Deine Bedürfnisse anpassen müsstest. Viel Spaß :)

 

Sub VergleichTabellen()

Zeile3 = 1

For Zeile1 = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row

    For Zeile2 = 1 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row

        If Sheets("Tabelle1").Cells(Zeile1, 1) = Sheets("Tabelle2").Cells(Zeile2, 1) Then

            Sheets("Tabelle3").Cells(Zeile3, 1) = Sheets("Tabelle1").Cells(Zeile1, 1)
            Sheets("Tabelle3").Cells(Zeile3, 2) = Sheets("Tabelle1").Cells(Zeile1, 2)
            Sheets("Tabelle3").Cells(Zeile3, 3) = Sheets("Tabelle2").Cells(Zeile2, 2)
            Zeile3 = Zeile3 + 1
            Exit For
           
        End If
   
    Next Zeile2

Next Zeile1

End Sub

 

lg Y

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
25.11.2011 11:00:24 novus
Solved
Blau  2 Tabellen vergleichen und Ergebnis in neue Tabelle
 25.11.2011 14:48:06 Ynachten
NotSolved
26.11.2011 12:05:17 novus
NotSolved
28.11.2011 10:34:54 Ynachten
NotSolved