Mehrfache Suche
27.08.2007 10:00:24
Philipp
Ich habe folgendes Problem: Und zwar suche ich in einer Kreuztabelle nach 2 Begriffen, wo einer aber öfter vorkommt. Jetzt schaff ichs nur, das erste Ergebnis zu bekommen, möchte das zweite aber auch.
Hiermal Skizze zur Veranschauung:
Spalte
Begriff 1 blubb1
Bergiff 1 blubb2
Begriff 2 blubb3
Ich suche nach Begriff 1 und Spalte, möchte jetzt als Ergebnisse blubb1 und blubb2 bekommen.
Mein jetziger Code schaut folgendermaßen aus:
Dim rng As Range, Spalte As Range
Dim i As Integer, x As Integer
Dim Ergebnis As String
On Error Resume Next
Set rng = Tabelle8.Columns(1).Find( _
what:="Begriff1")
If rng Is Nothing Then
MsgBox "Passender Zonenleiter1 nicht gefunden, bitte geben Sie den Zonenleiter händisch an!"
End If
Set Spalte = Tabelle8.rows.Find( _
what:="Spalte")
If Spalte Is Nothing Then
MsgBox "Passender Zonenleiter2 nicht gefunden, bitte geben Sie den Zonenleiter händisch an!"
End If
i = rng.Row
x = Spalte.Column
Ergebnis = Format(Tabelle8.Cells(i, x), "#,##0")
Cells(i, x).Interior.ColorIndex = 35
Meine erste Idee war es, den gefundenen Begriff wegzuschreiben, aber dann sucht er ja weiter und hört net auf...Gibt sicher ne elegante Lösung.
Danke im Voraus
Philipp
Range("R14") = Ergebnis