Makro nur für Blatt Links
24.02.2019 12:36:06
MaBlu
ich habe hier im Forum eine gute Lösung bekommen um im Woorksheet einen Rahmen zu setzen, Jetzt möchte ich das Makro so änder dass es nur auf dem Blatt Links den Rahmen setzt, aber ich weiss nicht wie das geht, kann mir hier jemand weiterhelfen?
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="asd"
If Target.Column = 2 Then
If Target.Count = 1 Then
With Target.Offset(, -1).Resize(, 7)
If Target "" Then
.BorderAround xlContinuous, xlMedium
Else
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
If Target.Row > 1 Then
If Target.Offset(-1) = "" Then .Borders(xlEdgeTop).LineStyle = xlNone
End If
If Target.Offset(1) = "" Then .Borders(xlEdgeBottom).LineStyle = xlNone
End If
End With
End If
ActiveSheet.Protect Password:="asd", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub
MaBlu
Anzeige