ReDimension von Array falsch?
02.09.2003 11:49:51
A. F.
vielleicht hat jemand hier eine Ahnung was ich falsch mache.
Ich will feststellen wieviele verschiedene Variablen es in einem Sheet gibt und diese in einem Array zwischenspeichern. Nur mit dem Befehl ReDim laeuft irgendwas falsch oder ist der Ansatz meines Programmes schon grundsaetzlich falsch?
Der Code ist:
Set ws = Worksheets("Daten_Pivot")
ws.Activate
Set pv1 = ws.PivotTables("PivotTable1")
pv1.PivotSelect "VerschiedeneDaten[All]", xlLabelOnly
For Each rowDaten In Selection.Rows
datenfeld = rowDaten.Cells(1, 1)
If datenfeld <> "" Then
For iCounter = 0 To UBound(DatenArray)
If DatenArray(iCounter) = datenfeld Then
GoTo GoOut
End If
Next iCounter
ReDim DatenArray(0 To iCounter)
DatenArray(iCounter) = datenfeld
GoOut:
End If
Next rowDaten
Danke im Voraus fuer den Tipp ...