ich habe (nach Unterstützung im Forum) folgendes Makro:
Sub BeliebigeZeileKopieren()
Dim iRowL As Integer
Const SpalteMitLetztenWert As Integer = 2 '1 = Spalte A, 2 = Spalte B usw.
Const AusgeblendeteZuKopierendeZeile As Integer = 35 '1 = Spalte A, 2 = Spalte B usw.
iRowL = Cells(Rows.Count, SpalteMitLetztenWert).End(xlUp).Row 'Letzte Zelle ermitteln
With Rows(AusgeblendeteZuKopierendeZeile)
.EntireRow.Hidden = False 'Zeile einblenden
.Copy Rows(iRowL + 1) 'Zeile kopieren und einfügen
Application.CutCopyMode = False 'Kopiermodus aufheben
.EntireRow.Hidden = True 'Zeile ausblenden
End With
End Sub
Wenn ich dieses verwende, werden automatisch die Werte unterhalb der Zeile überschrieben.
Gibt es eine Möglichkeit, das Makro so umzuschreiben, dass die Leere Zeile immer oberhalb des Wertes der Zeile Gesamt eingefügt wird (derzeit Zeile 37 - Name noch nicht eingefügt)? und die Formeln bestehen bleiben?
Des weiteren wäre es toll, dass das Makro automatisch nach Eingabe (gibt es nicht ein "Ereignismakro" meine, dass ich das irgendwo im Forum schon mal gelesen habe) erfolgt, wenn in der letzten Zeile in Spalte B ein Wert steht?
Hier noch die Datei: https://www.herber.de/bbs/user/50067.xls
Vielen dank im voraus für die Unterstützung und
Schöne Grüße
Gesa S.