Array
06.05.2004 11:36:54
Sven
ich habe folgendes Problem. Ich habe eine Tabelle, in die ich Daten per Hand eintrage. In eine Spalte werden verschiedene Begriffe eingetragen, die auch mehrfach in verschiedenen Zeilen vorkommen können. Es sind so ca. 300 Zeilen. Ich möchte nun diese Spalte Zeile für Zeile durchgehen, die Begriffe auslesen und in der Tabelle 2 in eine Liste schreiben. Ich will natürlich jeden Begriff dann nur einmal in der neuen Liste haben.
Bisher habe ich untenstehendes gebastelt. Ich bekomme nur irgendwie nicht hin, die Daten in die Tabelle 2 zu schreiben. Dort sollen die Daten z.B. in Spalte C ab Zeile 10 reingeschreiben werden.
Würde mich freuen, wenn mir jemand weiter helfen könnte.
Vielen Dank
Gruß
Sven
Sub test_anzahl_der_gruppen_zählen()
Dim iZeile As Long
ReDim Arr(0) As Variant
Arr(0) = Cells(2, 3)
For iZeile = 2 To Range("C65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("C2:C" & iZeile - 1), Cells(iZeile, 3)) = 0 Then
ReDim Preserve Arr(UBound(Arr) + 1)
Arr(UBound(Arr)) = Cells(iZeile, 3)
End If
Next iZeile
' Resultat ausgeben
Dim i As Long
For i = 0 To UBound(Arr)
MsgBox Arr(i)
Next i
End Sub