ich möchte einen bestimmten Tabellenbereich (Db_log) auslesen und wenn der Wert der Zellen größer als 1 ist dann soll eine Messagebox mit einer Warnung erscheinen "Achtung Doppeleintrag in z.b: A3, B4...". Nachfolgender Code warnt mich zwar vor einem Doppeleintrag:
Dim Zeile_log As Integer
Dim Db_log As Range
Worksheets(str_name_FE).Activate
Zeile_log = Worksheets(str_name_FE).Cells(Rows.Count, 1).End(xlUp).Row
Set Db_log = Range(Cells(letzte_zeile + 7, 2), Cells(Zeile_log, int_spalte - 2)).Find("2")
If Db_log = "2" Then
MsgBox "Achtung Doppeleinträge"
Exit Sub
End If
läuft aber ins leere (Debug Fehler) wenn die Werte kleiner 2 sind. Wie kann ich das verhindern und in der MsgBox die Adresse(n) der Zelle(n) mit ausgeben?
Grüße,
Philipp