Herbers Excel-Forum - das Archiv

Ausgewählte Tabelle importieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Ausgewählte Tabelle importieren
von: Ralf B.

Geschrieben am: 07.03.2005 08:52:19
Guten morgen miteinander.
Ich habe folgendes Problem:
Ich will eine Tabelle aus einer Mappe öffnen und in eine neue Tabelle der geöffneten Mappe einfügen.
Mit einer D-Base-Datei hat das untenstehende Makro prima funktioniert.
Nun habe ich das Problem, das ich nach dem öffnen der Mappe noch die gewünschte Tabelle anwählen müsste.
Hier der Code:
Sub ListeImportieren()
Dim fname As Variant
Dim ws As Worksheet
fname = Application.GetOpenFilename("xls-Dateien (*.xls),*.xls,Alle Dateien, *.*", , "Datei auswählen...")
If fname = False Then Exit Sub
Set ws = Worksheets("Importliste")
ws.Cells.Clear
Workbooks.Open fname
Cells.Copy ws.Range("A1")
ActiveWorkbook.Close False
End Sub

Kann mir da einer auf die Sprünge helfen ?
Danke schonmal im voraus....
Ralf B.
Bild

Betrifft: AW: Ausgewählte Tabelle importieren
von: u_

Geschrieben am: 07.03.2005 09:13:16
Sub ListeImportieren()
Dim fname As Variant
Dim ws As Worksheet
Dim Blatt
fname = Application.GetOpenFilename("xls-Dateien (*.xls),*.xls,Alle Dateien, *.*", , "Datei auswählen...")
If fname = False Then Exit Sub
Blatt = InputBox("Blatt-Nummer?")
If Blatt = "" Then Exit Sub
Blatt = CInt(Blatt)
Set ws = Worksheets("Importliste")
ws.Cells.Clear
Workbooks.Open fname
Sheets(Blatt).Cells.Copy ws.Range("A1")
ActiveWorkbook.Close False
End Sub

Bild

Betrifft: AW: Ausgewählte Tabelle importieren
von: Ralf B.
Geschrieben am: 07.03.2005 09:33:08
Danke für die Antwort.
Es kommt aber leider folgende Fehlermeldung:
Laufzeitfehler 9 : Index außerhalb des gültigen Bereichs
Folgende Zeile wird markiert:
Set ws = Worksheets("Importliste")
Was muss ich ändern ?
Bild

Betrifft: AW: Ausgewählte Tabelle importieren
von: u_
Geschrieben am: 07.03.2005 09:38:47
Hallo,
dann gibt es in deinem Workbook kein Sheet dieses Namens.
Gruß
Bild

Betrifft: AW: Ausgewählte Tabelle importieren
von: Ralf B.
Geschrieben am: 07.03.2005 10:13:17
Hat funktioniert !!!
Danke
 Bild
Excel-Beispiele zum Thema "Ausgewählte Tabelle importieren"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum