2 Worksheets kombinieren
04.08.2021 06:47:33
Andre
wie kann ich beide Private Sub Worksheets kombinieren, so dass sie beide funktionieren. Bekomme es nicht richtig hin. Wenn ich den unteren Sub deaktiviere läuft es wenn ich diesen dazu nehme wieder nicht. Könnt Ihr mir bitte helfen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Not Intersect(Target, Range("D6:M26,Q6:R26,V6:V26")) Is Nothing Then
Me.Protect Password:="abc", userinterfaceonly:=True
For Each objCell In Target
If Not Intersect(objCell, Range("D6:M26,Q6:R26,V6:V26")) Is Nothing Then _
objCell.Locked = objCell.Text ""
Next
Exit Sub
' Dim objCell As Range
' If Not Intersect(Target, Range("N6:P26,S6:U26")) Is Nothing Then
' Me.Protect Password:="def", userinterfaceonly:=True
' For Each objCell In Target
' If Not Intersect(objCell, Range("N6:P26,S6:U26")) Is Nothing Then _
' objCell.Locked = objCell.Text ""
' Next
End If
End Sub