ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mit folgendem Makro zu lösen. leider funktioniert das nicht so ganz. Ich hoffe, dass mir hier jemand weiterhelfen kann.
Vielen Dank. Grüße Sebi
Ausgangstabelle: Ergebnistabelle:
Stuttgart Stuttgart
Stuttgart Frankfurt
Stuttgart Hamburg
Frankfurt
Frankfurt
Stuttgart
Frankfurt
Frankfurt
Frankfurt
Hamburg
Hamburg
Hamburg
Hamburg
Hamburg
Hamburg
Stuttgart
Stuttgart
Stuttgart
For j = 3 To r Step 1
If Sheets("Report").Cells(j, 59) Sheets("Report").Cells(j + 1, 59) Then
Sheets("Definitions").Select
For z = 5 To 100
If Sheets("Definitions").Cells(z, 2).Value = "" Then
Sheets("Definitions").Cells(z, 2).Select
Selection = Sheets("Report").Cells(j, 2)
GoTo W
End If
Next z
End If
W:
Next j