Re: Daten aus einer anderen Datei importieren
10.06.2003 09:59:57
skwandrei
Hallo Chris,funktioniert leider noch nicht.
Ich habe das Makro jetzt soweit umgeschrieben, dass es aus der Zieldatei heraus aufgerufen werden kann.
Jetzt bekomme ich immer einen Laufzeitfehler, wenn er probiert die Daten rüber zu kopieren.
So sieht momentan mein Code aus:
Private Sub DatenZusammen()
Dim Blatt As Integer
Dim LetzteZeileQuelle As Long
Dim LetzteZeileZiel As Long
Dim Quelldatei As String
On Error GoTo errorhandler
Quelldatei = "Daten.xls"
Workbooks.Open FileName:="M:\" & Quelldatei
For Blatt = 1 To Workbooks(Quelldatei).Worksheets.Count
LetzteZeileQuelle = Workbooks(Quelldatei).Worksheets(Blatt). _
Range("A65536").End(xlUp).Row
'Resume hat nicht funktioniert, deswegen hier eine leichte Änderung
If LetzteZeileQuelle >= 5 Then
LetzteZeileZiel = ThisWorkbook.Worksheets(1). _
Range("A65536").End(xlUp).Row + 1
Workbooks(Quelldatei).Worksheets(Blatt). _
Range(Cells(5, 1), Cells(LetzteZeileQuelle, 16)).Copy _
Destination:=thisWorkbook.Worksheets(1). _
Range(Cells(LetzteZeileZiel, 1))
End If
Next Blatt
ActiveWorkbook.Save
ActiveWorkbook.Close
MsgBox "Daten wurden erfolgreich aus der Quelldatei übertragen."
Exit Sub
errorhandler:
MsgBox "Fehler: Vermutlich ist die Zieldatei gerade durch einen anderen User in gebrauch. Versuchen Sie es später noch einmal."
End Sub
Bei der Destination, muß man doch nur die erste Zelle angeben und nicht den genau gleich großen Bereich, oder ?
Habe ich zumindest in anderen Beispielen so gesehen.
Könnte es eventuell daran liegen, dass in der Datendatei der MA ein Auto-Exec-Makro läuft,
das am Ende eine MessageBox ausgibt, die mit o.k. bestätigt werden muss.
Habe auch schon probiert die Destination über Workbooks("Zieldatei") anzusteuern, hat aber auch nicht funktioniert.
Bitte nochmal um Hilfe !
Gruß
Stephan