Kriterium hinzufügen - wie?
09.02.2009 21:28:00
Wolfgang
weiterhin auf der Suche nach einer Lösungsmöglichkeit für die Überprüfung von doppelten Datensätzen fiel mir nachfolgender Code auf, der auch bei einer freigegebenen Arbeitsmappe funktioniert. Wie müßte ich den Code anpassen/verändern, wenn als Kriterium nicht nur die Spalte C, sondern auch Spalte E zu Grunde gelegt werden soll? - Also, nur eine Meldung abgegeben werden soll, wenn sowohl die Daten in Spalte C, als auch in Spalte E jeweils in Kombination doppelt vorkommen. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Option Explicit
Public Bereich#
Sub Einlesen(Optional Zeile As Double)
Dim Inhalt$, X#, Y#, Feld() As String
Inhalt = Range("C1")
Do Until Inhalt = ""
ReDim Preserve Feld(X)
Feld(X) = Inhalt
X = X + 1
Inhalt = Range("C" & X + 1)
For Y = 0 To UBound(Feld())
If Feld(Y) = Inhalt Then
ActiveSheet.Range("C" & X + 1).Activate
MsgBox "Der Datensatz mit der Kundennummer '" & Feld(Y) & "' ist bereits in _
Zeile " & Y + 1 & " vorhanden.", vbCritical, Title:="dabbeljuhbee"
Exit Sub
End If
Next Y
Loop
'Bereich = X
End Sub