Microsoft Excel

Herbers Excel/VBA-Archiv

schleife funktioniert nicht?

Betrifft: schleife funktioniert nicht? von: Andy
Geschrieben am: 24.08.2004 15:21:03

Hallo Ihrs!
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
  


Betrifft: PS: schleife funktioniert nicht? von: Andy
Geschrieben am: 24.08.2004 15:23:28

sPath und sFile As String
hab ich vergessen mit in die anfrage reinzuschreiben


  


Betrifft: AW: PS: schleife funktioniert nicht? von: AndreasST
Geschrieben am: 24.08.2004 15:34:37

Hallo,

setz mal die Eigenschaft "TakeFocusOnClick" des Buttons auf "False"

Gruß
Andreas


  


Betrifft: AW: PS: schleife funktioniert nicht? von: Andy
Geschrieben am: 24.08.2004 15:41:05

Wo mache ich das? in den eigenschaften des Buttons? Und was wird damit geändert?

Andy


  


Betrifft: AW: PS: schleife funktioniert nicht? von: AndreasST
Geschrieben am: 24.08.2004 15:44:05

Hallo,

ich bin davon ausgegangen, daß du einen Button aus der Steuerelement-Symbolleiste
in einem Tabellenblatt verwendest. Ist das so?


  


Betrifft: AW: PS: schleife funktioniert nicht? von: Andy
Geschrieben am: 24.08.2004 15:56:42

bisher hatte ich einen button aus der formular-leiste. wie ordne ich dann dem commandbutton ein makro zu?
Schonmal danke.

Andy


  


Betrifft: Problem bleibt.. von: Andy
Geschrieben am: 24.08.2004 16:19:03

HAbe herausbekommen, wie ich dem Commandbutton ein Makro zuordne. aber das eigentlich Problen bleibt bestehen..


 

Beiträge aus den Excel-Beispielen zum Thema "schleife funktioniert nicht?"