Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Suchen und Ersetzen in gesamter Arbeitsmappe

VBA Suchen und Ersetzen in gesamter Arbeitsmappe
Christian
Hallo,
ich habe ein kleines Problem, mein VBA soll eine Datei öffnen, diese nach einem Begriff durchsuchen
und anschließend ersetzen. Der Code basiert auf dem was der Recorder mir gibt wenn ich die gesamte Mappe durchsuche:

Workbooks.Open Filename:=".."
Cells.Replace What:=alt, Replacement:=neu, LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Trotzdem wird nur das erste Sheet durchsucht. Habe ich etwas übersehen?
Vielen Dank für eure Hilfe!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Suchen und Ersetzen in gesamter Arbeitsmappe
20.08.2010 11:09:31
urmila
Hallo Christian,
bei meiner Aufnahme entstand dies noch.....
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
Das ist wichtig, da du ja ihm sagen musst in welchen Tabellenblätter er die Aktion ausführen soll, ist es nicht angegen, führt er diese nur im aktiven Tabellenblatt, sofern ich das weiß.
LG
Urmila
AW: VBA Suchen und Ersetzen in gesamter Arbeitsmappe
20.08.2010 11:14:22
urmila
Hi nochmal,
und wenn du vornherein sagen willst er soll alle Tabellenblätter markieren...dann füge das vor dem Code ein
Workbooks.Open Filename:=".."
ThisWorkbook.Sheets.Select
Cells.Replace What:=alt, Replacement:=neu, LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
LG
Urmila
Anzeige
AW: VBA Suchen und Ersetzen in gesamter Arbeitsmappe
20.08.2010 11:16:50
Klaus
Hallo Christian,
er nimmt immer das aktive sheet. Machs so:
Sub AlleSheets()
Workbooks.Open Filename:=".."
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Cells.Replace What:=alt, Replacement:=neu, LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

Klartext: Öffne das Workbook, zähle die Sheets, nimm das erste Sheet, ersetze, nimm das zweite Sheet, ersetzt [...] Bis alle Sheets durch sind.
Grüße,
Klaus M.vdT.
(so wie der Code da steht läuft er natürlich nicht, da die variablen alt und neu nicht definiert sind)
Anzeige

300 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Anzeige
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Anzeige
Zelle suchen und ausgeben per VBA
Lutz

Hallo,
ich habe eine Mehrdfachoperation, bei der ich mehrere Parameter gegeneinander auswerte. Dabei benutze ich immer eine %-Änderung der Parameter. Ich würde gerne neben den Ergebnissen der Mehrfachoperation aber auch die absoluten Werte der Parameter ausgeben. Da ich mehr als 7 Parameter...
10.02.2009 20:42:00
Thread-ID: 1049308
8 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
2
2
5
1
7
1
3
18
7
2
2
6
2
4
7
10
6
4
5
5
2
5
5
1