Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige