Anzahl der Arrayeinträge

[burnersk]

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

[TDM]

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

[DevHB]

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

[burnersk]

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