AW: letzter Versuch :)
21.11.2016 22:50:28
Uwe
Hi
natürlich funzt dein erster Vorschlag, weiss nicht, was ich falsch gemacht habe
habe aber noch ein kleines Problem, Mehrdeutiger Name Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim FZelle As Range
If Target.Column 6 Or IsEmpty(Target) Then Exit Sub
If Application.CountIf(Range("F6:F1000"), Target) - 0 Then
Beep
If MsgBox("!?!?!?!?!?!?!?!?!?! S C H O N S A P G E M E L D E T? !?!?!?!?!?!?!? _
!?!?!" & _
vbLf & "", _
vbCritical + vbYes) = vbYes Then
End If
End If
If Target.Column 6 Or IsEmpty(Target) Then Exit Sub
If Application.CountIf(Range("F6:F1000"), Target) - 1 Then
Beep
If MsgBox(" Rückmelde-Nr schon vorhanden!" & _
vbLf & " Dennoch eintragen?", _
vbCritical + vbYesNo) = vbNo Then
Target.ClearContents
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Wert 3 in Spalte G
If Target.Value = 3 And Target.Column = 7 Then
MsgBox "Sie haben eine 3 erfasst.", vbYesNo
End If
End Sub
Hierfür noch eine Lösung, und ich bin dankbar, (Bin ich jetzt schon)
Gruss Uwe