Do Loop Anweisung
27.08.2004 16:51:18
Andy
Dim sPath As String
Dim i As Integer
i = 0
Do
ActiveWorkbook.Sheets("Ergebnis").Range("D1").Value = "Rev_" & i
sFile = ActiveWorkbook.Sheets("Ergebnisblatt").Range("A1").Value & "_" & Range("D1").Value
sFile = Format(sFile) & ".xls"
sPath = "o:\...\fertig" & "\"
If Dir(sPath & sFile) = "" Then
Sheets("Startseite").Select
Exit Do
End If
i = i + 1
Loop
Danke
Andy