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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen