Spalte ausgeben wenn zwei Suchbedinungen erfüllt sind
14.10.2023 18:39:24
Dosenjoe
jetzt muss ich doch mal um Hilfe bitten.
Und zwar versuche ich gerade mit hilfe von VBA ein Problem zu lösen, dass mich etwas an den Rande der Verzweiflung bringt.
Folgende Situation:
Ich habe in Zeile 1 verschiedene "Indexe", die sich auch wiederholen. (z.b. 2.1.1 , 2.1.1, 2.1.2)
In Zeile 2 habe ich dann jeweils noch immer eine Position dazu. (z.b. 1,2,3)
Jetzt versuche ich, Zeile 1 nach einem Index zu durchsuchen, dass funktioniert auch. Und mir wird die Dazugehörige Spalte zurück gegeben.
Sprich:
B1 enthält "2.1.1" - B2 enthält "1"
C1 enthält "2.1.1" - C2 enthält "2"
D1 enthält "2.1.2" - D2 enthält "1"
Suche ich nun nur nach 2.1.1 wird mir stehts Spalte 2 zurück gegeben.
Ich möchte aber nach 2.1.1 und Position 2 bzw. nach 2.1.1 und Position 1 suchen und dementsprächend die Spalte zurück gegeben bekommen, wo beide Bedingungen erfüllt sind. Kann mir da jemand helfen?
Hier mal den Code, denn ich habe:
Ich habe eine Beispieldatei mit dazu hoch geladen. Ich hoffe das erklärt es etwas
https://www.herber.de/bbs/user/163430.xlsm
Public Sub test()
Dim z As Long, varSuche As Variant, raFund As Range
With Worksheets("Import")
'neustart:
varSuche = "2.1.1"
If varSuche = False Then Exit Sub
Set raFund = .Rows(1).find(what:=varSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
z = raFund.Offset(, 0).Column
MsgBox "Spalte: " & z
Else
MsgBox "Suche nach " & varSuche & " erfolglos."
'GoTo neustart
End If
End With
End Sub