Umlaute machen Probleme beim Auswerten
07.02.2017 18:41:09
Andi
wenn ich mein Suchmakro ausführe - habe ich oft Probleme beim Ablauf- wenn Umlaute vorhanden sind. Kann das daran liegen?
Es soll geprüft werden, ob eine Textübereinstimmung vorliegt.
Kann man das soweit abändern, dass GROSS oder klein Schreibung egal ist- und das Umlaute Ü Ä Ö ß ohne Probleme Erkannt werden?
Ein Test ergab wenn ich Lärm überprüfen lasse, gibt es Probleme, aber als Laerm geschrieben nicht.
Option Explicit
Sub Makro0001()
Dim d As Range
Dim firstAddress As String
With Tabelle4.Range("Q58:Q144", "T58:T110")
Set d = .Find(Tabelle4.Range("R52").Text, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
Select Case d.Column
Case Is = 17
Makro01
Case Is = 20
Makro02
Case Else
Makro003
End Select
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address firstAddress
End If
End With
End Sub
Gruß Andi