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"