viele Dateien an gleicher Stellen den selben Text

Forumthread: viele Dateien an gleicher Stellen den selben Text
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: viele Dateien an gleicher Stellen den selben Text

08.11.2004 14:09:37

Gabriele

Hallo,
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?

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: viele Dateien an gleicher Stellen den selben Text

08.11.2004 14:30:13

Rolf

AW: viele Dateien an gleicher Stellen den selben Text

08.11.2004 14:30:13

Rolf

Hallo Gabriele,
den folgenden Code müsstet du
lediglich hinsichtlich Sheetindex (1 ersetzen)
und Range-Adresse (A1 ersetzen) anpassen
fG
Rolf


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