Hallo Samuel,
ich finde keinen Fehler, der ein solches Verhalten auslösen soll.
Allerdings weiß ich nicht, was in C36 steht, ob AB1 dynamisch verändert wird und was bei Dateisystem.speichern und CheckError.IsError passiert.
Diese Zeilen habe nur als Kommentar ausgeführt. Ich habe deinen Code etwas umgestellt.
Private Sub Enter()
Select Case Replace(ActiveCell.Address, "$", "")
Case "D39"
Range("D40").Select
Case "D40"
If Range("AB1").Value = True Then GoTo Frage Else Range("G39").Select
Case "G39"
Range("G40").Select
Case "G40"
GoTo Frage
Case Else
If CheckError.IsError(Selection) Then Exit Sub '# Prüfe ob Auswahl ein Kalendertag ist.
ActiveSheet.Unprotect Password:="0444786400"
With Selection
.Font.ThemeColor = xlThemeColorDark1
.Font.TintAndShade = 0
For i = 7 To 10: .Borders(i).Weight = xlThick: Next i
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0444786400"
Range("D39").Select '# Gehe zu Preisfeld und markiere Inhalt.
End Select
SendKeys "{f2}+^{LEFT}"
Exit Sub
Frage:
Range("I34:L34").Select
If MsgBox("Änderungen für Auswahl übernehmen?", vbYesNo, "Änderungen übernehmen") = vbYes Then
Dateisystem.Speichern
Else
Range(Range("C36").Value).Select
End If
end sub
Das Ergebnis wäre nicht uninteressant.
Gruß
Holger
|