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
GELÖST

Excel - Suchen und Ersetzen in verschiedenen Dateien

Frage Microsoft Microsoft Office

Mitglied: Excel-Starter

Excel-Starter (Level 1) - Jetzt verbinden

03.07.2011 um 10:57 Uhr, 3842 Aufrufe, 4 Kommentare

Hallo an ALLE

Ausgangslage.
- Einige Hundert Excel-Dateien in verschiedenen Ordnern in einem gemeinsamen Überordner
- Dateinamen immer unterschiedlich
- Tabellen immer gleich aufgebaut, z. Bsp: Anschrift Straße in Zelle " E20 " und Anrede in Zelle " G30 "

Derzeitiger Zellinhalt in verschiedenen Schreibweisen
" G30 " Hr. ; Herr; Fr.; Frau

" E20 " Münchner Str. ; Münchner Straße ; Hauptstr. ; Hauptstraße; xxxx Str. ; xxxxstr.

Aufgabe:
In allen Zellen " G30 " soll immer Herr und Frau ausgeschrieben sein
Ersetzen von Hr. ; Hr ; Fr. ; Fr ; durch Herr oder Frau

In allen Zellen " E20 " soll Straße immer ausgeschrieben sein
Ersetzen von xxx Str. ; xxx Str ; xxxxstr. ; xxxstr ; in xxx Straße und xxxstraße


Es soll somit die Funktion "Suchen und Ersetzen" auf mehrere Dateien erweitert werden

Es kann in allen Zellen gesucht und ersetzt werden, besser wäre es aber nur genau in bestimmten Zellen zu ersetzen (G30)

Hat jemand hierzu eine Lösung

Vielen Dank im Voraus
Mitglied: bastla
03.07.2011 um 13:27 Uhr
Hallo Excel-Starter und willkommen im Forum!

Du könntest es mit folgendem Batch (speichern als Textdatei mit dem Typ ".cmd") versuchen:
01.
@echo off & setlocal 
02.
set "Ordner=D:\XL" 
03.
set "Dateien=*.xls" 
04.
 
05.
set "R=%temp%\ReplaceInXL.vbs" 
06.
 >%R% echo Set oXL=CreateObject("Excel.Application") 
07.
>>%R% echo oXL.Workbooks.Open WScript.Arguments(0) 
08.
>>%R% echo Set Anrede=oXL.ActiveSheet.Range("G30") 
09.
>>%R% echo Set Strasse=oXL.ActiveSheet.Range("E20") 
10.
>>%R% echo If Anrede.Value="Hr" Or Anrede.Value="Hr." Then Anrede.Value="Herr" 
11.
>>%R% echo If Anrede.Value="Fr" Or Anrede.Value="Fr." Then Anrede.Value="Frau" 
12.
>>%R% echo Von="str" :Nach="straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
13.
>>%R% echo Von="str.":Nach="straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
14.
>>%R% echo Von="Str" :Nach="Straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
15.
>>%R% echo Von="Str.":Nach="Straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
16.
>>%R% echo oXL.ActiveWorkbook.Close True 
17.
>>%R% echo oXL.Application.Quit 
18.
 
19.
pushd "%Ordner%" 
20.
for /f "delims=" %%i in ('dir /s /b /a-d %Dateien%') do ( 
21.
    echo Bearbeite "%%i" 
22.
    cscript //nologo %R% "%%i" 
23.
24.
popd
Gesucht und bearbeitet werden die Dateien im in Zeile 2 festgelegten Ordner und in dessen Unterordnern.
Die Ersetzung für die Anrede wird für den kompletten Zellinhalt vorgenommen, für die Straße wird immer nur das Ende des in der Zelle enthaltenen Textes berücksichtigt.

Bitte zuerst mit Kopien testen!

Grüße
bastla
Bitte warten ..
Mitglied: Excel-Starter
03.07.2011 um 16:34 Uhr
Hallo bastla,

ich habe es ausprobiert und das sieht super aus - vielen herzlichen Dank!

Jetzt hätte ich noch eine Bitte, könntest Du noch den Scripttext schreiben, wenn ganz allgemein xxxxstr. oder Str, in allen Zellen einer Datei durch xxxxstraße oder Straße ersetzt werden soll.

Wenn also keine bestimmte Zelle bekannt ist wo xxxxstr. oder Str. vorhanden ist, aber auch wieder in verschiedenen Dateien / Ordern.

Nochmals vielen Dank im Voraus

Der Excel-Starter
Bitte warten ..
Mitglied: bastla
03.07.2011 um 21:17 Uhr
Hallo Excel-Starter!

Versuch es damit:
01.
@echo off & setlocal 
02.
set "Ordner=D:\XL" 
03.
set "Dateien=*.xls" 
04.
 
05.
set "R=%temp%\ReplaceInXL.vbs" 
06.
 >%R% echo Set oXL=CreateObject("Excel.Application") 
07.
>>%R% echo oXL.Workbooks.Open WScript.Arguments(0) 
08.
>>%R% echo With oXL.ActiveSheet.Cells:Set Strasse=.Find("str") 
09.
>>%R% echo     If Not Strasse Is Nothing Then 
10.
>>%R% echo         firstAddress=Strasse.Address 
11.
>>%R% echo         Do 
12.
>>%R% echo             Von="str" :Nach="straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
13.
>>%R% echo             Von="str.":Nach="straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
14.
>>%R% echo             Von="Str" :Nach="Straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
15.
>>%R% echo             Von="Str.":Nach="Straße":If Right(Strasse.Value,Len(Von))=Von Then Strasse.Value=Left(Strasse.Value,Len(Strasse.Value)-Len(Von))^&Nach 
16.
>>%R% echo             Set Strasse=.FindNext(Strasse) 
17.
>>%R% echo         Loop While Not Strasse Is Nothing And Strasse.Address^<^>firstAddress 
18.
>>%R% echo     End If 
19.
>>%R% echo End With 
20.
>>%R% echo oXL.ActiveWorkbook.Close True 
21.
>>%R% echo oXL.Application.Quit 
22.
 
23.
pushd "%Ordner%" 
24.
for /f "delims=" %%i in ('dir /s /b /a-d %Dateien%') do ( 
25.
    echo Bearbeite "%%i" 
26.
    cscript //nologo %R% "%%i" 
27.
28.
popd
Grüße
bastla
Bitte warten ..
Mitglied: Excel-Starter
05.07.2011 um 20:44 Uhr
... das Script funktioniert tadellos!

Nochmals vielen herzlichen Dank

Excel-Starter
Bitte warten ..
Ähnliche Inhalte
Windows Tools
Suche Programm zum dateien suchen und Ersetzen mit Wildcat Suche
gelöst Frage von sfera-haizaWindows Tools5 Kommentare

Grüßt euch, ich nutze zzT. das Programm InfoRapid Suchen & Ersetzen um HTML / PHP Dateien zu durchsuchen bzw. ...

VB for Applications
Spalte suchen, rechnen und ersetzen Excel vba
gelöst Frage von 123660VB for Applications11 Kommentare

Hallo zusammen, ich hoffe ihr könnt mir weiter helfen. mein Problem ist : ich habe ein Tabelle mit 2 ...

Microsoft
Im ordner nach dateien aus excel liste suchen
Frage von tiolocoMicrosoft2 Kommentare

hallo, ich habe ein problem, das bei mir des öfteren vorkommt: sagen wir mal, ich hab ein ordner mit ...

Batch & Shell
Batch: Dateien innerhalb einer Ordnerstruktur nach einem Sting suchen und ersetzen
Frage von yousaintBatch & Shell2 Kommentare

Hallo zusammen, wie oben erwähnt, würde ich gerne innerhalb einer Ordnerstruktur (Dateien innerhalb aller Unterordner) in den Dateien nach ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 45 MinutenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 4 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell8 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...