wie kann ich auf eine bestimmte Zelle (a1)
in allen geöffneten Mappen des Tabellenblattes (Tabelle 1)
zugreifen und den Inhalt ändern.
Danke und Gruß
Sub Test()
Dim Mappe As Workbook
For Each Mappe In Workbooks
Mappe.Sheets(1).Range("A1") = "Hallo"
Next Mappe
End Sub
Gruß
Tino
Sub Test()
Dim Mappe As Workbook
Dim a As Integer
For Each Mappe In Workbooks
For a = 1 To Mappe.Sheets.Count
If Mappe.Sheets(a).Name = "März" Then
Mappe.Sheets(a).Range("A1") = "Hallo"
Exit For
End If
Next a
Next Mappe
End Sub
Gruß
Tino