|
Hallo
Generell ginge das so:
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Code rechts reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iAnz As Integer, iSpID As Integer, iVorh As Integer
iAnz = 10 'Code auslösen, wenn diese Anzahl erreicht ist
iSpID = 5 'Spalte, in der die IDs stehen hier Beispiel in E
If Not Intersect(Columns(iSpID), Target) Is Nothing Then
iVorh = WorksheetFunction.CountIf(Columns(iSpID), Target)
If iVorh >= iAnz Then
MsgBox "'" & Target & "' ist jetzt " & iVorh & "x vorhanden."
End If
End If
End Sub
Wenn nun (hier im Beispiel in Spalte E) die gerade eingegebene ID 10x oder mehr vorhanden ist, kommt die Msgbox
Wie die Msgbox aussehen soll, kann ich aus deiner Beschreibung nicht ableiten.???
Message Syntax
Signal Syntax
Genauer beschreiben und irgedwo einen Musterdatei hochladen.
LG UweD
|