Array-Definition (1 To X) verlangt Konstante
18.02.2014 20:43:07
S.
ich habe einen Benutzerdefinierten Datentyp angelegt und möchte per dynamisch angelegtem Array diesen Datentyp füllen; was so aussieht:
Option Explicit
Public hier0 As Workbook, hier1 As Worksheet, hier2 As Worksheet, hier3 As Worksheet
Type datenSatz
Name As String
Vorname As String
Wohnort As String
PLZ As Long
End Type
Sub Test()
Set hier0 = ThisWorkbook
Set hier1 = hier0.Worksheets(1)
Set hier2 = hier0.Worksheets(2)
Set hier3 = hier0.Worksheets(3)
Dim a As Integer, i As Integer
Dim ausgabe As Variant
a = hier2.Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim S(1 To a) As datenSatz
For i = 1 To a
S(i).Name = hier2.Cells(i, 1)
S(i).Vorname = hier2.Cells(i, 2)
S(i).Wohnort = hier2.Cells(i, 3)
S(i).PLZ = hier2.Cells(i, 4)
Next i
End Sub
Mein Problem taucht bei Dim S(1 To a) auf. Hier soll ich einen Konstante angeben, was ich aber nicht kann, da ich nicht genau weiss wie groß dass Array ist ...
Wie bekommt man sowas hin?