Abfrage vor Speichern ob Wert Kombi schon vorhanden
24.11.2019 18:00:54
Mirko
ich habe folgendes Problem.
Ich habe mir eine kleine Lagervewaltung gebastelt. Ich möchte beim einlagern gern eine Abfrage haben, die den Lagerplatz ( Spalte D) und Lagerort ( Spalte E) abfragt ob der zu speichernde Eintrag Lagerfach ( Textbox1) und Lagerort ( Combobox1) schon in der Tabelle vorhanden ist. Bei bereits vorhandenen Wert soll mir die MsgBox eine Meldung ausgeben " Lagerfach belegt". Ich habe bereits einen Code, wie müsste er dahin umgeschrieben werden das er so funktioniert wie oben beschrieben?
Dim Lagerfach As String
Dim Lagerort As String
Lagerfach = (TextBox4.Value)
Lagerort = (ComboBox1.Value)
If WorksheetFunction.CountIf(Range("D:D"), Lagerfach) = 1 Then
MsgBox "Lagerfach ist belegt!!", vbCritical
Danke im vorraus
mfg
Mirko