Hallo Aggi,
nachfolgendes Makro sortiert Dir das tabellenblatt mit dem Namen "Tabelle1", Spalte A. Danach wird über eine Schleife die Daten geprüft und nur jeweils ein Datensatz von Mehrfach-Datensätzen in das Tabellenblatt "Tabelle2", Spalte A in die erste freie Zeile.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
[b]Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.[/b]
[b][code]Option Explicit
Sub Prüfen_kopieren()
Dim lngRow As Long
Dim lngLastRow As Long
Dim lngFirstFreeRow As Long
Application.ScreenUpdating = False
lngLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle1").Range("A1")
Sheets("Tabelle1").Range("A1:A" & lngLastRow).Sort Key1:=Range("A2"), _
Order1:=xlAscending, Header:=xlYes
For lngRow = 2 To lngLastRow
If Cells(lngRow, 1) <> Cells(lngRow - 1, 1) Then
lngFirstFreeRow = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheets("Tabelle1").Cells(lngRow, 1).Copy Sheets("Tabelle2").Cells(lngFirstFreeRow, 1)
End If
Next
End Sub[/code][/b]Blattnamen und Bereich musst Du natürlich noch anpassen.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf [url=
http://www.excelbeispiele.de] [b][u] meiner HP [/u][/b][/url] in der [b] Rubrik Anleitungen [/b]und dort dann in der[b] Anleitungsnummer 3 [/b]nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
