23.01.2024, 10:15
(23.01.2024, 10:01)Crazy Tom schrieb: [ -> ]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.
