AW: Daten auslesen und sortieren
01.04.2004 11:04:45
Martin
Hallo Mike
das geht wohl nur mit VBA. Versuch mal folgendes Makro in einem normalen Modul:
Sub FindAndCopy()
Dim Zelle As Range
Dim i%, j%, Res(1000, 2) As String, N%, Temp$
Worksheets("Werte").Activate
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.Value <> "" Then
N = N + 1
Res(N, 1) = Zelle.Value
End If
Next
For i = 1 To N
Temp = Res(i, 1)
For j = i + 1 To N
If Res(j, 1) = Temp Then Res(j, 2) = "N"
Next j
Next i
Worksheets("Sortierte Werte").Activate
j = 0
For i = 1 To N
If Res(i, 2) <> "N" Then
j = j + 1
Cells(j, 1) = Res(i, 1)
End If
Next i
End Sub
Wenn dein zu durchsuchender Bereich sehr gross ist (>10'000 Zellen), dürfte es etwas langsam werden :-)
Gruss
Martin