Hilfe bei Code
03.02.2004 21:01:30
Jens
Mit nachfolgendem Code lese ich Daten aus geschlossenen Dateien in eine Listbox ein. Das funktioniert super, nur der Wert 'sRange4 = "RSumme.E5" bereitet mir probleme. Hier will ich aus der TB aus Dem Bereich "RSumme" den Wert aus Zelle "E5" auslesen. Wie bekomme ich das hin? Eine Möglichkeit wäre auch den letzten Wert aus Spalte "E".
Private Sub ListBox1_Click()
Dim sPath, sFile, sRange, sWks As String
If OptionButton1 = True Then sPath = ThisWorkbook.Path & "\Angebote"
If OptionButton2 = True Then sPath = ThisWorkbook.Path & "\Rechnungen"
sFile = ListBox1.Value
sWks = "Tabelle1"
sRange1 = "E4" 'Kunden-Nr.
sRange2 = "E5" 'Angebots-Nr.
sRange3 = "E6" 'Angebotsdatum
'sRange4 = "RSumme.E5"
'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 & "'!" & sRange1
Range("A2").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange2
Range("A3").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange3
Range("A4").Formula = "='" & sPath & _
"\[" & sFile & "]" & sWks & "'!" & sRange4
TextBox1.Text = "Kunden-Nr.: " & Range("A1").Value & Chr(12) _
& "Angebots-Datum: " & CDate(Range("A3")) & Chr(12) _
& "Angebots-Nr.: " & Range("A2").Value & Chr(12) & Chr(12) _
& "Auftragssumme: " & CCur(Range("A4"))
Range("A1:A4").ClearContents
End Sub
Wer kann helfen????
Danke im voraus Jens