Mehrere Spalten vergleichen

Forumthread: Mehrere Spalten vergleichen

18.11.2020 21:53:57

Gerald

Hallo Zusammen,
ich such nach einer VBA-Lösung, wie ich mit einer Ausgangstabelle, jeweils 1 Spalte in einer anderen Arbeitsmappe mit 3 Tabellenblättern vergleiche.
Arbeitsmappe 1: Master.xlsx/Tabelle: "Export" / Spalte "A" soll jeweils die Spalte "D" in den Tabellenblättern: "Budget" / "Invest" und "Sachkonto" in der Arbeitsmappe 2: "Plannungs.xlsm" vergleichen.
Ist der Wert von der Ausgangstabelle nicht vorhanden, soll dieser in die Mappe 2, Tabellenblatt "Budget" in Spalte "H" aufgelistet werden.
Anbei die Bespieldateien.
Danke im Voraus,
Gerald

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Spalten vergleichen

18.11.2020 22:24:32

ralf_b
AW: Mehrere Spalten vergleichen

19.11.2020 11:00:31

Gerald
AW: Mehrere Spalten vergleichen

20.11.2020 16:08:22

worti
AW: Mehrere Spalten vergleichen

22.11.2020 15:34:40

Gerald

AW: Mehrere Spalten vergleichen

18.11.2020 22:24:32

ralf_b

Anbei die Bespieldateien.- stimmt nicht.

AW: Mehrere Spalten vergleichen

19.11.2020 11:00:31

Gerald

Hallo, hier die Dateien.
Hab mich etwas angestellt....
https://www.herber.de/bbs/user/141696.xlsx
https://www.herber.de/bbs/user/141697.xlsm

AW: Mehrere Spalten vergleichen

20.11.2020 16:08:22

worti

Hallo Gerald,
zB. so:

Sub Suche_in_Mehreren_Blaettern()
Dim wb1 As Workbook, wb2 As Workbook
Dim rngSB1 As Range
Dim rngSB2 As Range
Dim rngSB3 As Range
Dim lngzielzeile As Long
Set wb1 = Workbooks("141696.xlsx")
Set wb2 = Workbooks("141697.xlsm")
lngzielzeile = wb2.Worksheets("Budget").Cells(Rows.Count, 8).End(xlUp).Row + 1
Set rngSB1 = wb2.Worksheets("Budget").Columns(4)
Set rngSB2 = wb2.Worksheets("Invest").Columns(4)
Set rngSB3 = wb2.Worksheets("Sachkonto").Columns(4)
Call Suche(rngSB1, lngzielzeile, wb1, wb2)
Call Suche(rngSB2, lngzielzeile, wb1, wb2)
Call Suche(rngSB3, lngzielzeile, wb1, wb2)
End Sub
Function Suche(rngBereich As Range, lngzielzeile As Long, wb1 As Workbook, wb2 As Workbook)
Dim lngZeile As Long
Dim rngC As Range
For lngZeile = 1 To wb1.Worksheets("Export").Cells(Rows.Count, 1).End(xlUp).Row
Set rngC = rngBereich.Find(wb1.Worksheets("Export").Cells(lngZeile, 1).Value)
If rngC Is Nothing Then
If Not wb1.Worksheets("Export").Cells(lngZeile, 1).Value = "Nummer" Then
wb2.Worksheets("Budget").Cells(lngzielzeile, 8).Value = wb1.Worksheets("Export"). _
Cells(lngZeile, 1).Value
lngzielzeile = lngzielzeile + 1
End If
End If
Set rngC = Nothing
Next lngZeile
End Function

Du musst die Dateinamen noch anpassen, ich habe die von deinen hochgeladenen im Makro.
Gruß Wort

AW: Mehrere Spalten vergleichen

22.11.2020 15:34:40

Gerald

Hallo Worti,
Danke für die Rückmeldung!
Habe es angepasst und funktioniert!!
Vielen Dank nochmal,
Gerald

Beliebteste Forumthreads (12 Monate)

Forumthread: Mehrere Spalten vergleichen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread