Ich kann Ihnen nicht sagen, wie oft ich Rohdaten von einem Programm oder einer Person erhalten habe, und als erstes muss ich Duplikate aus der Liste entfernen. Wenn Sie sich in derselben Situation befinden, ist das folgende Makro eine große Hilfe:

Sub DelDups()

Dim rngSrc As Range     Dim NumRows As Integer     Dim ThisRow As Integer     Dim ThatRow As Integer     Dim ThisCol As Integer     Dim J As Integer, K As Integer

Application.ScreenUpdating = False     Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)



NumRows = rngSrc.Rows.Count     ThisRow = rngSrc.Row     ThatRow = ThisRow + NumRows - 1     ThisCol = rngSrc.Column

'Start wiping out duplicates     For J = ThisRow To (ThatRow - 1)

If Cells(J, ThisCol) > "" Then             For K = (J + 1) To ThatRow                 If Cells(J, ThisCol) = Cells(K, ThisCol) Then                     Cells(K, ThisCol) = ""

End If             Next K         End If     Next J

'Remove cells that are empty     For J = ThatRow To ThisRow Step -1         If Cells(J, ThisCol) = "" Then             Cells(J, ThisCol).Delete xlShiftUp         End If     Next J     Application.ScreenUpdating = True End Sub

Das Makro bearbeitet eine Auswahl, die Sie vor dem Aufruf treffen. Wenn Sie also doppelte Zellen aus dem Bereich C15: C59 entfernen müssen, wählen Sie einfach diesen Bereich aus und führen Sie das Makro aus. Wenn Sie mehr als eine einzelne Spalte im Bereich auswählen (z. B. C15: E59), ist nur die erste Spalte im Bereich betroffen. Wenn das Makro vollständig ist, werden die doppelten Zellen sowie alle leeren Zellen entfernt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2109) gilt für Microsoft Excel 97, 2000, 2002 und 2003.