løkke i løkke

Dette burde nu virke:

Dim tabeldel1
Dim tabeldel2
Dim tæller1
Dim tæller2
  tæller1 = 1
  tæller2 = 1
    For tabeldel1 = 6 To 18 Step 6
        For tabeldel2 = 7 To 21 Step 7
            MsgBox "Vi siger" & tæller1 & " gange 6 er " & tabeldel1
            tæller1 = tæller1 + 1
            MsgBox "Vi siger" & tæller2 & " gange 7 er " & tabeldel2
                tæller2 = tæller2 + 1
    Next
    Next

//>Rune

Du kan ikke "regne" på den måde. Når du kører en løkke inde i en løkke, så skal den inderste løkke jo køres færdig inden du kommer til næste punkt af din yderste løkke.

Derfor går der 3 "runder" inden tabeldel1 får en ny værdi, og derfor virker dit "regnestykke" ikke.

For at dit eksempel vil virke (sådan som jeg forstår det), så skal du køre løkkerne hver for sig.

    For tabeldel1 = 6 To 18 Step 6
        MsgBox "Vi siger " & tæller1 & " gange 6 er " & tabeldel1
        tæller1 = tæller1 + 1
    Next
    For tabeldel2 = 7 To 21 Step 7
      MsgBox "Vi siger " & tæller2 & " gange 7 er " & tabeldel2
      tæller2 = tæller2 + 1
    Next

medions Dit forslag virker kun for 7-tabellen - men i øvrigt bliver for.. to sætningen ikke respekteret. Det gjorde den heller ikke i min version. Den bliver bare ved med at køre 4,5 6 osv.
Så jeg holder mig til snowball. Men tak for hjælpen.

Jeg vælder din løsning snowball. Det andet kan åbenbart ikke lade sig gøre.
Tak for hjælpen.

når man bruger mange løkker er det en god ide at kommenter hvilken løkke der "next" es

eks.

For tabeldel1 = 6 To 18 Step 6
        For tabeldel2 = 7 To 21 Step 7
            MsgBox "Vi siger" & tæller1 & " gange 6 er " & tabeldel1
            tæller1 = tæller1 + 1
            MsgBox "Vi siger" & tæller2 & " gange 7 er " & tabeldel2
                tæller2 = tæller2 + 1
        Next tabeldel2
Next tabeldel1

det gør det mere overskuligt.