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