doppelte Werte suchen

Forumthread: doppelte Werte suchen
7 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: doppelte Werte suchen

Walter

Hallo zusammen,
ich möchte gern die Spalte "Y" nach doppelten Werten suchen.
Habe dieses Makro gefunden, soweit i.o. aber die Leerzellen werden ebenfalls
makiert, wie kann man dies unterbinden ?


Sub doppelte ()
Dim lngZeile        As Long
Dim lngZeilenSprung As Long
Dim strSuchwert     As String
lngZeile = Cells(Rows.Count, 25).End(xlUp).Row
For lngZeilenSprung = lngZeile To 4 Step -1
strSuchwert = Cells(lngZeilenSprung, 25).Value
If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _
Cells(lngZeile, 25)), strSuchwert)  1 Then
Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36
End If
Next lngZeilenSprung
End Sub

mfg walter K

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: doppelte Werte suchen

Hajo_Zi
Hallo Hajo, einwandfrei, WIE bekomme ich die Farbe

Walter
AW: Hallo Hajo, einwandfrei, WIE bekomme ich die Farbe

Hajo_Zi
Ich möchte die Farbe später wieder entfernen

Walter
AW: Ich möchte die Farbe später wieder entfernen

Hajo_Zi
Das ist es --)))

Walter
AW: WIE bekomme ich die Farbe

Hajo_Zi

AW: doppelte Werte suchen

05.02.2011 16:07:29

Hajo_Zi

Hallo Walter



Sub doppelte ()

Dim lngZeile        As Long

Dim lngZeilenSprung As Long

Dim strSuchwert     As String

lngZeile = Cells(Rows.Count, 25).End(xlUp).Row

For lngZeilenSprung = lngZeile To 4 Step -1

strSuchwert = Cells(lngZeilenSprung, 25).Value

If strSuchwert)"" then

If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _

Cells(lngZeile, 25)), strSuchwert)  1 Then

Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36

End If

End if

Next lngZeilenSprung

End Sub

Hallo Hajo, einwandfrei, WIE bekomme ich die Farbe

05.02.2011 16:10:44

Walter

Hallo Hajo,
danke.
Wie bekomme ich nur die gelbe Farbe raus ?
mfg walter k

AW: Hallo Hajo, einwandfrei, WIE bekomme ich die Farbe

05.02.2011 16:21:45

Hajo_Zi

Halo Walter,
Du willst also nicht mehr markieren, wozu soll das Makro dann ausgeführt werden?
Lösche die Zeile
Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36
Gruß Hajo

Ich möchte die Farbe später wieder entfernen

05.02.2011 16:29:41

Walter

Hallo Hajo,
ich möchte die Farbe später entfernen.
Geht so nicht:
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
lngZeile = Cells(Rows.Count, 25).End(xlUp).Row
For lngZeilenSprung = lngZeile To 4 Step -1
strSuchwert = Cells(lngZeilenSprung, 25).Value
If strSuchwert "" Then
If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _
Cells(lngZeile, 25)), strSuchwert) 1 Then
''' Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36
End If
End If
Next lngZeilenSprung
walter K

AW: Ich möchte die Farbe später wieder entfernen

05.02.2011 16:31:41

Hajo_Zi

Hallo Walter,

Option Explicit
Sub doppelte_Zurueck()
Dim lngZeile        As Long
Dim lngZeilenSprung As Long
Dim strSuchwert     As String
lngZeile = Cells(Rows.Count, 25).End(xlUp).Row
For lngZeilenSprung = lngZeile To 4 Step -1
strSuchwert = Cells(lngZeilenSprung, 25).Value
If strSuchwert  "" Then
If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _
Cells(lngZeile, 25)), strSuchwert)  1 Then
Cells(lngZeilenSprung, 25).Interior.ColorIndex = xlNone
End If
Else
Cells(lngZeilenSprung, 25).Interior.ColorIndex = xlNone
End If
Next lngZeilenSprung
End Sub

Gruß Hajo

Das ist es --)))

05.02.2011 16:48:52

Walter

Hallo Hajo,
danke.
Genau die Farbe ist wieder raus !
Schönes Wochenende,
mfg Walter K

AW: WIE bekomme ich die Farbe

05.02.2011 16:29:50

Hajo_Zi

Hallo Walter,
oder meinst Du dies

Option Explicit
Sub doppelte()
Dim lngZeile        As Long
Dim lngZeilenSprung As Long
Dim strSuchwert     As String
lngZeile = Cells(Rows.Count, 25).End(xlUp).Row
For lngZeilenSprung = lngZeile To 4 Step -1
strSuchwert = Cells(lngZeilenSprung, 25).Value
If strSuchwert  "" Then
If Application.WorksheetFunction.CountIf(Range(Cells(4, 25), _
Cells(lngZeile, 25)), strSuchwert)  1 Then
Cells(lngZeilenSprung, 25).Interior.ColorIndex = 36
End If
Else
Cells(lngZeilenSprung, 25).Interior.ColorIndex = xlNone
End If
Next lngZeilenSprung
End Sub

Gruß Hajo

;