Daten-Import variabel gestalten
13.11.2007 08:13:00
edie
der nachfolgende Code ließt Daten aus einer
geschlossenen Arbeitsmappe aus. Soweit Okay.
Nun würde ich gerne den festgelegten Bereich, hier
sRange = ("A2:A10") durch einen variabeln ersetzen,
d.h. ab A2 bis zur letzten Zeile einlesen. In der
Spalte B das gleiche.
Habe mit sRange = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
probiert ohne Erfolg.
Vor allen Dingen wie verändere ich der Bereich in:
Range("A2:A10").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange
Sub Daten_Import()
Dim sPath As String, sFile As String, sWks As String
'Dim sRange As String
'Dim sRange2 As String
Dim sRange As Range
Dim sRange2 As Range
sWks = "Tabelle1"
'sRange = ("A2:A10")
'sRange2 = ("B2:B10")
sRange = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
sRange2 = Range("B" & Cells(Rows.Count, 2).End(xlUp).Row + 1)
sPath = ThisWorkbook.Path
sFile = "Test.xls"
If Dir(sPath & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
On Error Resume Next
Range("A2:A10").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange
Range("B2:B10").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange2
End Sub
Kann jemend weiter helfen?
Vielen Dank im Voraus.
Grüße