ich habe folgenden Code im Netz gefunden:
Sub doppelte_Eintraege_finden()
Dim int_Spalte As Integer, int_erste_Zeile As Integer, int_letzte_Zeile As Long, int_x As _
Integer
Dim str_Auswahl As Variant
int_erste_Zeile = 3
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
str_Auswahl = str_Auswahl & "Zelle: " & Cells(int_x, int_Spalte).Address & "mit Inhalt: _
_
" & Cells(int_x, int_Spalte).Value & Chr(13)
Cells(int_x, int_Spalte).Value = ""
End If
Next int_x
MsgBox "folgende Zellen würden gelöscht" & Chr(13) & str_Auswahl
End Sub
Meine Frage:Auch wenn keine doppelten Werte vorhanden sind wird die MSGBox angezeigt. Kann das verhindert werden wenn keine doppelten Werte vorhanden sind.
Kann der Befeht: Cells(int_x, int_Spalte).Value = ""
so umgeschrieben werden, dass der Wert nicht glöscht wird, statt dessen in der benachbarten rechten zelle der Zeile ein Wert Z.B. 1 ausgegeben wird?
Schon einmal vielen Dank für Eure Unterstützung.
Gruß Uwe