Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suchen in 2 Tabellenblättern

Suchen in 2 Tabellenblättern
22.11.2022 21:07:41
M@tt
Hallo,
ich benötige wieder einmal Unterstützung.
https://www.herber.de/bbs/user/156327.xlsm
Ich möchte eine Artikelnummer (hier in Tabelle 1) über 2 verschiedene Tabellenblätter suchen und das gefundene, ergänzt mit der Nachbarspalte, in Tabelle 1 eintragen. Leider bekomme ich die Kombination nicht ohne Hilfe hin. Wie muß ich meinen Code ergänzen?
Vielen Dank für Eure Zeit,
Gruß M@tt
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vielen Dank Onur! Funktioniert Super.
22.11.2022 21:49:00
M@tt
Vielen Dank Onur,
alles funktioniert super!
Gruß M@tt
Gerne !
22.11.2022 21:49:50
onur
Anzeige
AW: Suchen in 2 Tabellenblättern
22.11.2022 21:51:21
GerdL
Moin M@tt!

Sub Unit()
Dim Such As Integer, R As Range, WS As Variant
Such = Tabelle1.Cells(1, 3)
If Such = 0 Then Exit Sub
For Each WS In Array(Tabelle2, Tabelle3)
Set R = WS.Columns(1).Find(what:=Such, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=False)
If Not R Is Nothing Then Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, 2) = R.Resize(1, 2).Value
Next
If R Is Nothing Then
MsgBox "Artikel nicht vorhanden!", vbOKOnly
Else
Set R = Nothing
End If
End Sub
Gruß Gerd
Anzeige
AW: Suchen in 2 Tabellenblättern
22.11.2022 21:54:52
onur
Wenn nur in Tabelle2 was gefunden wird, kommt trotzdem "nicht gefunden" - oder?
AW: Suchen in 2 Tabellenblättern
23.11.2022 07:45:56
GerdL
Ja, da fehlt noch eine Boolean-Variable.
Danke, funktioniert auch einwandfrei bei mir
22.11.2022 22:07:30
M@tt
Hallo Gerd,
auch dir vielen Dank für deine Arbeit. Auch dein Code funktioniert bei mir einwandfrei. Ich konnte kein Problem feststellen.
Gruß M@tt
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
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