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
|