Stringvergleich funktioniert nicht
19.12.2022 12:45:10
Joachim
Ich möchte in einem Tabellenblatt zeilenweise in Spalte 3 nach einem bestimmten Begriff suchen und, wenn der Begriff dort steht, diese Zeile in einer bestimmten Weise formatieren. Das Suchen des Strings funktioniert aber nur auf eine von unterschiedlichen Weisen, was ich nicht verstehe.
Dim strSuchString As String
strSuchString = "dsm" With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 1 To ZeileMax
' If .Rows(Zeile).Cells(3).Value = .Rows(1).Cells(3).Value Then DER GESUCHTE BEGRIFF STEHT IN DIESER ZELLE
' If .Rows(Zeile).Cells(3).Value = strSuchString Then If .Rows(Zeile).Cells(3).Value = "dsm" Then .Range(.Cells(Zeile, 1), .Cells(Zeile, 4)).Font.Size = 12
.Range(.Cells(Zeile, 1), .Cells(Zeile, 4)).Font.Bold = True
End If
Next Zeile
End With
Kann mir jemand sagen, warum die IFs 2 und 3 nicht funktionieren ?
Besten Dank vorab :)
Joachim