Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.05.2025 11:55:43
Formatierung
22.05.2025 11:16:14
Zeile per Userform suchen und in spalte x um Wert y erhöhen
22.05.2025 11:13:09
-Mitte- Funktion geht nicht
22.05.2025 10:18:40
Von einander abhängige Comboboxen auf einer Userform
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzen mit VBA in allen Arbeitsblättern

Forumthread: Ersetzen mit VBA in allen Arbeitsblättern

Ersetzen mit VBA in allen Arbeitsblättern
11.09.2008 15:35:53
Walter
Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
"E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[_Basisdaten.xlsx" _
, Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Wie kann ich den Code modifizieren, sodass das Ersetzen in allen Arbeitsblättern vorgenommen wird.
Bitte um Hilfe - DANKE!
Walter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Benutzeranpassung
Tags
#arbeitsblätter #ersetzung #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Ersetzen mit VBA in allen Arbeitsblättern
11.09.2008 15:44:00
Tino
Hallo,
versuche es mal so.
Modul Modul1 
Option Explicit 
 
Sub SuchenErsetzen() 
Dim Tabellen As Worksheet 
 
For Each Tabellen In ThisWorkbook.Sheets 
    Tabellen.Cells.Replace What:= _
"E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[_Basisdaten.xlsx" _
, Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False 
Next Tabellen 
 
 
 
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Ersetzen mit VBA in allen Arbeitsblättern
12.09.2008 07:09:54
Walter
Hallo Tino,
besten DANK!
Walter
AW: Ersetzen mit VBA in allen Arbeitsblättern
12.09.2008 11:53:31
Walter
Hallo Tino,
ich habe mich zu früh gefreut und bin noch nicht ganz am Ziel, denn es werden plötzlich keine Ersetzungen mehr durchgeführt.
Hier ist der Code, bitte schau ihn nochmal durche - DANKE!
Walter

Sub Wertung()
Dim Tabellen As Worksheet
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect
Next i
For Each Tabellen In ThisWorkbook.Sheets
Tabellen.Cells.Replace What:= _
"E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\Version 2007\[ _
_Basisdaten.xlsx" _
, Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Next Tabellen
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Protect
Next i
End Sub


Anzeige
AW: Ersetzen mit VBA in allen Arbeitsblättern
12.09.2008 15:42:00
Tino
Hallo,
so gehts.
Modul Modul1 
Option Explicit 
 
Sub Wertung() 
Dim Tabellen As Worksheet 
 
For Each Tabellen In ThisWorkbook.Sheets 
    Tabellen.Unprotect 
      
     Tabellen.Cells.Replace What:= _
      "E:\Dokumente und Einstellungen\Gerhard\Desktop\NÖBV\Konzertwertungsprogramm\" & _
      "Version 2007\[Basisdaten.xlsx" _
      , Replacement:="E:\BAG\BKpm\Konzertwertung\Auswertung\2008\[_Basisdaten.xls" _
      , LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat _
      :=False, ReplaceFormat:=False 
     
     
    Tabellen.Protect 
Next Tabellen 
  
 
End Sub


Gruß Tino

Anzeige
AW: Ersetzen mit VBA in allen Arbeitsblättern
15.09.2008 08:24:44
Walter
Jetzt funktoniert´s - DANKE!
Walter

Forumthreads zu verwandten Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA zur Dateneingabe über mehrere Blätter
Eddie

Hallo @ all,
ich suche ein kleines Makro, womit man in allen Tabellenblättern, außer ein Paar vorher defnierten einen bestimmten Wert in eine bestimmt Zelle reinkopiert...
Vielleicht geht sowas mit Comboboxen ? .. aber auch ein Makro, wo man die TB die nicht dafür verwendet werden solle...
18.08.2008 14:44:00
Thread-ID: 1002607
3 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Anzeige
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Per VBA eintragen und löschen
HansP

Hallo!
Ich habe ein bzw. mehrere Probleme. Ich muss in Excel eine kleine Verwaltung realisieren. Ich habe mehrere Tabellenblätter, die für die einzelnen Produkte stehen. Benennung ist identisch mit der Gruppe.
Die Tabelle selbst ist so aufgebaut:
lfd. Nr. | Menge | Eingang | Kürz...
06.11.2008 23:36:00
Thread-ID: 1022472
3 Beiträge
Per VBA Namen in Zellbezüge
Nico

Hallo,
nach ewiger - jedoch erfolgloser - Recherche im Web möchte ich mich mit meinem Problem an das Forum wenden.
Aus einer Arbeitsmappe mit ca. 20 Blättern soll ein Blatt kopiert werden, welches separat gespeichert und dann an verschiedene Empfänger verschickt werden soll. Das Blatt v...
07.11.2008 15:05:15
Thread-ID: 1022699
3 Beiträge
VBA abbrechen einfügen
maruseru

Hallo werte Profis
Habe den untenstehend Code übernommen und die Name der Arbeitsblätter angepasst.
Folgendes:
Besteht das Arbeitsblatt 'Selected' bereits, erscheint die Inputbox für die Eingabe des gewünschten Namen.
Wie kann ich diese Inputbox abbrechen?
Danek und Gruss
07.11.2008 15:13:40
Thread-ID: 1022705
4 Beiträge
Anzeige
Datum/Autor für Eingabe mit "Historie" (vba)
Lukas

Hallo liebe Forumnutzer,
in meiner Unwissenheit wurde ich gebeten, folgendes umzusetzen:
In A5 wird ein Wert eingegeben, in A7 und A8 sollen einmal Autor und einmal Datum der Änderung notiert werden. Jetzt wird in A5 ein neuer Wert eingetragen, der alte Wert aus A5 soll inklusive Autor...
18.11.2008 17:52:05
Thread-ID: 1025721
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige