hab da ein prob, das mir den letzten nerv kostet: wie finde und ersetze ich das zeichen * in excelzellen?
hoffe, dass jemand einen geistesblitz hat :-)))
danke schon im voraus + liebe grüße
harry
Sub Ersetzen()
Dim Zelle
For Each Zelle In Worksheets
Zelle.Cells.Replace What:="~*", Replacement:="ü", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Zelle.Cells.Replace What:="~?", Replacement:="ü", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Zelle.Cells.Replace What:="~~", Replacement:="ü", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next Zelle
End Sub