Thema Datum  Von Nutzer Rating
Antwort
Rot von einer Zeile jeweils immer 6 Zellen überprüfen ob diese bestimmte Werte enthalten
20.04.2023 16:55:14 Luna25
NotSolved
20.04.2023 20:37:00 ralf_b
NotSolved
21.04.2023 06:54:59 Gast96340
NotSolved
21.04.2023 07:31:30 ralf_b
*****
Solved
21.04.2023 19:05:44 Gast84029
NotSolved

Ansicht des Beitrags:
Von:
Luna25
Datum:
20.04.2023 16:55:14
Views:
566
Rating: Antwort:
  Ja
Thema:
von einer Zeile jeweils immer 6 Zellen überprüfen ob diese bestimmte Werte enthalten

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot von einer Zeile jeweils immer 6 Zellen überprüfen ob diese bestimmte Werte enthalten
20.04.2023 16:55:14 Luna25
NotSolved
20.04.2023 20:37:00 ralf_b
NotSolved
21.04.2023 06:54:59 Gast96340
NotSolved
21.04.2023 07:31:30 ralf_b
*****
Solved
21.04.2023 19:05:44 Gast84029
NotSolved