Dim Slutår As Integer Dim i As Integer Dim j As Integer
Slutår = InputBox("Indtast slutår")
'Valider indtastning If Slutår < 7 Or Slutår > 22 Then MsgBox ("Årstal skal være mellem 7 og 22. Program afsluttes.") Exit Sub End If
For i = 1 To 16 'gennemløber alle årene indtil Slutår findes, altså kolonne A til P If Sheets("Ark1").Cells(4, i) = Slutår Then For j = 14 To 1 Step -1 'gennemløber baglæns årene ned til første 0 forekommer If Sheets("Ark1").Cells(5, j) = 0 Then MsgBox ("Antal år ned til første forekomst af 0 er: " & i - j) Exit Sub End If Next j End If Next i
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.