habe folgendes Problem habe ein Code zum ändern der Zellenfarbe per doppelklick.
Jetzt möchte ich gerne das er das machtaber erst ab dem zweiten tabellenblatt . Da diese Aktion im ersten Tabellenblatt nicht stattfinden soll und es zu fehlern kommt. Hoffe ihr könnt mir helfen.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Hier noch der Code:
With Target
If .Column = 1 Then
ActiveCell.Locked = False
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 4, xlNone)
End If
If .Column = 10 Then
ActiveCell.Locked = False
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = 6, 34, 6)
End If
End With
'Cancel = True
End Sub
Gruß Alex