Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgewählte Tabelle importieren

Ausgewählte Tabelle importieren
07.03.2005 08:52:19
Ralf
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgewählte Tabelle importieren
07.03.2005 09:13:16
u_

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

AW: Ausgewählte Tabelle importieren
07.03.2005 09:33:08
Ralf
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 ?
Anzeige
AW: Ausgewählte Tabelle importieren
07.03.2005 09:38:47
u_
Hallo,
dann gibt es in deinem Workbook kein Sheet dieses Namens.
Gruß
AW: Ausgewählte Tabelle importieren
07.03.2005 10:13:17
Ralf
Hat funktioniert !!!
Danke

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige