Hilfe warum funktioniert die do anweisung nicht

Bild

Betrifft: Hilfe warum funktioniert die do anweisung nicht von: Armin
Geschrieben am: 25.02.2005 10:25:12

Kann mir jemand veraten warum das Programm nach der if Anweisung aufhört
weder die do anweisung wird ausgeführt noch die Variable i wird hochgezählt
ich habe mal die ganze funktion hier rein gestellt


Function abestand(artikel, aufmachung)
Dim letzteZeile As Integer
Dim aktueller_bestand As Integer
Dim i As Integer
Dim links As String
Dim rechts As String



Application.Volatile

Sheets("Bestand").Select ' Blatt ermitteln

links = Left(artikel, 6) 'linker teil des zu suchenden Artikel
rechts = Right(aritkel, 3) ' rechter teil



i = 2 ' Laufvariable

Do While IsEmpty(Sheets("Bestand").Cells(i, 1)) = False ' mache es so lange bis zelle leer

' Bedingung feststellen

If links = Left(Worksheets(1).cell(i, 1), 6) And _
rechts = Right(Worksheets(1).cell(i, 1), 3) And _
aufmachung = Worksheets(1).cell(i, 2) Then


aktueller_bestand = Worksheets(2).cell(i, 6) ' Wert zuweisen
End If


i = i + 1
Loop

abestand = aktueller_bes

Bild


Betrifft: Cells() statt Cell() oT von: u_
Geschrieben am: 25.02.2005 10:27:58




Bild


Betrifft: AW: Cells() statt Cell() oT von: Armin
Geschrieben am: 25.02.2005 11:00:44

Danke hätte ich nie gefunden immer wieder überlesen


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excel- Access verknüpfen, möchte ein Formularfeld"