Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inallen Arbeitsmappen selben Text eintragen ?

Inallen Arbeitsmappen selben Text eintragen ?
Selma
Hallo Leute,
wie kann ich in allen Arbeitsmappen ca. 300 Dateien (G:\projekte\ausgang\*.xls) im Arbeitsblatt "Daten" in Zelle
E3 "Kunde tg040" und in F3 "Frau Daniels" automatisch eintragen ?
Vielen Dank im Voraus...
Liebe Grüße
SELMA

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inallen Arbeitsmappen selben Text eintragen ?
14.02.2006 14:29:03
eugen
hi
aber vorsicht nicht getestet
Public

Sub f()
Application.DisplayAlerts = False
szFile = Dir("g:\projekte\ausgang\*.xls")
Do While szFile <> ""
Workbooks.Open (szFile)
For i = 1 To Sheets.Count
If Sheets(i).Name = "Daten" Then
Sheets(i).Cells(3, 5).Value = "Kunde tg040"
Sheets(i).Cells(3, 6).Value = "Frau Daniels"
Exit For
End If
Next i
ActiveWorkbook.Save
ActiveWorkbook.Close
szFile = Dir
Loop
End Sub

mfg
AW: In allen Arbeitsmappen selben Text eintragen ?
14.02.2006 15:00:24
Selma
Hallo Eugen,
leider bleibt es hier stehen: Workbooks.Open (szFile)
Gruß
Selma
AW: In allen Arbeitsmappen selben Text eintragen ?
17.02.2006 12:34:22
eugen
hi
und was sagt er als fehlermeldung ?
mfg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige