schleife funktioniert nicht?
24.08.2004 15:21:03
Andy
die folgende Schleife funktioniert nur einwandfrei wenn ich sie mittels TAste F8 überpüfe. wird sie über einen Button aufgerufen, wird die schleife nur einmal durchlaufen und ich erhalte den wert Rev_0 in der zielzelle obwohl es schon eine DAtei mit diesem Zusatz gibt (siehe SFile uns Spath). warum?
Sub rev ()
Dim i As Integer
i = 0
Do
ActiveWorkbook.Sheets("Ergebnisblatt").Range("D1").Value = "Rev_" & i
'vergibt die Rev_Nr in Zelle "D1"
sFile = ActiveWorkbook.Sheets("Ergebnisblatt").Range("A1").Value & "_" & Range("D1").Value
'Name der Datei: Kunde_Rev_i
sFile = Format(sFile) & ".xls" 'Format der Datei: .xls
sPath = "o:\...\fertig" & "\"
If Dir(sPath & sFile) = "" Then
Sheets("Startseite").Select
Exit Do
End If
i = i + 1
Loop
End Sub
Danke für eure Hilfe
Andy
Anzeige