Supportnet / Forum / Tabellenkalkulation
Datenaustausch zwischen zwei Exceldateien
Frage
hallo,
ich möchte in eine tabelle in einen bestimmten bereich selektierte daten aus einer andern tabelle, die in einem anderen verzeichnis liegt, durch ein automatisiertes makro einfügen.
ich habe bis jetzt folgendes :
Sub Datenimport()
Dim appXL As Object
Dim Woche As Integer
Const StartDrive = "V:"
Const StartDir = "\Azubi_Fachinformatik\Schichtpläne\Tagesteam"
ChDrive StartDrive
ChDir StartDir
Woche = InputBox("Bitte geben sie die Woche an:")
Select Case Woche
Case 1
appXL.Workbooks.Open ("\2 Februar 2007 Tagesteam")
Visible = False
Workbooks("2 Februar 2007 Tagesteam").Activate
Worksheets("Frühschicht 1").Select
Range("C3:H36").Select
Selection.Copy
Workbooks("6TagePlan-Blank").Activate
ActiveSheet.Paste Destination:=Range("C10:H43")
Case Else
MsgBox ("Falsche Eingabe")
End Select
End Sub
Die Case-selektion soll die jeweilige woche des monats auswählen (6er schritte, daten jeder woche stehen in einem anderen wertebereich der tabelle)
was ich aber brauche ist das grundsätzliche prinzip um die daten aus der anderen tabelle im hintergrund zu selektieren und die auswahl dann in den entprechenden bereich der aktiven tabelle zu kopieren (bekomme im moment immer laufzeitfehler 91
Mfg JoTun
[*][quote][sup][i]Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/groupfaqs/3][u]FAQ2.[/u][/url][/i][/sup][/quote]