Gleichzeitiges suchen zweier Werte in 2 Spalten

Hallo.
Ich habe ein Problem in Excel (VBA) und komme nicht dahinter wie es zu lösen ist. Ich hoffe, das ihr mir hier weiterhelfen könnt.
Ich habe in Tabelle1, 2 Spalten mit Werte (In der A Spalte stehen Artikelnummern, in der B Spalte stehen die Lagerplätze der Artikelnummern)
In der Tabelle2 stehen in den Zellen A1 und B1 die Suchartikel, bzw. der Lagerplatz.
(A1 :Artikelnummer, B1: Lagerplatz)
Jetzt soll mir VBA anhand der zwei Suchwerte von Tabelle2 in Tabelle1 nach den Werten suchen, und wenn eine übereinstimmung beider Zellen vorhanden ist, diese Zeile makieren (Es kann sowieso nur eine Zeile in Tabelle1 stehen, welche die Datensätze enthalten)
Wenn keine Übereinstimmung beider Zellen zustande kommt, soll mir eine MSGBOX nur einen Hinweiß geben.
Wie kann ich dies bewerkstelligen?
Beispiel:
Tabelle1:
A B
Zeile1 12345 Platz1
Zeile2 23456 Platz2
Zeile3 34567 Platz3
Zeile4 45678 Platz4
Zeile5 56789 Platz5
Tabelle2:
A1 B1
45678 Platz4
Das VBA Programm sollte mir jetzt die Zeile4 in Tabelle1 makieren, da hier dieSuchwerte von Tabelle2 übereinstimmen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kriam,
hier eine Möglichkeit.
Gruß
Franz


Sub SuchenArtikel()
Dim varArtikel, varLager, rngGefunden As Range, strAdresse1 As String
Dim wksListe As Worksheet, wksEingabe As Worksheet
'Namen der Tabellen und Zelladressen ggf. anpassen
Set wksListe = Worksheets("Tabelle1")
Set wksEingabe = Worksheets("Tabelle2")
varArtikel = wksEingabe.Range("A1")
varLager = wksEingabe.Range("B1")
With wksListe
'Artikel in Spalte 1 (A) suchen
Set rngGefunden = .Columns(1).Find(what:=varArtikel, LookIn:=xlValues, lookat:=xlWhole)
If rngGefunden Is Nothing Then
MsgBox "Artikel  """ & varArtikel & """  nicht gefunden!"
Else
strAdresse1 = rngGefunden.Address
'Suche wiederholen bis Lagerplatz übereinstimmt oder Suchadresse sich wiederholt
Do
'Prüfen ob Lagerplatz mit suchbegriff übereinstimmt
If rngGefunden.Offset(0, 1) = varLager Then
'Listen-Blatt aktivieren und Zeile markieren
.Activate
.Rows(rngGefunden.Row).Select
Exit Do
End If
'Nächste Zelle mit Artikel suchen
Set rngGefunden = .Columns.FindNext(After:=rngGefunden)
'Prüfen, ob Suche wieder bei 1. Fundstelle angekommen ist.
If rngGefunden.Address = strAdresse1 Then
MsgBox "Kombination von Artikel  """ & varArtikel & """  und Lagerplatz  """ _
& varLager & """  nicht gefunden!"
Exit Do
End If
Loop
End If
End With
End Sub

Sub TestSuche() Dim Bereich As Range Dim LRow As Long, Anzahl As Long, Zeile Dim Wert1, Wert2 Dim Gefunden As Boolean Wert1 = Sheets("Tabelle2").Range("A1") Wert2 = Sheets("Tabelle2").Range("B1") With Sheets("Tabelle1") Set Bereich = .Range("A1", .Cells(.Rows.Count, 2).End(xlUp).Offset(0, -1)) Anzahl = Application.WorksheetFunction.CountIf(Bereich, Wert1) For LRow = 1 To Anzahl Zeile = Application.Match(Wert1, Bereich, 0) If IsNumeric(Zeile) Then Anzahl = IIf(LRow = 1, Zeile, Anzahl + Zeile) If .Cells(Anzahl, 2) = Wert2 Then .Select .Cells(Anzahl, 1).EntireRow.Select Gefunden = True Exit For Else Set Bereich = .Range(Bereich.Offset(Zeile, 0), Bereich(Bereich.Cells.Count)) Zeile = Application.Match(Wert1, Bereich, 0) End If End If Next LRow End With If Gefunden = False Then MsgBox "wurde nicht gefunden!" End Sub

Sub TestSuche() Dim Bereich As Range Dim LRow As Long, Anzahl As Long, Zeile Dim Wert1, Wert2 Dim Gefunden As Boolean Wert1 = Sheets("Tabelle2").Range("A1") Wert2 = Sheets("Tabelle2").Range("B1") With Sheets("Tabelle1") Set Bereich = .Range("A1", .Cells(.Rows.Count, 2).End(xlUp).Offset(0, -1)) Anzahl = Application.WorksheetFunction.CountIf(Bereich, Wert1) For LRow = 1 To Anzahl Zeile = Application.Match(Wert1, Bereich, 0) If IsNumeric(Zeile) Then Anzahl = IIf(LRow = 1, Zeile, Anzahl + Zeile) If .Cells(Anzahl, 2) = Wert2 Then .Select .Cells(Anzahl, 3).Select Gefunden = True Exit For Else Set Bereich = .Range(Bereich.Offset(Zeile, 0), Bereich(Bereich.Cells.Count)) Zeile = Application.Match(Wert1, Bereich, 0) End If End If Next LRow End With If Gefunden = False Then MsgBox "wurde nicht gefunden!" End Sub

Beliebteste Forumthreads (12 Monate)

Gleichzeitiges suchen zweier Werte in 2 Spalten

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gleichzeitiges suchen zweier Werte in 2 Spalten

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread