Prüfen ob string im Tabellenblatt vorhanden

Hallo,

ich lasse mit einem Script Teile eines Tabellenblattes suchen/ersetzen)

'Suchen ersetzen  
     suchArray = Array("Description: ", "Location: ", "Printer State: ", "URI: ", "Dtro: ", "Ã¤", "Ã¼", "Ã¶")  
     ersetzArray = Array("", "", "", "", "", "ä", "ü", "ö")  


     For k = LBound(suchArray) To UBound(suchArray)
            Call ActiveSheet.UsedRange.Replace(suchArray(k), ersetzArray(k), , , True)
     Next k

Nur kommt es vor, dass gewisse Zeichen nicht vorhanden sind, Excel gibt immer dann einen Warnhinweis aus.

Wie kann ich es unterbinden?

on Error Resume Next hat hier nicht geholfen

Wie kann ich im Vorfeld den String des suchArray Prüfen lassen ob im Tabellenblatt vorhanden, falls ja dann führe weiter fort ?

Danke für Eure Hilfe

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 258560

Url: https://administrator.de/forum/pruefen-ob-string-im-tabellenblatt-vorhanden-258560.html

Ausgedruckt am: 05.04.2025 um 11:04 Uhr

3 Kommentare

Neuester Kommentar

Sub SearchAndReplace()
    Set dic = CreateObject("Scripting.Dictionary")  
    With dic
        .Add "Description: ", ""  
        .Add "Location: ", ""  
        .Add "Printer State: ", ""  
        .Add "URI: ", ""  
        .Add "Dtro: ", ""  
        .Add "Ã¤", "ä"  
        .Add "Ã¼", "ü"  
        .Add "Ã¶", "ö"  
    End With
    keys = dic.keys
    For i = 0 To dic.Count - 1
        ActiveSheet.UsedRange.Replace keys(i), dic(keys(i)), xlPart, ,True
    Next
    set dic = Nothing
End Sub

Grüße Uwe

p.s. ich seh schon, dir jetzt Verbesserungsvorschläge für dein Gesamtvorhaben zu machen wird mal wieder nix bringen

, da renne ich bei dir ja auf eine Mauer.

p.s. eventuell auftauchende Warnhinweise und aufpoppende Dialogboxen kannst du in Excel, wenn du mit Makros arbeitest generell hiermit unterbinden:

'Warnhinweise und Dialoge unterdrücken  
Application.DisplayAlerts = False

'.... Hier dein Code  

' am Ende des Codes immer wieder zurückstellen  
Application.DisplayAlerts = True