Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Microsoft Microsoft Office

GELÖST

Prüfen ob string im Tabellenblatt vorhanden

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

27.12.2014, aktualisiert 17:14 Uhr, 2218 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
Mit VBA prüfen, ob Tabellenblatt existiert
gelöst Frage von Anna2701VB for Applications9 Kommentare

Hallo zusammen, ich habe folgendes Problem: Ich prüfe in meinem Code, ob ein Tabellenblatt existiert und wenn es existiert ...

Batch & Shell
Powershell - Datei prüfen ob vorhanden, dann löschen
gelöst Frage von BuggerBatch & Shell9 Kommentare

Hallo, ich habe glaube ich eine einfache Frage. Folgenden Code ausschnitt habe ich: Wenn ich jetzt bei jedem $var ...

VB for Applications
VBA Grenzwerte in String prüfen Regex ??? Excel2010
Frage von ChillministratorVB for Applications3 Kommentare

Hallo zusammen, in meiner Tabelle soll der Bereich Z8S9 bis Z76S20 Zeile für Zeile überprüft werden. In den Spalten ...

Microsoft Office
Prüfe ob datei vorhanden, falls nicht prüfe weiter....stopp nach 10 min
gelöst Frage von thomas1972Microsoft Office2 Kommentare

Hallo, ich möchte per VBA in Excel prüfen lassen, ob eine Datei X im Verzeichnis Y vorhanden ist Diese ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...