Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen automatisch ausfüllen

Zellen automatisch ausfüllen
02.02.2004 14:59:39
junny
Hai Leute,
ich habe eine unbestimmte Anzahl an Mappen in einem Ordner.
Kann Ich über eine Inputbox einen Wert in alle Mappen dieses Ordners schreiben(in Tabelle 1 Zelle U5) der Wert soll in den jeweiligen Mappen auch gespeichert werden.
Danke für Hilfe,
Grüsse volker

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch ausfüllen
02.02.2004 16:53:05
Nepumuk
Hallo Volker,
nicht ohne die Mappen vorher zu öffnen. Aber das lässt sich automatisieren. Brauchst du dazu hilfe?
Gruß
Nepumuk
AW: Zellen automatisch ausfüllen
02.02.2004 21:59:40
junny
Ja, Nepumuk
ein bißchen Hilfe wäre da nicht schlecht.
Spielt die Anzahl der Mappen dabei eine Rolle?
Grüsse volker
AW: Zellen automatisch ausfüllen
02.02.2004 22:13:35
Nepumuk
Hallo Volker,
folgende Routine öffnet dir sämtliche Excelmappen im vorgegebenen Ordner und speichert sie anschließend.

Option Explicit
Public Sub volker()
Dim intIndex As Integer
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\Eigene Tabellen"
.FileType = msoFileTypeExcelWorkbooks
.Execute
For intIndex = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(intIndex)
'            Hier kommt dein Code zum schreiben in die Tabelle
ActiveWorkbook.Close SaveChanges:=True
Next
End With
Application.ScreenUpdating = True
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
DANKE Nepumuk (ich glaube Du schläfst Nie)
03.02.2004 08:14:42
junny
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige