Datenfeld
27.05.2021 09:18:43
Siegfried
ich möchte in meinem Programm in weiteren Schritten auf ein Datenfeld (ArrMehrfach) zugreifen, das ich in dem folgenden Code erzeugt habe.
Weil ich es nicht besser kann, habe ich es hilfsweise in eine ListBox gepackt.
Wie muss ich es machen, damit ich später unmittelbar auf das Datenfeld zugreifen kann?
Gruß
Siegfried
Private Sub Mehrfach()
Dim n1 As Integer, n2 As Integer
Dim Prüfzahl As Integer, ZählerPrüfzahl As Integer
Dim ArrMehrfaches() As Variant
' notiert die mehrfach vorkommenden Zahlen in einem Datenfeld
ReDim ArrMehrfaches(1 To 5)
For n1 = 0 To 4
Prüfzahl = Frm_Version4.Controls("TextBox" & 26 + n1).Text
ZählerPrüfzahl = 0
For n2 = 0 To 4
If Frm_Version4.Controls("TextBox" & 26 + n2).Text = Prüfzahl Then
ZählerPrüfzahl = ZählerPrüfzahl + 1
End If
Next n2
If ZählerPrüfzahl > 1 Then
ArrMehrfaches(1 + n1) = Prüfzahl
End If
Next n1
' schreibt die mehrfach vorkommenden Zahlen in eine ListBox
Frm_Version4.ListBox_mehrfache.List = ArrMehrfaches
End Sub