letzten Wert in der Spalte vergleichen
07.12.2018 10:28:21
Ulf
habe mich wohl wieder verrannt.
Ich möchte den letzen Wert in Spalte C überprüfen, ob dieser schon in der Spalte C vorhanden ist und wenn ja dies in einer MsgBox ausgeben.
Leider fängt er immer die Spalte von oben an zu durchsuchen und nimmt nicht den letzen Wert aus der Spalte.
https://www.herber.de/bbs/user/125951.xlsm
Folgenden Code habe ich gefunden und angepasst:
Private Sub CB_Find_Click()
Dim Lz As Long
Dim intr2 As Integer
Dim Spalte As Integer
Spalte = 3
For Lz = 1 To Cells(Rows.Count, 3).End(xlUp).Row
For intr2 = Lz + 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(Lz, Spalte) = Cells(intr2, Spalte) Then
MsgBox Cells(Lz, Spalte).Value & " ist doppelt vorhanden (Zeile " & intr2 & ")"
End If
Next intr2
Next Lz
End Sub
Gruß
Ulf