Guten Tag,

ich bräuchte euer Hilfe, da ich nicht weiterkomme. Ich hoffe Ihr habt eine Lösung.

Ich möchte eine bestimmte Zeile hier (Zeile 6) durchsuchen nach Text1, Text 2 usw. bis Text 6. Die gefundenen Texte soll er markieren und in der Zelle darunter einen bestimmten wert (hier 12) eintragen. Die Suche soll nur ab Zeile "K6 "beginnen und bei "OI6" dann aufhören.

Was ich bisher habe ist spärlich und leider komm ich nicht voran. Ich würde mich freuen von euch zu hören und natürlich auch zu lernen.

Vielen Dank schonmal

Dim rngFind As Range
Dim strFirst As String
Dim strFindArray() As Variant
Dim intCount As Integer
Dim Zellbeginn As Range
Set Zellbeginn = Range("K6")
strFindArray = Array("CA", "WE", "DE")

For intCount = 0 To UBound(strFindArray)
Set rngFind = Rows(6).Find(What:=strFindArray(intCount), After:=Zellbeginn, LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
strFirst = rngFind.Address
Do
rngFind.Select
Set rngFind = Rows(6).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address > strFirst
End If
Set rngFind = Nothing
strFirst = vbNullString
Next