2. Versuch: Daten aus geschlossener Datei auslesen

Private Sub cmdStart_Click()
On Error Resume Next  ' keine Fehlerbehandlung
Dim Book As Workbook
Dim Save As Workbook
Dim xs As Worksheet
Dim i As Integer
Dim StillCode As String
Dim StillCodeIdx As Integer
Dim Stilltext As String ' Lieferant
Dim Stilltext1 As String ' Maschine
Dim Stilltext2 As String ' Anzahl Farben
If txtLieferant = "" Then
MsgBox (" Achtung: Daten-Eingabe ist nicht vollständig! ")
End If
Stilltext = "?"
StillCode = txtLieferant.Text
Set Book = Workbooks.Open("c:\VBA-Smurfit\Ranking.xls")
Set xs = Application.Sheets.Item("Ranking")
If Not xs Is Nothing Then  ' falls es diese Datei und Tabellenblatt gibt
StillCodeIdx = 1    ' Anpassen Index
For i = 1 To 16000    ' Anpassen 16000  max. Anzahl Lieferantendatensatz
If xs.Cells(i, StillCodeIdx) = StillCode Then
Stilltext1 = xs.Cells(i, StillCodeIdx + 1) ' Hurra gefunden !!!
Stilltext2 = xs.Cells(i, StillCodeIdx + 2)
End If
Next i
End If
txtMaschine.Text = Stilltext1
txtFarben.Text = Stilltext2
Book.Save
Book.Close
End Sub