einfacher Fehler im Code
Stefan
bin leider nicht der grösste VBA-Kenner u. hab mir dennoch folgenden einfachen Code gebastelt. Er soll auf doppelte Einträge in der Spalte D hinweisen, nachdem eine Eingabe in die neueste (letzte) Zeile der Spalte D erfolgte. Der Code funktionierte auch. Nun wollte ich zusätzlich, dass die for-schleife auch tatsächlich nur dann läuft, wenn eine Eingabe in Spalte D erfolgt. Dazu habe ich die folgende Zeile eingefügt:
If ActiveCell.Column 4 Then Exit Sub
Leider läuft der Code jetzt nie mehr ab, passiert also gar nix mehr. Hier ist er abgekürzt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range, Bereich1 As Range
Dim a As Integer
a = Target.Row
Set Bereich1 = Range("D3:D" & a - 1)
If ActiveCell.Column 4 Then Exit Sub
For Each Zelle In Bereich1
If Zelle.Text "" And Zelle.Value = Target.Value Then
MsgBox "Doppelte Eingabe in " & Target.Address(False, False) & " !"
Exit For
End If
Next Zelle
End Sub
Tausend Dank vorab
Stefan
Anzeige