vorab... ich hatte eine Vorlage erstellt, mit im Hintergrund ablaufende Makros. Unter anderem ein Sub, das mit bei doppelklick auf bestimme Zellen den VBA-Kalender öffnet.
Nun gab es ein paar Änderungen an der Vorlage, die Zellenpositionen sind aber alle gleich geblieben. Und komischer Weise lässt sich nun der Kalender nicht mehr öffnen.
Wie gesagt, Zellenpositionen und auch Zelleneigenschaften wie auch Marko Code ist gleichgeblieben.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
'##
'Kalender
'##
If ActiveCell.Column = 17 And ActiveCell.Row = 22 Or ActiveCell.Column = 17 And ActiveCell.Row = 52 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 82 Or ActiveCell.Column = 17 And ActiveCell.Row = 112 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 142 Or ActiveCell.Column = 17 And ActiveCell.Row = 172 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 202 Or ActiveCell.Column = 17 And ActiveCell.Row = 232 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 262 Or ActiveCell.Column = 17 And ActiveCell.Row = 292 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 322 Or ActiveCell.Column = 17 And ActiveCell.Row = 352 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 382 Or ActiveCell.Column = 17 And ActiveCell.Row = 412 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 442 Or ActiveCell.Column = 17 And ActiveCell.Row = 472 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 502 Or ActiveCell.Column = 17 And ActiveCell.Row = 532 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 562 Or ActiveCell.Column = 17 And ActiveCell.Row = 592 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 622 Or ActiveCell.Column = 17 And ActiveCell.Row = 652 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 682 Or ActiveCell.Column = 17 And ActiveCell.Row = 712 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 742 Or ActiveCell.Column = 17 And ActiveCell.Row = 772 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 802 Or ActiveCell.Column = 17 And ActiveCell.Row = 832 _
Or ActiveCell.Column = 17 And ActiveCell.Row = 862 Or ActiveCell.Column = 17 And ActiveCell.Row = 892 _
Then Kalender.Show
....
Wisst ihr worand das liegt, ich komm einfach nicht drauf :-(
Grüße
Thomas