kostenloser Webspace werbefrei: lima-city

Schleifen-Problem... ich seh den Fehler nicht

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   k*********l

   13:43, 10.11.2005

   Moin,
   
   hoffe hier kann mir jemand helfen...
   
   Ich habe eine Schleife die eine FileListBox mit einer Excel Tabelle vergleichen soll. Eintr?ge die vorhanden sind werden auf verschiedene Listen dann verteilt. Ist ein Eintrag nicht vorhaden, kommt er in Liste List1(0). So wie ich es jetzt habe, werde alle vorhandenen Eintr?ge richtig verteilt. In der List(0) stehen jedoch alle Files aus der FileListBox....
   
   

   lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row
       
       For x = 0 To File1.ListCount - 1
           For i = 1 To lngNumberOfRows Step 1
               If (frmMain.xlWS.Cells(i, 1) = File1.List(x) And _
                   frmMain.xlWS.Cells(i, 4) = "provoked") Then
                   isin = True
                   cnt = frmMain.xlWS.Cells(i, 19)
                   bname = File1.List(x)
                   List1(cnt).AddItem bname
               Else: isin = False
               End If
           Next i
               If isin = False Then
                   bname = File1.List(x)
                   List1(0).AddItem bname
               End If
       Next x

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. b*****m

   15:04, 10.11.2005

   
   Moin,
   
   hoffe hier kann mir jemand helfen...
   
   Ich habe eine Schleife die eine FileListBox mit einer Excel Tabelle vergleichen soll. Eintr?ge die vorhanden sind werden auf verschiedene Listen dann verteilt. Ist ein Eintrag nicht vorhaden, kommt er in Liste List1(0). So wie ich es jetzt habe, werde alle vorhandenen Eintr?ge richtig verteilt. In der List(0) stehen jedoch alle Files aus der FileListBox....
   
   

   lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row
       
       For x = 0 To File1.ListCount - 1
           For i = 1 To lngNumberOfRows Step 1
               If (frmMain.xlWS.Cells(i, 1) = File1.List(x) And _
                   frmMain.xlWS.Cells(i, 4) = "provoked") Then
                   isin = True
                   cnt = frmMain.xlWS.Cells(i, 19)
                   bname = File1.List(x)
                   List1(cnt).AddItem bname
               Else: isin = False
               End If
           Next i
               If isin = False Then
                   bname = File1.List(x)
                   List1(0).AddItem bname
               End If
       Next x

   
   

   
   
   Das listing ist richtig, aber evtl. hat vb ein Problem, da die schleife zu lang ist!

4. b*********t

   16:24, 10.11.2005

   Das liegt daran: Soblad er es gefunden hat, sucht er weiter, findet es beim n?chsten logischerweise nicht, und setzt wieder isin auf false.
   
   d. h. vor
   next x
   muss ein
   weiter:
   und unter
   List1(cnt).AddItem bname
   ein
   goto weiter
   
   dann funktionierts.

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?