Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in allen Mappen eines Ordners ersetzen

Forumthread: Daten in allen Mappen eines Ordners ersetzen

Daten in allen Mappen eines Ordners ersetzen
03.09.2013 13:59:44
kurt
Hallo Leute,
ich habe einen Ordner voller Dateien, in denen Werte (meist Text) geändert werden müssen. Die Änderungen betreffen immer die gleichen Zellen (z. B. A1:A3) eines bestimmten Tabellenblattes. Das Tabellenblatt ist geschützt, die Zellen sind gesperrt. Passwort ist bekannt ;-)
Wie kann man das anstellen? Danke für die Hilfe.
Eiserne Grüße aus der Hauptstadt
Kurt

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in allen Mappen eines Ordners ersetzen
03.09.2013 15:07:44
Rudi
Hallo,
etwa so: 
Sub Ersetzen()
Dim wkb As Workbook, strFile As String
Const strPfad As String = "c:\Test\"
Const strTab As String = "Tabelle1"
Const strPW As String = "Passwort"
Application.ScreenUpdating = False
strFile = Dir(strPfad & ".xls")
Do While strFile  ""
Set wkb = Workbooks.Open(strPfad & strFile)
With wkb
With .Sheets(strTab)
.Unprotect strPW
.Range("A1") = "abc"
.Range("A2") = "def"
.Protect strPW
End With
.Close True
End With
strFile = Dir
Loop
End Sub

Gruß
Rudi

Anzeige
AW: Daten in allen Mappen eines Ordners ersetzen
03.09.2013 15:18:01
kurt
Hallo Rudi,
vielen Dank ersteinmal für Deine Hilfe. Probiere ich heute Abend zu Hause mal aus.
Eiserne Grüße aus der Hauptstadt
Kurt

Super Lösung. Vielen Dank. owT
03.09.2013 22:18:17
Kurt
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
SUMMENPRODUKT in VBA übersetzen
Olaf

Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
Dinge in Abhängigkeit ersetzen
sascha76er

Hallo,
ich möchte gerne in der Spalte B den Wert "[#p Stück]" durch -Links- oder -Rechts- in Abhängigkeit vom letzten Buchstaben in der Artikelnummer entsprechend ersetzen.
Kann mir jemand sagen wie dies lösen kann?
Hier meine Datei: https://www.herber.de/bbs/user/55000.xls
Gru...
28.08.2008 16:25:34
Thread-ID: 1005516
2 Beiträge
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Ersetzen mit Bedingung in VBA
bully

Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
07.09.2008 20:41:15
Thread-ID: 1008002
3 Beiträge
Anzeige
Ersetzen mit VBA in allen Arbeitsblättern
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:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Anzeige
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Mail-Adressen ersetzen
dani

Hallo zusammen,
ich habe ein Excel-Problem - ich hoffe, jemand kann mir weiterhelfen :)
In einer Excel-Datei habe ich eine Spalte mit Mail-Adressen, z.B. max.mustermann@firma_x.de
Da sich die Firmierung geändert hat, müssen sämtliche Domainnamen geändert werden in max.mustermann@fir...
15.10.2008 09:39:22
Thread-ID: 1016481
2 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