Udskrivning af arrays - definere en tæller

Brug LBound() og UBound()

For taeller = LBound(Person()) To UBound(Person())
.....
......

Tak sjh, hvor har du dog været i flere dage?
Men hvis jeg nu taster vælgter 2 gennemløb bliver dataene fra 1 gennemløb ikke gemt. Taster jeg fx navn a, adresse avej osv og derefter b, bvej osv får jeg ved output kun navn b og bvej men til gengæld 2 gange. Men er det et andet spørgsmål?

Hvad er meningen med det du vil lave?

Umiddelbart ingen. Jeg prøver bare om jeg kan finde ud af det med arrays! Og så løb jeg altså ind i dette problem!:0))

jo men prøver du på at finde fx et navn i et array eller hvad

Det ved jeg ikke. Jeg sidder og læser om "sammensatte typer" og har i et kodemodul lavet denne kode:
Type persontype
    Nr As Integer
    Navn As String
    Adresse As String
    Alder As Integer
End Type
og så for at få en forståelse af hvad det er jeg sidder og prøver at lære, tja så prøvede jeg om jeg kunne lave et for next forløb!

prøv denne lille demo

'-------------------------------------- Form1 --------------------------------------
Option Explicit

Private Type PersonType
    Nr As Integer
    Navn As String
    Adresse As String
    Alder As Integer
End Type

Private Person() As PersonType

Private Sub Command1_Click()
Dim taeller As Integer
'UBound = 2
'LBound = 0

  For taeller = LBound(Person()) To UBound(Person()) '(fra 0 til 2 = 3)
    'Udskriver på Form1
    Print "Adresse: " & Person(taeller).Adresse
    Print "Alder: " & Person(taeller).Alder
    Print "Navn: " & Person(taeller).Navn
    Print "Nr: " & Person(taeller).Nr
    Print ""
    'Udskriver på Form1
  Next taeller
End Sub

Private Sub Form_Load()
Dim i As Integer
ReDim Person(2) As PersonType '(fra 0 til 2 = 3)
  For i = 0 To 2
    'Tilføjer for test
    Person(i).Adresse = "Adresse " & (i + 1)
    Person(i).Alder = (20 + i)
    Person(i).Navn = "Navn " & (i + 1)
    Person(i).Nr = i
    'Tilføjer for test
  Next i
End Sub
'-------------------------------------- Form1 --------------------------------------

Jotak, prøver lige.

prøv at bruge denne her i starten:

Private Sub Form_Load()
Dim i As Integer
'Nu kan du prøve at den et andet tal i x (ReDim Person(x) As PersonType)
ReDim Person(4) As PersonType '(fra 0 til 4 = 5)
  For i = LBound(Person()) To UBound(Person()) '(fra 0 til 2 = 3)
    'Tilføjer for test
    Person(i).Adresse = "Adresse " & (i + 1)
    Person(i).Alder = (20 + i)
    Person(i).Navn = "Navn " & (i + 1)
    Person(i).Nr = i
    'Tilføjer for test
  Next i
End Sub

'Nu kan du prøve at den et andet tal i x (ReDim Person(x) As PersonType)

=

'Nu kan du prøve at give et andet tal i x (ReDim Person(x) As PersonType)

Mange tak sjh, det fremsendte virker fint, så jeg prøver lige at studere det lidt nærmere. Det er ret overvældende lige nu.

God fornøjelse med det. Og tak for point :-)