Doppelklick für alle Mappen
17.03.2009 10:52:49
Herbert
Ich möchte ein Doppelklick-Ereignis für alle Mappen haben, also den Code in die Personl.xls setzen um das u.a. Makro in anderen Tabelllen auch ausführen zu können. Ich weis aber nicht wie ;-(
So habe ich zur Zeit es für das aktuelle Sheet:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
On Error Resume Next
If ActiveCell.Column (1) Then Exit Sub
zahl = ActiveCell.Value
If IsNumeric(zahl) = False Then Exit Sub
iRow = ActiveCell.Row
Range(Cells(iRow, 1), Cells(iRow, 15)).Interior.ColorIndex = 40
Cells(iRow, 1).Select
End Sub
Vielen Dank für´s "drüberschauen"
Gruß Herbert
Anzeige