"Vervollständigt Texteinträge, die Sie in eine Datenspalte eingeben" Ist es möglich diese...

besten Dank habe noch vervollständigt
<br />mfg
<br />

habe die ursprüngliche Nachricht noch vervollständigt , besten dank werde mich morgen an den support wenden
<br />

Hallo Alexander

Auch hier vielen Dank nochmals. Es war tatsächlich so, dass ich einige DNS Einträge vergessen hatte.

Nachdem ich die SRV und CNAME Einträge vervollständigt hatte, ging alles.

Hallo nochmal,

besser:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B8:AF16")) Is Nothing _

   Or Target.Count > 1 Then Exit Sub

   

Const myStr = "kKuU"

Application.EnableEvents = False

On Error GoTo CleanUp

If Weekday(Cells(6, Target.Column), 2) > 5 _

   And InStr(myStr, Target.Value) > 0 Then

      Target.ClearContents

      MsgBox "An Samstagen und Sonntagen dürfen U oder K" _

         & Chr(10) & "nicht eingetragen werden"

End If

CleanUp:

Application.EnableEvents = True

End Sub

Claus

Hallo Irena,

ich denke, das ist etwas zu komplex für die Gültigkeitsprüfung.

Probiere es mal mit folgendem Code im Codemodul des entsprechenden Blattes (eventuell Bezüge anpassen):

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B8:AF16")) Is Nothing _

   Or Target.Count > 1 Then Exit Sub

   

If Weekday(Cells(6, Target.Column), 2) > 5 And _

   (Target = UCase("U") Or Target = UCase("K")) Then

   Target.ClearContents

   MsgBox "An Samstagen und Sonntagen dürfen U oder K" _

      & Chr(10) & "nicht eingetragen werden"

End If

End Sub

Claus