Hallo zusammen,
ich hab nachfolgenden Code zum Füllen von einem einfach Array. Das hab ich
jetzt versucht umzubauen, damit es drei Spalten hat. Nun hängts aber aus...
For ix = 0 To UBound(CatchDoubles)
If rngZelle = CatchDoubles(ix, 0, 0) Then
'Name steht schon im Array und wird übersprungen
GoTo Weiter
End If
Next ix
'Array vergrößern
ReDim Preserve CatchDoubles(0 To (UBound(CatchDoubles)), 0, 0) As String
'Informationen
For c = 0 To 2
If c = 0 Then CatchDoubles(UBound(CatchDoubles), UBound(CatchDoubles), c) = .Cells(rngZelle.Row, 13).Value
If c = 1 Then CatchDoubles(UBound(CatchDoubles), UBound(CatchDoubles), c) = .Cells(rngZelle.Row, 5).Value
If c = 2 Then CatchDoubles(UBound(CatchDoubles), UBound(CatchDoubles), c) = .Cells(rngZelle.Row, 16).Value
Next c
Ich hab keine Ahnung wie das funktionieren soll. Hab mir schon bei Mama Google
einige Beispiele angeschaut, aber das sind polnische Dörfer für mich.
Gibt's vielleicht eine Erklärung für Dummies wie mich?
Besten Dank für eure Hilfe und Geduld.
Gruß
A.