Zelle in mehreren Dateien ändern

[Putsch86]

aufgrund deiner Angaben könnte das hier ein Weg sein

Code:

Sub Zelle_Nullen()
    dateien = Application.GetOpenFilename _
    ("Excel-Dateien (*.xls), *.xls", MultiSelect:=True)
    Application.ScreenUpdating = False
    If IsArray(dateien) Then
        For i = 1 To UBound(dateien)
            Workbooks.Open dateien(i)
            With ActiveWorkbook
                .Sheets("K9630371").Range("U5").Value = 0
                .Save
                .Close
            End With
        Next
    End If
    Application.ScreenUpdating = True
End Sub

mfg Tom

Es hat geklappt! Ich bin dir so dankbar! Das hat mir einige Stunden Arbeit erspart.