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"