Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche Beiträge oder brauche auch Hilfe

Suche Beiträge oder brauche auch Hilfe
15.06.2018 12:53:59
Sue
Hi zusammen,
ich hoffe auf Hilfe,
konnte noch keinen genauen Eintrag im Forum finden, welcher mir helfen würde.
Evtl. hat jemanden einen Link mit zugehörigem Beitrag oder kann mir helfen bei folgendem Problem:
Aufgabe:
1 Excel Datei soll per Makro (oder auch andere Lösung) mehrere Dateien
(8 Datein, immmer aus dem Tabellenblatt 1) zusammenbringen, ABER ebenfalls als einzelne Tabellenblätter. Jetzt ist eine zusätzlich Schwierigkeit, dass die Dateien jedes Mal einen anderen Namen haben, somit lässt es sich nicht über die Funktion Abfrage lösen, glaube ich zumindest.
Hat jemand nen Vorschlag?
Viele Grüße Sue

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 13:10:28
Torsten
Hallo Sue,
Frage 1: Sind die 8 Dateien alle im gleichen Ordner?
Frage 2: Das heisst, dass aus den Tabellenblaettern Nr. 1 der 8 Dateien eine neue Datei
entstehen soll mit 8 Tabellenblaettern?
Hab ich das richtig verstanden?
Gruss Torsten
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 13:24:55
Sue
Hallo Torsten,
ja genau, alle 8 Dateien liegen immer am gleichen Ort (auch die dann daraus resultierende soll dort sein) und ja , es sind 8 Dateien und sollen dann 8 Tabellenblätter werden.
Wie gesagt, ich glaube die Schwierigkeit liegt im Dateinamen, der jedes Mal anders :)
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 13:58:44
Torsten
Hallo Sue,
also hier ein Loesungsvorschlag. Mach dir eine .xlsm Datei mit einem Button. Diese ist nur zum Steuern des Kopiervorgangs da. Dann in den Code des Buttons folgendes:
Dim Pfad As String, Dateiname As String
Application.ScreenUpdating = False
Pfad = "C:\Dein Pfad\"
Dateiname = Dir(Pfad & "*.xlsx")
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Dein Pfad\Neue Datei.xlsx", _                         _
FileFormat:=xlOpenXMLWorkbook
Do While Dateiname  ""
Workbooks.Open Filename:=Pfad & Dateiname
Workbooks(Dateiname).Activate
ActiveWorkbook.Sheets("Sheet1").copy after:=Workbooks("Neue Datei.xlsx").Sheets(Workbooks("Neue  _
Datei.xlsx").Sheets.Count)
Workbooks(Dateiname).Close False
Dateiname = Dir()
Loop
Application.ScreenUpdating = True
Du must halt noch Pfad und den Namen der neuen Datei anpassen.
Lass mich wissen, obs funktioniert.
Gruss Torsten
Anzeige
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:02:41
Torsten
und gegebenenfalls den Namen des Sheets, was kopiert werden soll auch noch aendern, falls dieses anders heisst.
ActiveWorkbook.Sheets("Sheet1").copy
Ich hoffe auch, dass in dem Ordner nur diese 8 Dateien liegen. Sonst werden aus allen Exceldateien dort die Sheets kopiert. Ach ja. Und in allen Workbooks sollte das zu kopierende Sheet immer den gleichen Namen haben.
Noch als Zusatz
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:11:35
Sue
Hi Torsten,
danke Dir , ich versuch es mal.
Muss ich dann jedes mal den neuen Dateinamen der 8 Dateien einfügen? Jede dieser Dateien hat einen Zeitstempel im Namen, somit ist dieser immer "neu" (wird etwa 3x täglich neu erstellt und dementsprechend 3x täglich soll sich automatisch 1 Datei mit 8 Arbeitsblättern (aus den 8 Einzeldateien) erstellen :/
PS: Die 1 Datei, die entsteht behält immer den gleichen Namen
Anzeige
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:19:58
Torsten
Nein, die Dateinamen der 8 Dateien sind hier als Variable hinterlegt. Der Code arbeitet alle Exceldateien im angegebenen Ordner ab.
Nur der Name des zu kopierenden Sheets sollte immer gleich sein.
Wenn die erstellte Datei immer den gleichen Namen hat, musst du diese aber woanders hin verschieben nach dem Kopiervorgang, sonst werden beim naechsten mal halt die naechsten 8 Sheets in die selbe Datei kopiert. Aber vielleicht willst du das ja so?
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:29:24
Torsten
sorry. du musst die neu erstellte Datei verschieben, sonst bekommst du beim naechsten Kopiervorgang eine Fehlermeldung, da der Code versucht, wieder diese Datei zu erstellen. Aber die ist ja schon vorhanden.
Wenn du alle Sheets in die eine Datei willst, dann musst du nach dem ersten Kopiervorgang den Code: 
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Dein Pfad\Neue Datei.xlsx", FileFormat:=xlOpenXMLWorkbook
aendern in: 
Workbooks.Open Filename:="C:\Dein Pfad\Neue Datei.xlsx"
Wenn du die Datei nach dem Kopieren verschiebst, kannst du alles so lassen.
Anzeige
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:43:55
Sue
oh sorry, hab deine letzte Nachricht jetzt erst gesehen... ich versuch's mal
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:42:48
Sue
hm, jetzt komm ich nicht mit :D (Freitagnachmittag halt)
Also das Sheet selbst ist jedes Mal gleich benannt, nur eben der Dateiname nicht.
Die entstehende Datei daraus darf auch nur immer gleich heißen, da sich darauf Verweise befinden etc.. Es geht lediglich um die Aktualisierung der darin vorhandenen 8 Arbeitsblätter.
Also wenn ich deinen Code bearbeite, füge ich ja die Dateinamen der aktuellsten Datei (z. B. 1 von 8) ein, heißt ja das die Schaltfläche beim nächsten Klicken haargenau die Gleiche Excel will, oder missverstehe das..?
Sorry!
Anzeige
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 14:47:18
Torsten
Nein, du musst nur den Namen des Sheets aus den 8 Dateien angeben, das kopiert werden soll und den Namen der Datei, die neu erstellt wird. Die Namen der 8 Dateien brauchst du nicht angeben, denn wie ich gesagt habe, werden alle Exceldateien in dem Ordner abgearbeitet.
AW: Suche Beiträge oder brauche auch Hilfe
15.06.2018 15:06:55
Torsten
Wenn du den Code so lassen willst und die neu erstellte Datei nach dem Kopiervorgang automatisch verschieben willst, kann ich dir noch das anbieten:
Sub verschieben()
Dim strQuelle As String
Dim strZiel As String
Dim objDatei As Object
strQuelle = "C:\Quellfolder\Neue Datei.xlsx"
strZiel = "C:\Zielfolder\"
Set objDatei = CreateObject("Scripting.FileSystemObject")
objDatei.MoveFile strQuelle, strZiel
Set objDatei = Nothing
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
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
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1