Hallo, 

das hat zumindest das Problem mit der Typenunverträglichkeit gelöst. Danke dafür vielmals.

Es bleibt noch das Problem, dass die ENTF-Taste in B16 nicht funktioniert. 

Hat da jemand eine Idee? im Workbook open Event, habe ich folgenden Code, stehen, der beim Öffnen alle Zellen sperrt und die, in die eine Eingabe erfolgt, wieder freigibt: 

Sub Workbook_Open()

Worksheets("Vorlage").Visible = True
Worksheets("Makros").Visible = False

Pronrkorrekt = True

    With Worksheets("Vorlage")
        .Unprotect Password:="svc"
        .Cells.Locked = False
        .Cells.Locked = True
        .Range("B10").MergeArea.Locked = False
        .Range("B11").MergeArea.Locked = False
        .Range("D10").MergeArea.Locked = False
        .Range("B12").MergeArea.Locked = False
        .Range("B13").MergeArea.Locked = False
        .Range("B14").MergeArea.Locked = False
        .Range("B15").MergeArea.Locked = False
        .Range("B16").MergeArea.Locked = False
        .Range("B17").MergeArea.Locked = False
        .Range("D17").MergeArea.Locked = False
        .Range("B18").MergeArea.Locked = False
        .Range("B19").MergeArea.Locked = False
        .Range("B21").MergeArea.Locked = False
        .Range("C21").MergeArea.Locked = False
        .Range("D21").MergeArea.Locked = False
        .Range("B22").MergeArea.Locked = False
        .Range("B23").MergeArea.Locked = False
        .Range("B24").MergeArea.Locked = False
        .Range("B25").MergeArea.Locked = False
        .Range("D25").MergeArea.Locked = False
        .Range("B26").MergeArea.Locked = False
        .Range("B27").MergeArea.Locked = False
        .Range("B28").MergeArea.Locked = False
        .Range("A30").MergeArea.Locked = False
        .Protect Password:="svc"
    End With
    
End Sub

Ich verstehe es nicht. In allen anderen Zellen funktioniert die ENTF-Taste ganz normal. Hat da jemand eine Idee, was das Problem sein könnte?

Viele Grüße

Apollix