Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter mit Makro kopieren

Tabellenblätter mit Makro kopieren
08.09.2003 01:13:18
René
Hallo,

ich brauche noch mal Hilfe. Wie kann ich über ein Makro alle Arbeitsmappen eines Verzeichnisses (Pfad ist in Zelle B1) nach einander öffnen und nur das erste Tabellenblatt in meine aktive Arbeitsmappe kopieren, und die geöffnete Arbeitsmappe wieder schließen.

Danke für euer Verständnis

Mit freundlichen Grüßen

René

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter mit Makro kopieren
08.09.2003 08:20:03
Olim Kalimba
Hallo René,

das folgende Makro könnte ein Ansatz für Dich darstellen:
Vorgehensweise:
# der Pfad wird aus Zelle B1 übernommen
# das Verzeichnis (Pfad) wird nach »*.xls« durchsucht
# jede gefundene Datei wird nacheinander geöffnet
# das erste Tabellenblatt wird in die Zieldatei hinter das jeweils
erste Tabellenblatt kopiert
# die Datei wird wirder geschlossen (ohne Speichern)


Sub FILE_OPENER()
Dim AFS As Object, i As Integer
Dim targetWB As String, sourceWB As String
Pfad = Range("B1").Value 'Suchpfad
Set AFS = Application.FileSearch
targetWB = ActiveWorkbook.Name 'Zieldateinamen merken
With AFS
ChDir Pfad 'Verzeichnis wechseln
.NewSearch 'Neue Suche beginnen
.LookIn = Pfad 'Suchen in
.Filename = "*.xls" 'Dateienbezeichnung
If .Execute > 0 Then 'Dateien gefunden
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i)) 'Datei öffnen
sourceWB = ActiveWorkbook.Name 'Dateinamen merken
'Erstes Tabblatt hinter das erste Tabblatt der Zieldatei
'kopieren
Sheets(1).Copy after:=Workbooks(targetWB).Sheets(1)
'Quelldatei schließen
Workbooks(sourceWB).Close SaveChanges:=False
Next
Else
'Keine Dateien gefunden
MsgBox "Keine Dateien gefunden!"
End If
End With
End Sub

Gruß
\Olaf
Anzeige
AW: Tabellenblätter mit Makro kopieren
08.09.2003 09:10:21
René
Hallo Olaf,

danke für das Makro hat funktioniert. Das Makro war für mich gut erläuter, ich bin gerade dabei in die Makro Sache einzusteigen, aber leider ohne Englisch Kenntnisse. Habe mit Application.ScreenUpdating = False
Application.ScreenUpdating = True das hin und her springen versucht zu unterdrücken. leider erfolglos, was habe ich falsch gemacht.

Grüß René
AW: Tabellenblätter mit Makro kopieren
08.09.2003 11:34:52
Olim Kalimba
Hallo René,

am besten das »ScreenUpdating« am Beginn eines Makros (nach der Variablendeklaration) und als letzte Zeile vor dem Makroende einsetzen:
In diesem Falle:


Sub FILE_OPENER()
Dim AFS As Object, i As Integer
Dim targetWB As String, sourceWB As String
Application.ScreenUpdating = False
Application.ScreenUpdating = True
End Sub

Gruß
\Olaf
Anzeige
AW: Tabellenblätter mit Makro kopieren
11.09.2003 09:38:53
René
Hallo Olaf,

hat alles geklappt. Habe es noch versucht mit meinen Aufgezeichneten Makro´s zuverbinden,aber nicht mit dem gewünschtem Erfolg.

MfG René

307 Forumthreads zu ähnlichen Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Anzeige
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Zwei Kriterien für Sverweis
sascha76er

Hallo,
ich habe folgende Liste:
https://www.herber.de/bbs/user/55778.xls
Hier möchte ich gerne anhand von zwei Kriterien einen SVERWEIS erstellen für die Spalte P , die Kriterien sollen aus den Werten der Spalten E und M gebildet werden. Der entsprechende Wert muss im Tabellenblatt...
01.10.2008 16:04:31
Thread-ID: 1013672
3 Beiträge
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
2
2
5
2
1
2
4
3
6
11
3
5
11
6
2
2
2
5
1
3
3
3
6