Zellbereich G1:AH14 in 795 Dateien ändern

Hallo liebe Excel-Experten,
ich habe folgendes Problem:
Ich habe 795 Dateien in einem Ordner. Die Dateien sind nach einem sechstelligen Code benannt, der nicht fortlaufend ist, beginnend bei 10001, endend bei 104093.
Jede Datei enthält ein einzelnes Tabellenblatt, das ebenfalls mit dem Code benannt ist.
Auf dem jeweiligen Tabellenblatt befinden sich im Bereich A2:F14 Daten einer statistischen Erhebung. In den Zellen G14:AH14 folgen Auswertungen mithilfe von Formeln (zählenwenn etc.), die in jeder Datei gleich sind.
Der Zellbereich G14:AH14 ist leider fehlerhaft und muss in allen 795 Dateien ersetzt werden. Der neue Bereich befindet sich in einer neuen Template-Datei ebenfalls im Bereich G14-AH14. Klar, ich kann jede Datei von Hand öffnen und den Bereich aus der neuen Template-Datei über die Zwischenablage herüberkopieren. Das würde allerdings sehr lange dauern. Und - schlimmer noch - was ist, wenn mein Chef den Auswertungsbereich morgen wieder ändert...? Aaarghh, genau...
Es wäre großartig, wenn jemand wüßte, wo eine Lösung für dieses Problem beschrieben ist. Vielleicht kann jemand sogar ein entsprechendes Skript hier posten. Das wäre klasse!
Ich bin für jede Hilfe dankbar!
Herzliche Grüße,
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ingo,
mal ein Ansatz:

Option Explicit
Sub Mappen_Aendern()
Const Pfad = "d:\xl\"
Const Bereich = "G14:AH14"
Dim fn As String
Dim ff As Integer
Dim Ber As Range, z As Range
ff = FreeFile()
Open Pfad & "log.txt" For Output As ff
On Error Resume Next
fn = Dir(Pfad & "*.xls")
Do While fn <> ""
Debug.Print fn
Workbooks.Open Filename:=Pfad & fn
If Err.Number > 0 Then
Print #1, "### Fehler beim Öffnen von " & fn
Err.Clear
Else
Print #1, "Öffne Datei " & fn & "...";
'Fehler beheben:
For Each z In ThisWorkbook.Sheets("Tabelle1").Range(Bereich)
ActiveSheet.Range(z.Address).Formula = z.Formula
Next z
If Err.Number > 0 Then
Print #1, "Fehler!"
Err.Clear
Else
Print #1, "OK"
End If
ActiveWorkbook.Close SaveChanges:=True
End If
fn = Dir()
Loop
Close ff
End Sub

Der Code liest alle *.xls-Dateien des in "Pfad" definierten Verzeichnisses ein und kopiert den Wert/die Formel des Blattes "Tabelle1" der aktiven Mappe. Der Bereich ist in der Konstante "Bereich" definiert.
Es wird eine Textdatei log.txt erstellt, die die Änderungen mitprotokolliert.
Gruß Matthias
P.S. Ich gehe davon aus, dass du erst einmal mit Kopien arbeitest, nicht dass durch einen Fehler alle Dateien futsch gehen! ;-)

Beliebteste Forumthreads (12 Monate)

Zellbereich G1:AH14 in 795 Dateien ändern

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread