Daten aus einer anderen Datei übertragen
30.08.2003 19:00:46
Beni
es kommt oft der Fall, dass User, Daten aus einer (mir nicht bekannten Arbeitsmappe)in eine andere Arbeitsmappe, aus vielen Tabellen übertragen müssen, wie kann ich erreichen,dass Quelle und Zihl identisch sind.
Gruss Beni
Sub Datenuebertgagen()
Dim sPath As String
sPath = ThisWorkbook.Path & "\"
Dim Dateiname
Titel = "Datenuebertgagen"
Mldg = "Dateiname ohne .xls eingeben"
Dateiname = InputBox(Mldg, Titel)
If Dir(sPath & Dateiname & ".xls") = "" Or _
Dir(sPath & "Zihldatei.xls") = "" Then
Beep
MsgBox prompt:="Datei nicht gefunden!"
Exit Sub
End If
Workbooks.Open sPath & "Dateiname"
ThisWorkbook.Activate
For s = 9 To 25 ' erste Spalte letzte Spalte
For z = 7 To 37 ' erste Zeile, letzte Zeile
Fehler>>> Sheets(1).Cells(z, s) = [Dateiname!Sheets(1).Cells(z, s)]
Next z
Next s
End Sub