ich habe ca. 15 Excel-Dateien gleichzeitig geöffnet und würde dort gerne die Zelle B4 mit einem bestimmten Wert füllen und zwar für alle Dateien.
Gruß
Bernd
Sub test()
Dim wkb As Workbook
Dim iput As String
iput = Application.InputBox("Bitte Wert eingeben", "TEST")
For Each wkb In Application.Workbooks
wkb.Worksheets(1).Cells(2, 4).Value = iput
Next
End Sub
Hier wird in allen geöffneten Mappen in Tabellenblatt1 in Zelle B4 der Wert eingetragen, den Du in die Inputbox eingibst.
Sub test()
Dim wb As Workbook
For Each wb In Application.Workbooks
wb.Sheets(1).Range("B4") = "Wert"
Next wb
End Sub
Gruß Matthias