Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige