Makro zum Einfügen neuer Zeilen geht nicht
28.04.2005 13:02:57
Silvia
Ich habe vor längerer Zeit netter Weise ein Makro erhalten, durch das eine Zeile ab einer bestimmten STelle im Dokument kopiert und neu eingefügt wird, um die Formate, bedingten Formate und Formeln fortzuschreiben.
https://www.herber.de/bbs/user/21827.xls
Leider ist es nun so, dass die Formeln zwar kopiert werden, aber trotz relativer Zellbezüge nicht angepasst werden, so dass in den neu eingefügten Zeilen die Formelergebnisse nicht stimmen.
Ich kenne mich leider mit VBA überhaupt nicht aus und kann das Makro nicht interpretieren. Kann mir da jemand helfen?
Herzlichen Dank!
Silvia
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errorhandler
eRow = [E65536].End(xlUp).Row - 5
If Target.Count > 1 Then Exit Sub
If Target.Row = eRow And Intersect(Target, Range("E:F")) Then
Application.EnableEvents = False
Rows(eRow + 1).Insert Shift:=xlDown
Rows(eRow + 2).Copy Rows(eRow + 1)
End If
Errorhandler:
Application.EnableEvents = True
End Sub
Sub lala()
Application.EnableEvents = True
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Rows("16:16").Select
Selection.Copy
Rows("17:17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub