AW: Stringvergleich übereinstimmung suchen
04.11.2013 11:13:36
ChrisL
Hi Karl
Hier ein Vorschlag:
Private Sub CommandButton1_Click()
Dim SuchStr As String
Dim i As Long
SuchStr = Left(Range("B5"), InStrRev(Range("B5"), " ") + 1)
SuchStr = ReplaceSpez(SuchStr)
For i = 6 To 11
If ReplaceSpez(Cells(i, 2).Value) = SuchStr Then
Cells(i, 3).Value = "Gleich"
Else
Cells(i, 3).Value = "Ungleich"
End If
Next
End Sub
Private Function ReplaceSpez(SuchStr As String) As String
SuchStr = Replace(SuchStr, " ", "")
SuchStr = Replace(SuchStr, ".", "")
SuchStr = Replace(SuchStr, ",", "")
ReplaceSpez = UCase(SuchStr)
End Function
cu
Chris