Automatisch Zeilen einfügen
23.03.2015 12:07:44
Müller
ich habe eine Tabelle im Bereich A:DP1000 (ca.)
Nun habe ich in der Tabelle verschiedene Bereiche, die zusammen gehören. So bildet z.b. A15:DP64 ein Bereich, A64:DP.... ein Bereich usw........
Jetzt möchte ich beispielsweise im Bereich A15:DP20 (der schon mit Formeln und Werten gespickt ist, an das Ende :20 eine neue Zeile anstellen, sobald ich die letzte Zeile fülle (automatisch). Dazu habe ich folgenden Code gefunden:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rLaubt As Range
Dim rRow As Long
Set rLaubt = Columns("A:F")
If Not Intersect(rLaubt, Target) Is Nothing Then
rRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
If rRow = Target.Row Then
Application.EnableEvents = False
ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$5:$F$" & rRow + 1)
Application.EnableEvents = True
End If
End If
End Sub
Nun geht das ja nur auf einen Bereich bestimmt. Kann man den Code so ändern, dass die Funktion für beliebig viele Bereiche möglich ist?
Ist es außerdem möglich, dass ich zwischen bereits ausgefüllten Zeilen eine neue Zeile einfüge? (z.B zwischen A16 und A17 merke ich, dass eine Zeile dazwischen soll.....so kann ich z.b. A16 markieren "Enter" drücken und dann wird eine neue Zeile eingefügt)?
Das Problem an der ganzen Sache ist, dass meine Tabelle in vielen Spalten komplexe Formeln beinhaltet, die mit fortlaufenden Zeilennummerierungen arbeiten. Die sollen folglich ebenfalls angepasst und in der neuen Zeile vorhanden sein.
Anbei eine Beispieldatei
https://www.herber.de/bbs/user/96577.xlsx
Ich Danke im Voraus!
Beste Grüße