Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrere Spalten vergleichen

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Spalten vergleichen
18.11.2020 22:24:32
ralf_b
Anbei die Bespieldateien.- stimmt nicht.
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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige