Update speichern
27.02.2023 12:46:17
Daniela
Das folgende Makro dient dazu, Änderungen auf alle in einem Ordner befindlichen Excel an gleicher Stelle zu ändern.
Ich möchte aber nicht immer den Wert der zu ändern ist, in dem Makro anpassen, sondern den Wert der zu ändern ist im aktuellen Excel in die Zelle einfügen und aus dieser dann die Änderungen vornehmen. Was muss ich im Makro noch ändern? Leider komme ich nicht weiter und benötige eure Hilfe.
Option Explicit
Sub Update()
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Application.ScreenUpdating = False
sPfad = "C:...\"
sDatei = Dir(CStr(sPfad & "*.xlsb*"))
Do While sDatei > ""
Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, False)
'Änderungen durchführen, als Beispiel Zelle C28 mit "Zahlen" befüllen
oSourceBook.Sheets("Tabelle2").Cells(28, 3).Value = "22.22"
Application.DisplayAlerts = False
oSourceBook.Close True 'speichern
Application.DisplayAlerts = True
sDatei = Dir()
Loop
Application.ScreenUpdating = True
Set oSourceBook = Nothing
End Sub
lg Daniela