Microsoft Excel

Herbers Excel/VBA-Archiv

Nach Code von Hajo Eintrag in Kontextmenü verschwu | Herbers Excel-Forum


Betrifft: Nach Code von Hajo Eintrag in Kontextmenü verschwu von: Mister B
Geschrieben am: 04.01.2010 14:28:23

Hallo,

folg. Code von Hajo habe ich hier aus dem Forum:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Dim InS As Integer
Dim InM As Integer
Set RaBereich = Range("I7:R37, T7:V37")
ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
If .Value <> "" Then
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
.NumberFormat = "[h]:mm"
If Len(Target.Value) > 2 Then
InS = Left(.Value, Len(.Value) - 2)
InM = Right(.Value, 2)
Else
InS = 0
InM = .Value
End If
.Value = InS & ":" & InM
End If
End If
End With
End If
Next RaZelle
ActiveSheet.Protect
Application.EnableEvents = True
End Sub

Er macht alles was er soll nur nachdem der Code gelaufen ist, fehlt der Eintrag "Kommentar einfügen" aus dem Kontextmenü. Erst nachdem man die Tabelle deaktiviert und neuaktiviert (durch Anklicken) ist der Eintrag wieder da. Hat jemand eine Idee was hier nicht rund läuft?

Danke und Gruß
Martin

  

Betrifft: AW:kein Kommentar bei geschützt von: Hajo_Zi
Geschrieben am: 04.01.2010 14:42:22

Hallo Martin,

Du schützt die Tabelle. In einer geschützten Tabelle kannst Du keinen Kommentar eintragen

GrußformelHomepage


  

Betrifft: AW: Nach Code von Hajo Eintrag in Kontextmenü verschwu von: Rudi Maintaire
Geschrieben am: 04.01.2010 14:44:07

Hallo,
in geschützten Blättern kann kein Kommentar eingefügt werden.

Gruß
Rudi


  

Betrifft: AW: Nach Code von Hajo Eintrag in Kontextmenü verschwu von: Mister B
Geschrieben am: 04.01.2010 16:04:20

Hallo Ihr beiden,

danke für den Hinweis. Wäre alleine nie darauf gekommen.


Gruß
Martin


Beiträge aus den Excel-Beispielen zum Thema "Nach Code von Hajo Eintrag in Kontextmenü verschwu"