Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Werte aus mehreren Excel Dateien in eine

Mehrere Werte aus mehreren Excel Dateien in eine
10.08.2017 11:23:21
Anna
Liebe Herber Forum Community
Ich habe ein für mich leider nicht lösbares Problem -
Ich habe 424 Dateien (und täglich werden es mehr) aus denen ich die Daten aus Tabellenblatt "Spartenübersicht", Spalte F2:F10 in eine extra Excel Datei ausgelesen benötige.
Soweit ich gelesen habe kann man das nur via VBA lösen - meine Kenntnisse sind hier aber sehr beschränkt, also bräuchte ich Unterstützung eurer Seits - falls jemand das Wissen und die Zeit aufbringen kann.
Vielen lieben Dank!
Anna
Problem als Bild:
Userbild

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Werte aus mehreren Excel Dateien in eine
10.08.2017 13:44:07
Michael
Hallo!
zB mit diesem Makro, das Du am besten in Deine Ziel-Datei aufnimmst, und von da startest (falls Du nicht weißt wie, gib nochmal Bescheid):
Sub a()
Const QUELLE$ = "Spartenübersicht" 'ggf. anpassen
Const DATEN$ = "F2:F10" 'ggf. anpassen
Dim WbZ As Workbook: Set WbZ = ThisWorkbook
Dim WsZ As Worksheet: Set WsZ = WbZ.Worksheets("Tabelle1") 'anpassen
Dim WbQ As Workbook, Pfad$, Datei$
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Bilder-Pfad wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "\"
End If
End With
Datei = Dir(Pfad & "*.xls*")
Do While Datei  ""
If Datei  WbZ.Name Then
Set WbQ = Workbooks.Open(Pfad & Datei)
With WsZ
.Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1) = WbQ.Name
WbQ.Worksheets(QUELLE).Range(DATEN).Copy _
Destination:=.Cells(2, .Columns.Count).End(xlToLeft).Offset(, 1)
End With
WbQ.Close False
End If
Datei = Dir
Loop
Set WbZ = Nothing: Set WsZ = Nothing: Set WbQ = Nothing
End Sub
Das Makro öffnet einen Datei-Auswahl-Dialog, in dem Du den Ausgangspfad (mit den Quell-Dateien) wählen musst. Es werden dann nach und nach die Dateien geöffnet, und der betroffenen Bereich in das Zielblatt kopiert. Du musst ggf. die Bezeichnung für das Ziel-Tabellenblatt anpassen (bei mir "Tabelle1").
Klappt?
LG
Michael
Anzeige
AW: Mehrere Werte aus mehreren Excel Dateien in eine
10.08.2017 16:47:22
Anna
Hallo Michael!
Danke für deine schnelle Antwort!!
Ich hab geschafft das auszuführen, aber irgendwie ist bei mir ein Fehler aufgetaucht - weißt du was das heißen könnte?
Anbei der Screenshot der Fehlermeldung, was passiert wenn ich auf "Debuggen" klicke und das was in der XLS Datei als Ergebnis rauskommt.
Vielen Dank nochmal für deine Unterstützung!
lg,
Anna
Fehlermeldung:
Userbild
Bei mir funktioniert der Code...
10.08.2017 17:22:37
Michael
Anna,
...ich habe das jetzt extra nochmal getestet. Das kann eigentlich nur bedeuten, dass Du meine Hinweise nicht beachtet hast:
- heißen die Quell-Blätter immer "Spartenübersicht" (und zwar genauso, "Spartenübersicht ", mit einem Leerzeichen, wäre schon etwas anderes!)
- Wie heißt Dein Ziel-Tabellenblatt? In meinem Code gehe ich von "Tabelle1" aus, das musst Du an Deine Bedingungen anpassen
Wo Du das anpasst hab ich Dir im Code sogar angezeigt:
Const QUELLE$ = "Spartenübersicht" 'ggf. anpassen
Const DATEN$ = "F2:F10" 'ggf. anpassen
Dim WsZ As Worksheet: Set WsZ = WbZ.Worksheets("Tabelle1") 'anpassen
LG
Michael
Anzeige

300 Forumthreads zu ähnlichen Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
mehrere Befehle in einen Blatt
Werner

Hallo zusammen,
ich habe folgendes Problem. In einen Tabellenblatt habe ich sehr viele Makros, bei Befehlschaltflächen ist das kein Problem, jedeoch habe ich mehrere(über 100) Private Sub Worksheet_Calculate() es kommt eine Fehlermeldung Mehrdeutiger Name. Wie könnte man das Problem Lösen?...
08.01.2009 22:18:00
Thread-ID: 1038059
3 Beiträge
Anzeige

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
2
1
5
4
3
4
2
6
3
2
4
1
2
4
4
8
3
2
2
3
8
10
7
4
8