|
Hallo,
ich würde gerne Makros nur in definierten Bereichen zur Ausführung kommen lassen.
Diese Bereiche sollen definiert werden, durch zwei Zeilen.
z.B.
Obere Grenze Zeile 2
untere Grenze Zeile 5
Dazwischen funktionieren die Makros.
Falls nun eine Zeile dazwischen eingefügt wird, soll sich der Gültigkeitsbereich auf Zeile 6 erweitern.
Wird eine Zeile gelöscht, soll sich der Gültigkeitsbereich auf Zeile 4 vermindern.
Die beiden Grenzzeilen sollen auch nicht gelöscht werden können.
Ich möchte dadurch dem Skript einen Gültigkeitsbereich zu ordnen.
Sub ZeileEinfügen()
Dim ws As Worksheet, wsV As Worksheet, z%
Set ws = ActiveSheet
Set wsV = ThisWorkbook.Worksheets("2")
Application.EnableEvents = False
With Worksheets("1")
.Unprotect Password:="sperl"
Selection.EntireRow.Insert Shift:=xlDown
z = ActiveCell.Row
wsV.Rows("5:5").Copy ws.Range("A" & z)
Worksheets("1").Protect Password:="sperl"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End With
Application.EnableEvents = True
End Sub
Ebenso möchte ich die Zeile auch nur zwischen den beiden Bereichen löschen lassen.
Einfügen und löschen soll über je einen Button möglich sein.
Ich hoffe mir kann wer weiterhelfen, da ich nicht weis wie ich das realisieren soll. Habe gerade erst mit VBA angefangen.
Gruss
|