Problem mit Suchfunktion/Ausgabe
07.08.2018 16:34:19
Schimmel
Jetzt würde ich allerdings gerne noch eine neue Spalte (H) einfügen, in die etwas geschrieben werden soll wenn einer der Werte in der Zeile gefunden wird. Dies funktioniert leider noch nicht sehr gut, es wird zwar etwas geschrieben, allerdings nicht in die neue "H" Spalte. Problem ist denke ich, dass die gesuchten Werte nicht nur in einer Spalte, sondern in verschiedenen vorkommen können und sich der zu schreibende Wert dann auch verschiebt.
Code bis jetzt:
Columns("H").Insert Shift:=xlToRight
strFindArray2 = Array("*H351*", "*H341*")
For intCount = 0 To UBound(strFindArray2)
Set rngFind = Range("A:AZ").Find(What:=strFindArray2(intCount), LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
strFirst = rngFind.Address
Do
rngFind.Cells(Row, "H").Value = "v§M"
rngFind.EntireRow.Interior.ColorIndex = 4
rngFind.EntireRow.Font.Bold = True
rngFind.EntireRow.Font.ColorIndex = 3
rngFind.Interior.ColorIndex = 8
Set rngFind = Range("A:AZ").FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address strFirst
End If
Set rngFind = Nothing
strFirst = vbNullString
Next
Wäre super wenn da wer eine Idee hat!
Danke schon mal!