SUB ab dem zweiten Tabellenblatt
27.07.2004 13:05:36
Alex
habe folgende Formel in meiner Arbeitsmappe hinterlegt.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If Sh.Name = "2" Then Exit Sub
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
Ich möchte gerne das diese Formel erst ab dem 2 Tabellenblatt funktioniert und dann alle weiteren Tabellenblätter aus tabellenblatt Nr. 1 da soll dies Funktion nicht ausgeführt werden. Hoffe ihr könnt mir helfen.
Gruß Alex
Anzeige