Doppelklick-Problem in Excel 2000
21.02.2016 11:45:11
Ulrich
Ich habe ein Doppelklick-Problem mit Excel 2000.
Normalerweise läuft das so.
'Im Arbeitsblatt
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$B$7" Then
Sheets("CDAX").Range("D13").Interior.ColorIndex = xlNone
Sheets("CDAX").Range("D1").Font.ColorIndex = 5
Sheets("CDAX").Range("D1").Value = "=TODAY()"
Cancel = True
End If
End Sub
Das funktioniert auch.
Nun habe ich aber sehr viele Doppelklick-Ereignisse und Excel 2000 gerät an seine
Grenzen. Fehler: "Prozedur zu groß"
Ich muss die Klick-Ereignisse also in ein Modul auslagern.
'Im Arbeitsblatt
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
Call dreiU_Holding_Dkl
usw.
Cancel = True
End Sub
'In einem ModulSub dreiU_Holding_Dkl()
If Target.Address = "$B$7" Then 'Objekt erforderlich
Sheets("CDAX").Range("D13").Interior.ColorIndex = xlNone
Sheets("CDAX").Range("D1").Font.ColorIndex = 5
Sheets("CDAX").Range("D1").Value = "=TODAY()"
End If
End Sub
usw.
Das Makro im Modul verlangt ein Objekt.
Welches Objekt wird hier benötigt?
mfg Uli