Clever-Excel-Forum

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

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

Hallo Uwe,

super, vielen Dank, klappt perfekt.

Liebe Grüsse Frank

FrankyHB

UweD

FrankyHB