Autor
|
Thema: vergleich zweier arbeitsmappen (1525 mal gelesen)
|
cossi Mitglied
Beiträge: 33 Registriert: 14.12.2006
|
erstellt am: 21. Dez. 2006 13:18 <-- editieren / zitieren --> Unities abgeben:
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 |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 21. Dez. 2006 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für cossi
|
cossi Mitglied
Beiträge: 33 Registriert: 14.12.2006
|
erstellt am: 21. Dez. 2006 13:43 <-- editieren / zitieren --> Unities abgeben:
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 |
okl Mitglied Wirtsch-Ing (Maschbau)
Beiträge: 157 Registriert: 21.04.2006 3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1300, Delmia V5R16 SP1, Win XP Prof SP2, Office 2003, VS 2005, VB 6
|
erstellt am: 21. Dez. 2006 14:51 <-- editieren / zitieren --> Unities abgeben: Nur für cossi
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 |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 21. Dez. 2006 16:41 <-- editieren / zitieren --> Unities abgeben: Nur für cossi
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 |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8075 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 22. Dez. 2006 00:28 <-- editieren / zitieren --> Unities abgeben: Nur für cossi
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 |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 22. Dez. 2006 01:10 <-- editieren / zitieren --> Unities abgeben: Nur für cossi
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|