Hallo zusammen,
meine VBA-Kenntnisse beschränken sich leider sehr, deswegen möchte ich hier kurz mein Problem schildern:
Ich möchte gerne zwei Tabellen in unterschiedlichen Arbeitsmappen miteinander vergleichen. Diese haben drei Spalten und circa 100 Zeilen. Ich möchte überprüfen ob die Inhalte der Zellen gleich sind. Wenn nicht, soll die Zeile mit der Abweichung aus der ersten Tabelle in eine dritte Arbeitsmappe kopiert werden.
Das Ziel ist, am Ende in der dritten Tabelle auf einen Button zu klicken, es öffnet sich zwei mal ein Abfragefenster mit Explorer zum Auswählen der jeweils anderen Arbeitsmappen, und das Makro reiht alle Zeilen mit Abweichungen der Tabellen/Arbeitsmappen 1 & 2 in Arbeitsmappe 3 auf.
Die Abfrage der Dateien funktioniert bereits, das habe ich so gelöst:
Dim Datei1 As String
Dim Datei2 As String
Datei1 = a
Datei2 = b
MsgBox ("Bitte wählen Sie die erste Tabelle aus.")
a = Application.GetOpenFilename()
MsgBox ("Bitte wählen Sie die zweite Tabelle aus.")
b = Application.GetOpenFilename()
Bloß jetzt stehe ich auf dem Schlauch. Wie komme ich weiter?
Ich würde mich freuen, wenn sich jemand eine Minute Zeit nimmt und mir kurz weiterhilft.
Vielen Dank!
Viele Grüße
Felix
|