Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt integrieren mit VBA

Tabellenblatt integrieren mit VBA
31.03.2005 14:13:49
Mark
Hi!
Ich habe folgendes Problem: Ich möchte über einen Button eine Arbeitsmappe (mit Inhalt, keine leere!) in die Mappe, in welcher sich der Button befindet, integrieren/einfügen (nicht nur öffnen!). Sie sollen praktisch zu einer Mappe verschmelzen, wobei man die einzufügende XLS-Datei über ein Öffnen-Dialog bestimmen können soll.
Kann mir jemand helfen, wie man das realisiern könnte?
Viel Dank!!!

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt integrieren mit VBA
31.03.2005 14:25:33
Tobias
Servus!
Damit muesste es gehen, beachte aber, dass die Tabellen dann aus den Originalen "herausgeschnitten" wurden, also wenn du beim Schliessen gefragt wirst, ob du speichern willst, klick nein an.
Ich gebs jetzt mal so raus, ungetestet, weil mein Excel (immernoch) nicht tut.

Sub Makro1()
'"neuemappe.xls" muss natuerlich noch geaendert werden in den Namen
'deines Workbooks, welches dann die verschmolzenen Daten
'beinhalten soll.
DatName1 = Application.GetOpenFilename
Workbooks.Open DatName1
namen = ActiveWorkbook.Name
wieviele = Worksheets.Count
For i = 1 To wieviele
Sheets(i).Select
Windows("neuemappe.xls").Activate
wieviele2 = Worksheets.Count
Windows(namen).Activate
Sheets(i).Move After:=Workbooks("neuemappe.XLS").Sheets(wieviele2)
Next i
End Sub

Gruss

Tobias
Anzeige
AW: Tabellenblatt integrieren mit VBA
31.03.2005 14:32:39
Mark
Woow, hat funktioniert, obwohl ich leider nicht den kompletten Quelltext verstanden habe... Vielen Dank!
AW: Tabellenblatt integrieren mit VBA
31.03.2005 14:38:57
Tobias
Servus!

Da hab ich ja richtig Glueck gehabt dieses Mal, dass es funktioniert hat -g- Ohne es davor zu testen, ist immer so eine Sache fuer sich, und meistens gings bisher schief -g-.
Jetzt versuch ich dir noch zu erklaeren, was das Makro tut:

Sub Makro1()
'"neuemappe.xls" muss natuerlich noch geaendert werden in den Namen
'deines Workbooks, welches dann die verschmolzenen Daten
'beinhalten soll.
DatName1 = Application.GetOpenFilename
'Öffnen-Dialog anzeigen
Workbooks.Open DatName1
'Datei dann auch Öffnen
namen = ActiveWorkbook.Name
'Namen der geöffneten Datei in eine Variable schreiben
wieviele = Worksheets.Count
'Schauen, wieviele Tabellen in der Datei sind
For i = 1 To wieviele
'Schleife machen, und zwar sooft, wie Tabellenblätter da sind
Sheets(i).Select
'Nimm das Tabellenblatt mit dem derzeitigen Wert von i als Index
Windows("neuemappe.xls").Activate
'Geh in die Datei, in der alles zusammengeführt werden soll
wieviele2 = Worksheets.Count
'Schau, wieviele Tabellenblätter wir in dieser Datei haben
Windows(namen).Activate
'Geh wieder in die Datei, die die kopierenden Blätter enthält
Sheets(i).Move After:=Workbooks("neuemappe.XLS").Sheets(wieviele2)
'Nimm das Tabellenblatt mit Index i und füge es in der Zieldatei hinter das letzte
'dortige Tabellenblatt ein.
Next i
'Und wieder zum Anfang der Schleife
End Sub

Gruss

Tobias
Anzeige

301 Forumthreads zu ähnlichen Themen

Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
Anzeige
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 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
16
7
2
6
8
15
3
2
3
7
6
1
2
4
1
9
2
4
3
3
4
1
2
2
6