Ich habe eine Zeile die in 23 Bereiche Range (D23:I23) Range (J23:O23) Range (R23:W23) …

eingeteilt ist. Nun würde ich gerne jeden Bereich (Range) nach den Werten a,b,c,d,e oder leer durchsuchen.

Beisp. wenn a in Range (D23:I23) gefunden, soll a in D23 geschrieben werden, wenn a nicht gefunden wird, soll nach b gesucht werden und anschließend wieder b in D23 geschrieben werden

Wenn b auch nicht vorhanden dann soll der Bereich nach c suchen …

und wenn auch c nicht vorhanden soll d gesucht werden.

Ich habe es mit If und Else mit 2 Bereichen versucht. Leider funktioniert es nicht und ich denke, dass ist auch nicht der richtige Weg. Mit Select Case und Arrays kenne ich mich nicht so gut aus.

Vielleicht kann mir doch jemand helfen. Oder hat eine Idee Vielen Dank!

Private Sub CommandButton2_Click()

Dim Wks As Worksheet

Dim Bereich As Variant

Set Bereich = Sheets("Test").Range("D23:I23").Find("x", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("D23") = "a"

Else

Set Bereich = Sheets("Test").Range("D23:I23").Find("b", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("D23") = "b"

Else

Set Bereich = Sheets("Test").Range("D23:I23").Find("k", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("D23") = "c"

Else

Range("D23") = "d"

'2 Bereich     

Set Bereich = Sheets("Test").Range("J223:O23").Find("a", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("O23") = "a"

Else

Set Bereich = Sheets("Test").Range("J223:O23").Find("b", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("O23") = "b"

Else

Set Bereich = Sheets("Test").Range("J223:O23").Find("c", Lookat:=xlWhole)

If Not Bereich Is Nothing Then

Range("O23") = "c"

Else

Range("O23") = "d"

End If

    End If

        End If

            End If

    End If

        End If     

Range("D23:I23").Merge

' ...und so weiter

End Sub