Suche mit VBA nach 2 Bedingungen

[Ozzwald]

Hallo zusammen,

ich habe jetzt über Stunden versucht eine Lösung für mein "Problem" zu finden, leider war nirgendwo was passendes dabei, daher bitte ich hier um Hilfe!


Problem

Eine Tabelle mit Daten in A1:E7.

In den Zellen I1 und I2 werden Suchbegriffe eingegeben, die dann (die Kombination aus beiden Suchbegriffen; es ist eine bestimmte Zeile) in den Zellen K , L und M die Lösung ausgeben 

Ich kann das im Moment auch schwer ausdrücken, habe mein Beispiel angehangen.



Nach 1 Suchbegriff kann ich suchen und dann wird ja auch nur die "erste gefundene" Lösung ausgegeben.

Vielen vielen Dank schon mal vorab!

Grüße
Ozzwald



  Suchen nach 2 Bedingungen.xlsm (Größe: 20,03 KB / Downloads: 7)

[Klaus-Dieter]

Hallo,

das Wunschergebnis kannst du doch ganz einfach mit dem Autofilter erreichen.

[Ozzwald]

Hallo,

natürlich würde das gehen.
Fände aber meine Variante irgendwie schicker; ist wohl auch einfacher mobil zu handeln. 

Außerdem würde ich auch wieder mal was dazu lernen bei Excel, auch wenn andere Wege auch zum Ziel führen.

Wäre klasse, wenn jemand eine Lösung hätte.

Merci! :)

[Klaus-Dieter]

Hallo,

ich weiß nicht, ob man etwas dazu lernt, wenn man einen schlechten Weg wählt.

[Ozzwald]

Hallo,

naja, die Frage dann ist, welche effiziente und hübsche Weg es dann ist?!

Ich finde die Suche die ich mit einem Feld habe besser, als manuell eine Tabelle nach Kriterien zu filtern. Zumal das ja nur ein Beispiel ist, wo Tabelle und Abfrage in einem Blatt liegen. Das Ziel ist es ja, die Abfrage in "mehr Drumherum" einzubauen: Die Frage hier ist erst der "Einstieg".

Welchen Weg, welches Makro etc. würdest du mir denn anbieten?

[Kuwer]

Hallo Ozzwald,

so z.B.:

Sub ZeileFinden_Kuwer()

  Dim i As Long

  Dim varErgebnis(1 To 1, 1 To 3) As Variant

  Dim varSuch As Variant

  Dim varTab As Variant

  

  varSuch = Tabelle1.Range("I7:I8").Value

  varTab = Tabelle1.Range("A1").CurrentRegion.Value

  For i = 2 To UBound(varTab)

    If varTab(i, 1) = varSuch(1, 1) Then

      If varTab(i, 2) = varSuch(2, 1) Then

        varErgebnis(1, 1) = varTab(i, 3)

        varErgebnis(1, 2) = varTab(i, 4)

        varErgebnis(1, 3) = varTab(i, 5)

        Exit For

      End If

    End If

  Next i



  If i > UBound(varTab) Then

    MsgBox "Leider nichts gefunden"

  End If

  Tabelle1.Range("K7").Resize(1, UBound(varErgebnis, 2)).Value = varErgebnis

End Sub

Gruß Uwe

[Ozzwald]

Hallo Uwe,

wunderbar!

Vielen Dank für die Lösung (statt ....)! Mehr wollte ich nicht!

Lieben Dank!

Ozzwald