Hallo Zusammen,
ich hab mir nun zwei den Kopf zerbrochen und komme nicht weiter.
Mein Problem ist folgendes:
Ich würde gerne zwei Excel Dateien einlesen, jeweils eine komplette Spalte (also A0 - AX) mit einer anderen vergleichen (also B0 - BX).
Das einbinden von Excel und das einlesen der Daten bekomme ich auch gut hin.
Nun komme ich beim vergleichen absolut nicht weiter
Hier wäre ein Code Teil:
Ich habe meine drei Dateien definiert, über den Opener eingeladen und wäre bereit zur Verarbeitung.
Aber ich komm absolut nicht drauf wie ich die Felder aus xlFS1 mit xlFS2 nun erfolgreich vergleichen kann
Ich möchte, dass wenn beide verglichenen Felder absolut identisch sind vom Inhalt her, dass er mir exakt dieses Feld dann aus xlFS2 nach xlGoal kopiert.
Wo liegt mein Denkfehler?
Ist womöglich mein Formula falsch? Ich habe es auch schon mit .value versucht - Fehlanzeige - ich steige hier echt nicht durch
liebe Grüße aus dem Allgäu
Koopa
ich hab mir nun zwei den Kopf zerbrochen und komme nicht weiter.
Mein Problem ist folgendes:
Ich würde gerne zwei Excel Dateien einlesen, jeweils eine komplette Spalte (also A0 - AX) mit einer anderen vergleichen (also B0 - BX).
Das einbinden von Excel und das einlesen der Daten bekomme ich auch gut hin.
Nun komme ich beim vergleichen absolut nicht weiter
Hier wäre ein Code Teil:
Quellcode
- Dim xlFile1 As Excel.Workbook
- xlFile1 = xlApp.Workbooks.Open(OpenFileDialog1.FileName)
- Dim xlFS1 As Excel.Worksheet
- xlFS1 = xlFile1.Worksheets(1)
- 'Einbindung Excel-FILE1 ins System
- Dim xlFile2 As Excel.Workbook
- xlFile2 = xlApp.Workbooks.Open(OpenFileDialog2.FileName)
- Dim xlFS2 As Excel.Worksheet
- xlFS2 = xlFile2.Worksheets(1)
- 'Einbindung Excel-FILE2 ins System
- Dim xlGoal As Excel.Workbook
- xlGoal = xlApp.Workbooks.Open(OpenFileDialog3.FileName)
- Dim xlGS1 As Excel.Worksheet
- xlGS1 = xlGoal.Worksheets(1)
- 'Einbindung Excel-ZIEL ins System
- Dim Ergebnis As String
- For i = 1 To xlFS1.UsedRange.Rows.Count
- For i2 = 1 To xlFS2.UsedRange.Rows.Count
- For i3 = 1 To xlGS1.Rows.Count
- If xlFile1.Sheets(1).cells(Suche1, i).formula Is xlFile2.Sheets(1).cells(Suche2, i2).formula Then
- Ergebnis = xlFile2.Sheets(1).cells(Suche2, i2)
- xlGoal.Sheets(1).cells(1, i3) = Ergebnis
- 'Vergleiche Spalten und Trage sie in neue Sheet ein
- End If
- Next i3
- Next i2
- Next i
- xlGS1.SaveAs(OpenFileDialog3.FileName)
- xlGoal.Close()
- xlFile2.Close()
- xlFile1.Close()
Ich habe meine drei Dateien definiert, über den Opener eingeladen und wäre bereit zur Verarbeitung.
Aber ich komm absolut nicht drauf wie ich die Felder aus xlFS1 mit xlFS2 nun erfolgreich vergleichen kann
Ich möchte, dass wenn beide verglichenen Felder absolut identisch sind vom Inhalt her, dass er mir exakt dieses Feld dann aus xlFS2 nach xlGoal kopiert.
Wo liegt mein Denkfehler?
Ist womöglich mein Formula falsch? Ich habe es auch schon mit .value versucht - Fehlanzeige - ich steige hier echt nicht durch
liebe Grüße aus dem Allgäu
Koopa
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Koopa“ ()