Gennemløb af datasæt + for - next - if - then

Jeg har en tabel med en række felter, bl.a. PPSize, PPreading og CLSS_PPEN. De to førstnævnte felter bruges til beregning af en værdi, der skal indsættes i sidstnævnte felt.

Jeg har lavet nedenstående "beregningskode", men mangler et gennemløb af de datasæt/rækker, der er i tabellen.

Er der nogle, der kan hjælpe med koden til gennemløbet - min kode virker kun hvis alle variabler dim'es. Kan ikke læse fra tabellen hvad der står i felterne PPSize og PPReading.

--- kode start ---


Option Explicit

Public Sub Main

  Dim PPSize As String
  'PPSize = "PPSize"
  PPSize = "Small"
  Dim PPReading As Integer
  'PPReading = PPReading
  PPReading = 200
  Dim CLSS_PPEN As Single
  CLSS_PPEN = CLSS_PPEN

  If PPSize = "Small" Then
  CLSS_PPEN = PPReading * 2
  ElseIf PPSize = "Normal" Then
  CLSS_PPEN = PPReading * 5
  Else
  CLSS_PPEN = PPReading * 10
  End If
  'Dialogboks til at vise resultatet på skærmen - skal bare rigtigt ind i selve tabellen
  MsgBox "Dette er svaret:  " & CLSS_PPEN & " kN/m2"


End Sub

--- kode stop ----