Mehrere Excel Mappen änderen

Question

Hallo zusammen,

habe folgendes Problem, ich habe mehrere Excel Dateien die alle gleich aufgebaut sind, nun müsste ich bei allen in bestimmten Zellen die Formeln ändern und an den Makros änder sich auch was , ist es irgendwie Möglich das per VBA zuerledigen, möchte nicht alle Datein einzeln Öffnen und die Änderungen vornehmen.


grüße und einen schönen Sonntag

achim

Answer 1

Hallo Achim,

Code per VBA ändern, lasse das, Dazu muss der Zugriff au´f das VBA Projekt zugelassenn werden. Dazu schreibe ich nichts da dies tief in die Sicherheit geht.


Gruß Hjao

Answer 2

Hallo Hjao,

also den VBA Code änderen ist nicht so leicht Möglich, geht es aber mit den Formlen in den Zellen?

Gruß
achim

Answer 3

Sub DateienKorrigieren()
Call EventsOff
Dim DateiName As String
Dim OrdnerPfad As String
OrdnerPfad = OrdnerAuswahl
DateiName = Dir(OrdnerPfad & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:=OrdnerPfad & DateiName
Workbooks(DateiName).Worksheets(1).Range("B:B").Replace What:="ALTDATEN", Replacement:="NEUDATEN", LookAt:=xlPart, SearchOrder:=xlByRows
Workbooks(DateiName).Close SaveChanges:=True
End If
DateiName = Dir
Loop
Call EventsOn
End Sub

Function OrdnerAuswahl() As String
On Error GoTo FehlerRoutine
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
FehlerRoutine:
End Function

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Answer 4

hi all ^^

ein beispiel

gruss nighty

p.s,
iebrigens laesst sich hier noch kaum was screiben btw korrigieren,alles defekt hier

Answer 5

hi all ^^

schon peinlich das das seit wochen ist und dem admin nicht aiffaellt

gruss nighty

Answer 6

Hallo nighty, korrigieren konntest du hier noch nie etwas. Wenn dir ein Fehler auffällt sei doch so nett und melde den über den Adminpager. Dafür haben wir den extra eingeführt.

Gruß
Mic

[sup]Bei Eingriffen ins System, die Registry oder Dateien erst eine Sicherung vornehmen©[/sup]