String in ein Array aufnehmen, Doppler vermeiden
29.07.2004 12:29:10
matthias
ich möchte Strings in eine Array aufnehmen, wenn sie noch nicht erfasst sind.
Wer kann mir helfen, diesen Check zu formulieren.
Sub Array_Beispiel()
Dim Arr(), iso As String
With [Data]
i = 46: ii = 0
Do Until .Cells(i, 13) = ""
iso = .Cells(i, 13)
' hier müßte die Abfrage rein
ReDim Preserve Arr(ii)
Arr(ii) = iso
ii = ii + 1
i = i + 1
Loop
End With
End Sub
Danke.
Matthias
Anzeige