---

hallo zusammen

ich möchte zwei tabellen, die in zwei unterschiedlichen mappen liegen, miteinander vergleichen. Genauer gesagt will ich überprüfen, ob die einträge aus mappe 1 spalte 1 auch in mappe zwei spalte 1 vorhanden sind.

weiss jemand ob man mit einem algotithmus einen solchen vergleich über zwei dateien anstellen kann?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo cossi,
gib mal in Mappe2, Spalte B folgendes ein:

Code:

---

=WENN(ZÄHLENWENN([Mappe1]Tabelle1!$A$1:$A$100;A1)=1;"Duplikat";"")

---

hättest Du so ähnlich über die Suche im Thread Tabellen zusammenkopieren gefunden..

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi runkelruebe
danke für die meldung. ich hab hier allerdings an einen vba funktion gedacht. und hierbei fehlt mir dann das wissen wie ich mit vba die entsprechende datei und die entsprechende spalte anspreche.
also vielleicht weiss da jemand von euch weiter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von cossi:
und hierbei fehlt mir dann das wissen wie ich mit vba die entsprechende datei und die entsprechende spalte anspreche.
also vielleicht weiss da jemand von euch weiter[/i]

---

Und das Kino geht weiter. Vllt solltest Du Dir mal ein Grundlagenbuch von Excel zulegen, über das Du die - wie der Name schon sagt - Grundlagen der Makroprogrammierung lernst. Sorry, aber ich habe in einem anderen Thread meine Meinung zu so einer Einstellung gegenüber Problemen kund getan. Bin raus. Viel Spaß und Dir, Cossi (nimm's bitte nicht persönlich) viel Erfolg noch.
Grüße, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ein Problem zu haben, und die Com um Hilfe zu bitten, ist ok

Die Hilfsbereitschaft wird erst dann überstrapaziert,
wenn man die Com als willkommene Fremdarbeitskraft betrachtet, *wünschte ich mir auch oft, irgend eine gute Jeanny erledigt für mich das Lästige*
Fragen stellt und bei einer Beantwortung deren,
weitere Ansprüche stellt... ...ich hätt's gerne als VBA-FUNC         *was ich nicht alles gerne hätte :-)*
oder gar eine Frage parallel in einem anderen Forum stellt -
damit vertraut man nicht auf die Com
- und das lässt bei mir die Bereitschaft auf /dev/null fallen. *nichts ist frustrierender, als für den Papierkorb zu arbeiten*

Beiss dich durch die Probleme durch, gebe selber mal Hilfestellungen :-) !die beste Art zu Lernen
und sei auch mit dem Fingerzeig zufrieden und nimm nicht gleich die Hand :-)

gruss thomas

[Diese Nachricht wurde von Thomas Harmening am 22. Dez. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo cossi,
wie schon von mehreren Seiten vorgeschlagen ;-) und von mir schon länger gedacht solltest Du Dich dringend mal über unsere link-Sammlung im Brett hermachen.
Die Seiten vom office-forum haste ja schon gefunden...
jetzt noch die Tutorials von online-excel durchklickern und auch die Excel-Hilfe nicht ganz außen vor lassen (jaa, ab und an steht da auch was brauchbares drin) und schon sollte das mit dem Ansprechen von Mappen, Blättern und Zellen zu schaffen sein. Nur lesen muß man sie halt selber...
Aber weil bald Weihnachten ist und ich Urlaub habe  aber vor allem, weil nochmal jemand über den thread-Titel stolpern könnte, hast Du hier mal ein Grundgerüst, mit dem Du dann weiterarbeiten kannst.

Code:

---

Option Explicit
Public Sub Vergleich()
On Error Resume Next
Dim a As Long
Dim arArrayQuelleA
Dim cell As Range
'Workbooks.Open Filename:="C:\ExcelTests\TestA.xls"
'Workbooks.Open Filename:="C:\ExcelTests\TestB.xls"

'Inhalt der Spalte A in ein array schreiben:
arArrayQuelleA = Workbooks("TestA.xls").Sheets(1).Range("A1:A30")

'jede Zelle in MappeB, Blatt1, SpalteA1:A30 wird durchlaufen:
For Each cell In Workbooks("TestB.xls").Sheets(1).Range("A1:A30")
    'jeder ArrayEintrag wird zum Vergleich herangezogen: (UBound = Obergrenze des arrays)
    For a = 1 To UBound(arArrayQuelleA)
        'wenn Zellinhalt = Array-Inhalt Und Zell-Inhalt nicht leer ist
        If cell.Value = arArrayQuelleA(a, 1) And cell.Value <> "" Then
            'dann schreib in Zelle(0 Reihen runter, 1 Spalte rechts) "Duplikat"
            cell.Offset(0, 1).Value = "Duplikat"
            'Und geh aus der array-schleife raus
            Exit For
        End If
    Next a
Next cell

End Sub

---

umständlich? Vielleicht, aber kommentiert ;-)

P.S.: Du bist nicht der erste und wahrscheinlich nicht der letzte diesen Monat, der im Forum einen auf den Deckel wegen Mach-mir-mal bekommt,
wie Ole schon sagte: nimm's nicht persönlich, denn wehret den Anfängen und momentan scheinen sich viele zu einem neuen Anfang entschlossen zu haben ;-)
Aber das mit dem crossposten  wollen wir in Zukunft doch lieber lassen! Thomas sieht alles 

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und verweise noch zusätzlich auf den Beitrag
falls man die VergleichsMappe selektiv auswählen will :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP