Workshhet_Chance als normale Sub
Klaus
ist es möglich, die Prozedur
Private Sub Worksheet_Change(ByVal Target _
As Range)
Dim Bereich As Range
Dim Wert
Wert = ActiveCell.Value
If Target.Column = 1 Then
Application.EnableEvents = False
Set Bereich = Range(Cells(2, 1), Cells(10, 1))
Wert = WorksheetFunction.CountIf(Bereich, Target.Value)
If Wert > 1 Or Not IsNumeric(Target.Value) Then
Target = ""
End If
Application.EnableEvents = True
Set Bereich = Nothing
End If
End Sub
so umzuwandeln, dass sie nicht in jeder Tabelle eingesetzt werden muss, um obige Prüfungen durchzuführen? Also nach Bedarf z.B. in einem Prüflauf abgerufen werden kann?Danke vorab!
Gruß Klaus