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

Beiträge aus den Excel-Beispielen zum Thema "Ausgewählte Tabelle importieren"