ich habe mehrere Dateien / Exel-Tabellen geöffnet und brauche in jeder Datei in der gleichen Zelle den selben Text. Kopieren über die Zwischenablage ist sehr aufwendig bei der Vielzahl der Dateien - gibt es eine einfache Lösung?
Sub gleicherText()
Dim wbs As Workbook
Dim txt As String
txt = InputBox("Bitte den Text eingeben")
For Each wbs In Workbooks
wbs.Sheets(1).Range("A1") = txt
Next
End Sub