zur Zeit suche ich nach einer Lösung wodurch bestimmte Zellen (leider bereits mit Gültigkeit versehen) nur einmal beschreiben werden können.
es betrifft die Zellen U3, U4, U5, U6, W4, W5.
Ist der Wert "" so darf geschrieben werden ist der Wert <> "" Zelle U13 selectieren und Messagebox mit Hinweis auf die Fehleingabe.
Danke die Herren Spezialisten.
Hier mein leider fehlgeschlagener Script
Dim full As Boolean
<pre>
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range <> "U3" Or Target.Range <> "U4" Or Target.Range <> "U5" Or Target.Range <> "U6" Or Target.Range <> "W4" Or Target.Range <> "W5" Then Exit Sub
full = True
End Sub</pre>
<pre>
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If full = True Then
full = False
Exit Sub
End If
With Target
If .Range <> "U3" Or .Range <> "U4" & _
Or .Range <> "U5" Or .Range <> "U6" & _
Or .Range <> "W4" Or .Range <> "W5" Then Exit Sub
If .Value <> "" Then
Range("U13").Select
MsgBox "Diese Zelle darf nur 1x beschrieben werden," & vbLf & _
"Bitte verwenden Sie zur Änderung des" & vbLf & _
"Datums die die Verschiebedatum Zellen rechts oben!"
End If
End With
End Sub</pre>