Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter in neuer Arbeitsmappe zusammenfass

Tabellenblätter in neuer Arbeitsmappe zusammenfass
11.05.2004 08:56:06
ralle
Guten Morgen zusammen !!
Habe folgendes Problem:
Habe in meiner Excel-Arbeitsmappe mehrere Tabellenblätter (die Anzahl variiert).
Ich möchte nun, das einem per Makro diese Tabellenblätter in einer Auswahlliste angezeigt werden (nur der Name). Dann soll man best. Blätter auswählen könne, die dann zu einer neuen Arbeitsmappe zusammengefasst werden. Dann beste wäre natürlich, wenn danach diese Arbeitsmappe per email an eine bestimmte Adresse versand wird.
Man, dass sind wirklich viele wünsche auf einmal, aber ich hoffe Ihr könnt und wollt mir helfen.
Mit freundlichem Gruß
ralle

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter in neuer Arbeitsmappe zusammenfass
11.05.2004 11:57:02
ralle
Habe jetzt folgendes Makro geschrieben:
Option Explicit

Private Sub cmbFile_Click()
FillList
End Sub



Private Sub cmdCancel_Click()
'Userform schliessen
Unload Me
End Sub



Private Sub cmdDelete_Click()
'Ausgewählte Tabellenblätter kopieren
Dim intC As Integer
On Error GoTo FEHLER
Workbooks(cmbFile.Text).Activate
If lstSheet.ListCount > 1 Then
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
With lstSheet
For intC = 0 To .ListCount - 1
If .Selected(intC) Then Workbooks(cmbFile.Text).Sheets(.List(intC)).Copy
Next
End With
Else
MsgBox "Die ausgewählte Datei enthält nur ein Tabellenblatt!", vbExclamation
End If
FEHLER:
FillList
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub



Private Sub UserForm_Initialize()
Dim wkb As Workbook
'ComboBox füllen
For Each wkb In Application.Workbooks
cmbFile.AddItem wkb.Name
Next
'cmbFile.ListIndex = 0
cmbFile = ActiveWorkbook.Name
FillList
End Sub



Private Sub FillList()
Dim wks As Worksheet
'ListBox füllen
lstSheet.Clear
For Each wks In Workbooks(cmbFile.Text).Sheets
lstSheet.AddItem wks.Name
Next
End Sub

Dieses ermöglicht es mir Tabellenblätter auszuwählen, für jedes ausgewählte Tabellenblatt wird dann eine neue Arbeitsmappe angelegt.
Ich möchte nun aber das die asugewählten Arbeitsblätter alle in einer neuen Arbeitsmappe kopiert werden.
Was muss ich an meinem Makro ändern ?
Gruß
ralle
Anzeige

302 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
mehrere Arbeitsblätter zusammenkopieren
Stefan

Hallo zusammen,
ich muß leider schon wieder die Experten bemühen, da mein VBA leider nicht ausreichend ist.
Ich habe eine Mappe mit ca. 90 Tabellen. Alle ausser der 1. Tabelle können Infos im Bereich B6:E60 enthalten . Nun würde ich gern zur Auswertung alle diese Infos auf das Worksheet...
19.06.2009 10:57:02
Thread-ID: 1082815
10 Beiträge
Anzeige
Tabellenausschnitt per VBA in neue Mappe kopieren
Fritz_W

Hallo Forumsbesucher,
wie kann ich per Makro folgendes erreichen:
Ich möchte aus dem aktuell geöffneten Tabellenblatt die Zellbereiche E2:F75 und J2:K75 kopieren und diese Zellbereiche als Kopie in eine neue Mappe (gleicher Zellbereich wie in Ursprungstabelle) einfügen. Das Tabellenblat...
20.05.2010 14:40:31
Thread-ID: 1158089
6 Beiträge
Druckbereich in neue Mappe kopieren
Burckhard

Moin, habe großes Problem. Ich möchte den Druckbereich eines Rechnungsformulars exakt als 1:1 Kopie ohne Formeln etc. in eine neue DAtei speicher. Der Bereich enthält ausgeblendete Spalten, verbundene Zellen, verschiedene Zellhöhen, unterschiedliche Spaltenbreiten usw. Bei Aufzeichnung mit Makr...
26.04.2002 00:09:33
Thread-ID: 116450
3 Beiträge
Tabellen zusammenführen und in neue Arbeitsmappe
Stefan

Hallo,
ich habe wieder mal ein Problem:
ich habe eine Arbeitsmappe mit dem Namen "INFOBOX_FICO_test.xlsx" mit mehreren Tabellen, die alle die gleiche Struktur haben. Diese Tabellen sollen in eine Tabelle zusammen gefaßt werden in einer bestehenden aber noch unbefüllten Arbeitsmappe mit...
24.02.2011 11:55:45
Thread-ID: 1202705
7 Beiträge
Daten aus mehrere Tabellenblätter kopieren
Sebastian

Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nic...
07.03.2011 17:12:03
Thread-ID: 1204623
2 Beiträge
Tabellenblätter in neuer Mappe zusammenführen
Peter

Hallo,
in einem sonst leeren Verzeichnis habe ich x Excel Dateien (Mappen). In jeder Mappe enthält nur das erste Tabellenblatt Daten.
Ich möchte jetzt im gleichen Verzeichnis eine neue Excel Datei anlegen, in die der Reihe nach aus jeder der vorhandenen Dateien jeweils nur das erste Ta...
22.01.2012 13:57:03
Thread-ID: 1247447
2 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

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
5
7
9
1
5
2
6
1
1
2
1
1
6
19
4
5
1
2
4
3
6
2
1
3