ich habe mir ein Makro geschrieben um die aktuelle und darauffolgende Zeile zu löschen damit die sonstige Formatierung erhalten bleibt und gleichzeitig die Nummerierung angepasst wird.
In der Tabelle habe ich zwischen zwei beschriebenen Zeilen eine Leerzeile und links eine fortlaufende Nummer für jede beschriebene Zeile. Wenn ich nun mein Makro ausführe funktioniert dieser auch wenn nur eine Zeile über der letzten gelöscht werden soll.
Allerdings habe ich jetzt das Problem wenn ich z.B. zwei Zeilen über der letzten löschen möchte. Dh ich bräuchte eine Makro das mir die Position in Relation zur letzten Zeile sucht um die Verknüpfungen der Nummerierungen anzupassen.
Kann auch sein das ich schon viel zu viel rumprobiert habe und deswegen die leichte Lösung nicht mehr sehe, also wäre ich für alle Hinweise dankbar.
Vielen Dank.
Hier mein Makro soweit:
Sub Loeschen()
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Cells(LetzteZeile, 2).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-2]C+1"
LetzteZeile2 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ActiveSheet.Cells(LetzteZeile2, 3).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub