Prüfen ob Daten bereites erfasst wurden

[FrankyHB]

Hallo,

vielleicht kann mir jemand weiterhelfen.

Ich habe eine Datei für den Verkauf von Lunchpaketen erstellt.

Im Arbeitesblatt "Lunchboxen" steht in Zeile "B4" das Datum des aktuellen Tages.

In der Aufstellung darunter wird der jeweilige Verkauf pro Tag aufgeführt.

Am Ende des Tages soll das Datum "B4" sowie die Summe der Verkaufszahlen "E8:J8" in das Arbeitsbatt "Verkauf" eingetragen werden.

Bis dahin klappt alles ganz gut.

Um doppelte Einträge zu vermeiden, möchte ich prüfen ob das Datum aus dem Arbeitsblatt "Lunchboxen"; "B4" bereits im Arbeitsblatt "Verkauf" erfasst wurde.

Wenn Verkaufszahlen bereits im Arbeitsblatt "Verkauf" eingetragen wurden soll eine Meldung kommen "Daten bereits erfasst" und der Vorgang abgebrochen werden.

Wenn das nicht der Fall ist, sollen die Daten erfasst werden.

Kann mir jemand weiterhelfen?

Gruß Frank

[UweD]

Hi


so???

Code:

Sub testDatum()
    Dim RNG As Range
    Set RNG = Sheets("Verkauf").Columns("B:B") ' Suchspalte
   
    If WorksheetFunction.CountIf(RNG, Sheets("Lunchboxen").Range("B4")) > 0 Then
        MsgBox "schon da"
    Else
        MsgBox "ist neu"
    End If
End Sub

LG UweD

[FrankyHB]

Hallo Uwe,

super, vielen Dank, klappt perfekt.

Liebe Grüsse Frank