Guten Tag zusammen,
ich stehe vor einem kleinen Problemchen, dass ich selbst nicht lösen kann, da mein VBA Wissen gleich null ist. Bisher kämpfte ich mich mit dem Makro Rekorder durch doch jetzt bin ich mit meinem Latein am Ende.
Ein ehemaliger Arbeitskollege schrieb dieses Makro, das jetzt modifiziert werden muss.
Sub doppelte_Eintraege_finden()
Dim int_Spalte As Integer, int_erste_Zeile As Integer, int_letzte_Zeile As Long, int_x As Integer
int_erste_Zeile = 1
int_Spalte = 1
int_letzte_Zeile = 250
For int_x = int_letzte_Zeile To int_erste_Zeile Step -1
If WorksheetFunction.CountIf(Range(Cells(int_erste_Zeile, int_Spalte), Cells(int_letzte_Zeile, int_Spalte)), Cells(int_x, int_Spalte)) > 1 Then
Cells(int_x, int_Spalte).Value = ""
Selection.ClearContents
End If
Next int_x
End Sub
Es muss/sollte nicht nur die jeweilige Zelle leeren, sondern die ganze Zeile löschen. Kann mir hierbei jemand helfen?
Mit freundlichen Grüssen
Christoph
|