Wert aus geschlossener Mappe auslesen
20.12.2003 18:25:51
Jens
ich habe von der Herber-CD nachfolgenden Code eingesetzt. Funktioniert auch wunderbar. Nun habe ich folgende Frage: Kann man auch mehrere Werte aus der TB auslesen z.B. A1,B3 und C2 ?
Private Sub ListBox1_Click()
Dim sPath As String, sFile As String, sWks As String
Dim sRange As String
sPath = ThisWorkbook.Path
sFile = ListBox1.Value
sWks = "Tabelle1"
sRange = "A1"
'If Dir(sPath & "\" & sFile) = "" Then
'Beep
'MsgBox "Datei " & sFile & " nicht gefunden!"
'Exit Sub
'End If
On Error Resume Next
Range("A1").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange
TextBox1.Text = Range("A1").Value
Range("A1").ClearContents
End Sub
Danke für eure Hilfe Jens