muss ich eigentlich einen VBA - Befehl in jedem Tabellenblatte wiederholen
oder kann ich dass auch irgendwie unter Arbeitsmappe für alle Blätter feste legen ?!
Danke.
Jörg
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
Case "O3"
ActiveSheet.Unprotect "jg"
If Rows("15:17").Hidden Then
Rows("15:17").Hidden = False
Target.Interior.ColorIndex = 4
Else
If Rows("23:84").Hidden Then Rows("15:17").Hidden = True
Target.Interior.ColorIndex = 3
End If
If Rows("85").Hidden Then
Rows("85").Hidden = False
Else
If Rows("23:84").Hidden Then Rows("85").Hidden = True
End If
ActiveSheet.Protect "jg"
Case Else
Cancel = False
End Select
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen