Spalten überwachen
29.06.2006 10:59:37
Bal
Diese Code habe ich vor einige zeit hier bei Herber-Forum bekommen. Jetz möchte ich diese Code erweitern. Ich brauche ihre hilfe.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrT(), ii, intSum As Integer, strT As String
arrT = Array(1, 10, 55)
If Intersect([D1:D30], Target) Is Nothing Then Exit Sub
For ii = 0 To UBound(arrT)
intSum = intSum + WorksheetFunction.CountIf([D1:D30], arrT(ii))
strT = strT & " " & arrT(ii)
Next ii
If intSum > 4 Then
Application.EnableEvents = False
Target.ClearContents
Target.Select
Application.EnableEvents = True
MsgBox "Es gibt schon vier Einträge" & strT
End If
End Sub
Meine Frage: Wie kann ich diese Cod für einzelner Spalte überwachen.
Bei den Cod läuft nur für spalte D1:D30 ich möchte aber auch für andere Spalte einzeln überwacht wird .
ich höffe ich habe richtig ausdrückt.
Für jeden hilfe bin ich dankbar!
mfg
Bal
Anzeige