Hallo.

Wie kann ich die Arrayeinträge zählen?

Dim sArray() As String


Private Function fArray ()

  Dim Eintraege As Integer


  'Zähle Eintrage

  Eintraege = [ARRAYS ZÄHLEN]


  MsgBox Eintraege

End Function

muss man ein Array nicht so und so mit der Anzahl deklarieren

weil sonst müsstest du das ja beim eintragen dann redimen O.o

Hi,

dafür gibt es in VB die Funktionen LBound (kleinstes) und UBound(größtes)

Dim sArray() As String


Private Function fArray ()

  Dim Eintraege As Integer


  'Zähle Eintrage

  'Eintraege = [ARRAYS ZÄHLEN]


'----

  Eintrag = UBound(sArray())


  MsgBox Eintraege

End Function

muss man ein Array nicht so und so mit der Anzahl deklarieren

weil sonst müsstest du das ja beim eintragen dann redimen O.o

Ja

ReDim Preserve DbPolier(lcount + 1)

.

Hi, dafür gibt es in VB die Funktionen LBound (kleinstes) und UBound(größtes)

Dim sArray() As String


Private Function fArray ()

  Dim Eintraege As Integer


  'Zähle Eintrage

  'Eintraege = [ARRAYS ZÄHLEN]


'----

  Eintrag = UBound(sArray())


  MsgBox Eintraege

End Function

Besten Dank