Daten übernehmen
05.01.2005 10:08:24
Klaus
Ich öffne eine Datei mit
Datei = Application.GetOpenFilename _
("Microsoft Excel-Dateien (*.xls), *.xls")
If Datei = False Then Exit Sub
Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
End
Jetzt möchte ich aus dieser Datei die Daten vom Sheet 1 (Der Name des Blattes steht auch nicht fest) den Bereich A1:J29 in meine Mappe "Angebotsvorlage" in die Tabelle "Auftragsbestätigung" übernehmen. Das Makro soll natürlich in der Mappe "Angebotsvorlagen" sein.
Es sind also 2 Variablen (Dateiname + Tabellenname)
Ich hoffe, dass es einigermassen verständlich ist.
Gruss Klaus