Mehrere Spalten auf Inhalt vergleichen
29.07.2014 16:22:37
steamriver
ich bin auf der Suche nach einer VBA Lösung um Mehrere Spalten auf vorhandene Inhalte zu überprüfen.
Bespiel:
In Spalte A stehen Namen, in Spalte B, G, L usw Uhrzeiten.
In Spalte A kann der gleiche Name in Zeile 42 aber auch in Zeile 369 stehen.
Wenn ich aber in Spalte B oder eben L in Zeile 369 eine Uhrzeit eintrage und Spalte A den gleichen Inhalt hat sehe ich nicht ob in Zeile 42 schon eine drin steht. Wenn dem So ist soll eine MsgBox aufgehen mit dem Hinweis das es schon eine eintragung gibt. Wenn das Feld in Zeile 42 Leer ist soll natürlich in Zeile 369 wo ich was eintrage nichts passieren.
Ähnlich habe ich sowas schon mal hinbekommen aber hier klappt das nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 6 Then Exit Sub
If WorksheetFunction.CountIfs(Range("A:A"), Cells(Target.Row, 1), Range("F:F"), Target) > 1 _
Then
MsgBox "schon verbucht", 48
End If
End Sub
Kann mir jemand bei dieser komplexen Angelegenheit helfen?
Beste Grüßer
steamriver