kostenloser Webspace werbefrei: lima-city


Schleifen-Problem... ich seh den Fehler nicht

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    k*********l

    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


    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

    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?

Über lima-city

Login zum Webhosting ohne Werbung!