Makro ausbauen
21.02.2004 16:11:19
DieterG
mit diesem Makro wird eine Doppeleingabe in SpalteB verhindert.
Jetzt möchte ich aber noch eine 2.Spalte z.B. SpalteD absichern und nicht die ganzen Spalten, sondern die Bereiche B4:B25 und D4:D25
Danke im Voraus
Gruß DieterG
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
If Target.Column <> 2 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
iRowL = Cells(Rows.Count, 2).End(xlUp).Row
For iRow = 1 To iRowL
If iRow <> Target.Row Then
If Cells(iRow, 2) = Cells(Target.Row, 2) Then
MsgBox "Sorry, die " & Target.Value & " ist schon vergeben!"
Target.ClearContents
End
End If
End If
Next iRow
End Sub