Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Prüfen ob string im Tabellenblatt vorhanden

Frage Microsoft Microsoft Office

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

27.12.2014, aktualisiert 17:14 Uhr, 2189 Aufrufe, 3 Kommentare

Hallo,

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

01.
 
02.
'Suchen ersetzen 
03.
     suchArray = Array("Description: ", "Location: ", "Printer State: ", "URI: ", "Dtro: ", "ä", "ü", "ö") 
04.
     ersetzArray = Array("", "", "", "", "", "ä", "ü", "ö") 
05.
 
06.
 
07.
     For k = LBound(suchArray) To UBound(suchArray) 
08.
            Call ActiveSheet.UsedRange.Replace(suchArray(k), ersetzArray(k), , , True) 
09.
     Next k 
10.
 
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
Mitglied: colinardo
LÖSUNG 27.12.2014, aktualisiert 28.12.2014
01.
Sub SearchAndReplace() 
02.
    Set dic = CreateObject("Scripting.Dictionary") 
03.
    With dic 
04.
        .Add "Description: ", "" 
05.
        .Add "Location: ", "" 
06.
        .Add "Printer State: ", "" 
07.
        .Add "URI: ", "" 
08.
        .Add "Dtro: ", "" 
09.
        .Add "ä", "ä" 
10.
        .Add "ü", "ü" 
11.
        .Add "ö", "ö" 
12.
    End With 
13.
    keys = dic.keys 
14.
    For i = 0 To dic.Count - 1 
15.
        ActiveSheet.UsedRange.Replace keys(i), dic(keys(i)), xlPart, ,True 
16.
    Next 
17.
    set dic = Nothing 
18.
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.
Bitte warten ..
Mitglied: colinardo
27.12.2014, aktualisiert um 17:46 Uhr
p.s. eventuell auftauchende Warnhinweise und aufpoppende Dialogboxen kannst du in Excel, wenn du mit Makros arbeitest generell hiermit unterbinden:
01.
'Warnhinweise und Dialoge unterdrücken 
02.
Application.DisplayAlerts = False 
03.
 
04.
'.... Hier dein Code 
05.
 
06.
' am Ende des Codes immer wieder zurückstellen 
07.
Application.DisplayAlerts = True
Bitte warten ..
Mitglied: thomas1972
28.12.2014 um 08:54 Uhr
Danke Uwe,

bist spitze,
damit funktioniert es nun, danke..
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Grenzwerte in String prüfen Regex ??? Excel2010 (3)

Frage von Chillministrator zum Thema VB for Applications ...

Batch & Shell
gelöst Powershell - Datei prüfen ob vorhanden, dann löschen (9)

Frage von Bugger zum Thema Batch & Shell ...

Drucker und Scanner
Officejet 250 WLAN nicht vorhanden (9)

Frage von Kimaro zum Thema Drucker und Scanner ...

Windows 10
gelöst Profillaufwerk vorhanden und gleichzeitig nicht vorhanden (4)

Frage von Hanuta zum Thema Windows 10 ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (10)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

C und C++
Methode multiple return values (8)

Frage von mayho33 zum Thema C und C ...