VBA Code Trennen
26.09.2018 09:27:49
Uwe
ich hab da ein Code wo ich viele Zellen eintragen muss. Wie kann ich ihn Teilen.
mfg Uwe
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'ActiveSheet.Unprotect Password:=""
If Not Intersect([B1:F2,H1:L2,N1:R2,T1:X2,Z1:AD2,AF1:AJ2,AL1:AP2,AR1:AV2,AX1:BB2,BD1:BH2,B4:B5, _
_
_
_
H4:H5,N4:R5,T4:T5,Z4:AD5,AF4:AJ5,AL4:AP5,AR4:AV5,AX4:BB5,BD4:BH5], Target) Is Nothing Then
If Target.Interior.ColorIndex = 13 Then
Target.Interior.ColorIndex = x1None
Else
Target.Interior.ColorIndex = 13
End If
Cancel = True
'ActiveSheet.Protect Password:=""
End If
End Sub