Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Letzte Zeile kopieren und darunter Formel einfügen

Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 19:45:23
Guesa
Hallo Forum
Bräuchte mal wieder Eure Hilfe
Die letzte beschriebene Zeile soll kopiert werden und nur die Formeln aus dieser Zeile darunter einfügen. Wenn möglich sollte das Makro starten wenn in die leere Zeile unter der letzten beschriebenen Zeile in Spalte A geklickt wird.
Für Eure Hilfe schon mal ein Danke
Gruß, Guesa
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 20:38:49
cysu11
Hi Guesa,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lz = Cells(1048576, 1).End(xlUp).Row
If Target.Address = Range("A" & lz + 1).Address Then
ActiveCell.Offset(-1, 0).EntireRow.Copy Destination:=Range("A" & ActiveCell.Row)
Else
End If
End Sub
LG
Alexandra
Anzeige
AW: Letzte Zeile kopieren und darunter ....
28.03.2019 20:51:25
{Boris}
Hi,
wofür auch immer es gut sein mag: Ich gehe davon aus, dass die letzte beschriebene Zeile aus Spalte A ermittelbar ist. Gleichzeitig steht in Spalte A selbst eine Formel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
With Target
If .Column = 1 Then
If .Count = 1 Then
If .Row = Cells(Rows.Count, 1).End(xlUp).Row + 1 Then
Rows(.Row - 1).Copy Target
For Each C In Range("A" & .Row, "Z" & .Row) 'bei Bedarf erweitern
If Not C.HasFormula Then
C.Clear
End If
Next C
End If
End If
End If
End With
End Sub
VG, Boris
Anzeige
AW: Letzte Zeile kopieren und darunter Formel einfügen
28.03.2019 21:09:20
Guesa
Danke für die Rückmeldung Cysu und Boris
werde ich direkt morgen früh ausprobieren
Gruß, Guesa
AW: Letzte Zeile kopieren und darunter Formel einfügen
29.03.2019 19:43:16
Guesa
Hallo nochmal
Nochmal ein Danke, da ich ja nur die Formeleinträge brauchte habe ich den Code von Boris genommen, nach einigem anpassen an meine Datei funktionierte es.
Gruß, Guesa

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Letzte Zeile in Excel kopieren und darunter Formel einfügen


Schritt-für-Schritt-Anleitung

Um in Excel die letzte Zeile zu kopieren und darunter nur die Formeln einzufügen, kannst Du den folgenden VBA-Code verwenden. Dieser Code wird ausgeführt, wenn Du in die leere Zeile unter der letzten beschriebenen Zeile in Spalte A klickst.

  1. Öffne das Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Projektfenster das Arbeitsblatt aus, auf dem Du den Code anwenden möchtest.

  3. Füge folgenden Code in das Codefenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       Dim lz As Long
       lz = Cells(Rows.Count, 1).End(xlUp).Row
       If Target.Address = Range("A" & lz + 1).Address Then
           ActiveCell.Offset(-1, 0).EntireRow.Copy Destination:=Range("A" & ActiveCell.Row)
           Dim C As Range
           For Each C In Range("A" & ActiveCell.Row, "Z" & ActiveCell.Row) 'bei Bedarf erweitern
               If Not C.HasFormula Then
                   C.Clear
               End If
           Next C
       End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

Jetzt kannst Du in die leere Zeile unter der letzten beschriebenen Zeile in Spalte A klicken, und der Code wird die letzte Zeile kopieren und die Formeln darunter einfügen.


Häufige Fehler und Lösungen

  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Du den Code im richtigen Arbeitsblatt-Modul eingefügt hast und dass Makros in Excel aktiviert sind.
  • Fehler: Die Formeln werden nicht korrekt kopiert.

    • Lösung: Überprüfe, ob die letzte Zeile tatsächlich Formeln enthält. Der Code kopiert nur die Formeln; leere Zellen oder Zellen ohne Formeln werden gelöscht.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Excel-Funktion "Format übertragen" nutzen, um die Formatierung der letzten Zeile zu kopieren. Dies ist jedoch nicht so effizient wie die VBA-Methode, wenn es um das Kopieren von Formeln geht.

  1. Wähle die letzte Zeile aus und klicke auf "Format übertragen" in der Symbolleiste.
  2. Klicke dann in die erste leere Zeile darunter.

Praktische Beispiele

Angenommen, Du hast in Zeile 10 Werte und Formeln, und in Zeile 11 ist eine leere Zeile. Wenn Du mit dem Code arbeitest, wird die gesamte Zeile 10 in Zeile 11 kopiert, und alle Zellen ohne Formeln werden gelöscht.

Beispiel:

  • Zeile 10:

    • A10: =B10+C10
    • B10: 5
    • C10: 10
  • Zeile 11 (nach dem Ausführen des Codes):

    • A11: =B10+C10 (Formel kopiert)
    • B11: (leer)
    • C11: (leer)

Tipps für Profis

  • Du kannst den VBA-Code anpassen, um spezifische Spalten zu berücksichtigen oder um zusätzliche Bedingungen zu integrieren.
  • Nutze die Tastenkombination ALT + F8, um Makros schnell auszuführen, falls Du eine nicht automatisierte Lösung bevorzugst.
  • Denke daran, regelmäßig Backups Deiner Excel-Datei zu erstellen, insbesondere wenn Du mit VBA arbeitest.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um nur bestimmte Spalten zu kopieren?
Ja, Du kannst den Code anpassen, indem Du die Range in der For Each-Schleife änderst, um nur die gewünschten Spalten zu berücksichtigen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Der bereitgestellte VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und höher) funktionieren. Achte darauf, dass Du Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige