VBA Bereich definieren
01.01.2019 20:48:12
Erik
könnt ihr mir hier helfen?
Ich will, dass das folgende Makro in diesem Tabellenblatt nicht ausgeführt wird, wenn die aktive Zelle sich in den Zeilen 1-6 befindet.
Danke Erik
-----
Sub einfuegen_kf()
Application.ScreenUpdating = False
Set wks = Worksheets(1)
wks.Unprotect Password:="globus"
Zeile = ActiveCell.Row
Rows(Zeile).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range(Cells(Zeile + 1, 6), Cells(Zeile + 1, 8)).Select
Selection.Copy
Range(Cells(Zeile, 6), Cells(Zeile, 8)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(Cells(Zeile + 1, 13), Cells(Zeile + 1, 15)).Select
Selection.Copy
Range(Cells(Zeile, 13), Cells(Zeile, 15)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(Cells(Zeile + 1, 17), Cells(Zeile + 1, 20)).Select
Selection.Copy
Range(Cells(Zeile, 17), Cells(Zeile, 20)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(Cells(Zeile + 1, 22), Cells(Zeile + 1, 41)).Select
Selection.Copy
Range(Cells(Zeile, 22), Cells(Zeile, 41)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(Zeile, 2).Select
wks.Protect _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFormattingColumns:=True, _
AllowFiltering:=True, _
Password:="globus"
wks.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub