Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeile einfügen und Formel übernehmen

Forumthread: VBA Zeile einfügen und Formel übernehmen

VBA Zeile einfügen und Formel übernehmen
15.09.2015 11:11:10
Dietz
Hallo,
wie müsste der Code aussehen wenn ich eine Zeile markiere und eine neue Zeile einfüge, dabei aber die Formeln von oben übernehme?
    Selection.Insert Shift:=xlDown
und weiter?
Gruß
Dietz

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeile einfügen und Formel übernehmen
15.09.2015 11:46:04
Beverly
Hi Dietz,
vielleicht eine Möglichkeit:
Sub Kopieren()
Selection.Insert Shift:=xlDown
Selection.Offset(-1).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Anzeige
AW: VBA Zeile einfügen und Formel übernehmen
15.09.2015 12:17:33
Dietz
Danke Beverly,
das klappt schonmal. Eine weitere Frage hätte ich da noch.
Wie müsste ich das handhaben wenn ich nur bestimmte Zellen mit Formeln von oben runterkopieren will und nicht gleich die ganze Zeile.
Dabei geht es mir in erster Linie um die Zellen aus Spalte B,E,G,K,M,N,O,P, U und V.
Gruß
Dietz

Anzeige
AW: VBA Zeile einfügen und Formel übernehmen
15.09.2015 13:30:30
Beverly
Hi Dietz,
Sub Kopieren()
Dim lngZeile As Long
Selection.Insert Shift:=xlDown
Selection.Offset(-1).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
lngZeile = Selection.Row
Union(Range(Cells(lngZeile, 3), Cells(lngZeile, 4)), Cells(lngZeile, 6), _
Range(Cells(lngZeile, 8), Cells(lngZeile, 10)), Cells(lngZeile, 12), _
Range(Cells(lngZeile, 17), Cells(lngZeile, 20))).ClearContents
End Sub

Anzeige
AW: VBA Zeile einfügen und Formel übernehmen
15.09.2015 13:53:44
Dietz
Danke Beverly,
auch das klappt wunderbar, auch wenn es nicht ganz das ist was ich gesucht hatte. Aber nicht schlimm. Ich wollte erst eine Zeile einfügen. Und dann eventuell in einem weiteren Makro nur die bestimmten Zellen runter kopieren anstatt sie nur zu leeren wie in deinem Fall.
Danke und Gruß
Dietz

Anzeige
AW: VBA Zeile einfügen und Formel übernehmen
15.09.2015 15:28:38
Beverly
Hi Dietz,
da dein Zellbereich mit den Formeln nicht zusammenhängend ist, müsstest du jede Zelle bzw. jeden zusammenhängenden Zellbereich einzeln kopieren - das Löschen der nicht benötigten Zellen dagegen macht den Code schlanker.

Anzeige

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Anzeige
Bei Änderung Zeile mit Rahmen einfügen
andi

Hallo zusammen,
habe hier eine Banf in Form einer Tabelle.
Diese hat jetzt zwei Zeilen zum Einfügen von Positionen. Jetzt soll wenn in Spalte "B in Zeile18" etwas eingetragen wird, automatisch eine leere Zeile in der selben Formatierung eingefügt werden, sobald dann in dieser Zeile ein...
07.09.2009 09:21:03
Thread-ID: 1100949
2 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Zellen mit Formeln einer Zeile kopieren
Jürgen

Hallo VBA-Profis,
da ich hinsichtlich VBA ein Anfänger bin, hoffe ich hier im Forum Hilfe zu bekommen.
Ausgangslage:
In größeren Excel-Tabellen sind neben Daten auch Formeln vorhanden.
Tabelle beginnt z.B. ab A4 und erstreckt sich bis Z800 (Zeile 4 sind Überschriften)
In den...
13.12.2009 15:54:18
Thread-ID: 1123590
3 Beiträge
SUMMENFORMEL mit VBA einfügen
Peter

Guten Tag
Ich möchte mit VBA eine Summenformel einfügen.
Selektiert ist irgend eine Zelle in der Spalte H (z.B. H35).
Nun möchte ich in Zelle H35 eine Summenformel einfügen, die den Bereich von H2 bis H34 berücksichtigt.
Wenn H100 selektiert ist, soll die Summenformel H2 bis H99...
30.12.2009 10:14:36
Thread-ID: 1126356
6 Beiträge
Anzeige
Formelfortschreibung beim Einfügen von Zeilen
Zeilen

Hallo,
vielleicht kann jemand helfen:
Beim Einfügen einer Zeile an beliebiger Stelle sollen die Werte in Spalte A entsprechnend korrigiert werden, sodass die Reihenfolge des Positionenzählers in Spalte A wieder stimmig ist. Wenn beispielsweise unter Zeile 5 eine Leerzeile eingefügt wird...
19.01.2010 18:34:15
Thread-ID: 1131157
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Zeile einfügen und Formeln übernehmen

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel, indem Du ALT + F11 drückst.
  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeinDokument)“, wähle „Einfügen“ und dann „Modul“.
  3. Kopiere den folgenden VBA-Code in das Modul: 
    Sub ZeileEinfügenUndFormelÜbernehmen()
   Selection.Insert Shift:=xlDown
   Selection.Offset(-1).Copy
   Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Deinem Excel-Dokument.
  5. Markiere die Zeile, unter der Du eine neue Zeile einfügen möchtest.
  6. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004“: Dieser Fehler tritt auf, wenn Du versuchst, eine Zeile einzufügen, während die Auswahl ungültig ist. Stelle sicher, dass Du eine Zeile markiert hast, bevor Du das Makro ausführst.

  • Lösung: Überprüfe die Auswahl: Stelle sicher, dass Du eine gültige Zeile markiert hast. Wenn Du die Zeile mit Formeln von oben übernehmen möchtest, vergewissere Dich, dass die Zeile über der markierten Zeile Formeln enthält.

Alternative Methoden

  • Direktes Einfügen ohne VBA: Du kannst auch manuell eine Zeile einfügen, indem Du mit der rechten Maustaste auf die Zeilennummer klickst und „Zeile einfügen“ wählst. Danach kannst Du die Formeln manuell kopieren.

  • Formelübernahme mit „Füllen“: Markiere die Zellen in der Zeile oberhalb, die Du kopieren möchtest, und ziehe das Füllkästchen nach unten in die neue Zeile.

Praktische Beispiele

  1. Einfügen einer neuen Zeile mit allen Formeln:

    Sub NeueZeileMitFormelEinfügen()
   Selection.Insert Shift:=xlDown
   Selection.Offset(-1).Resize(1).Copy
   Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub

  2. Einfügen einer neuen Zeile und nur bestimmter Zellen:

    Sub BestimmteZellenKopieren()
   Dim lngZeile As Long
   Selection.Insert Shift:=xlDown
   lngZeile = Selection.Row
   Union(Range(Cells(lngZeile, 2), Cells(lngZeile, 2)), _
         Range(Cells(lngZeile, 5), Cells(lngZeile, 5)), _
         Range(Cells(lngZeile, 7), Cells(lngZeile, 7))).Copy
   Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub

Tipps für Profis

  • Verwende Application.CutCopyMode = False nach dem Einfügen, um den Auswahlrahmen um die kopierten Zellen zu entfernen.
  • Erstelle ein benutzerdefiniertes Menü oder eine Schaltfläche in Excel, um das Makro einfacher auszuführen.
  • Teste Deine Makros in einer Kopie Deiner Datei, um Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nur bestimmte Spalten zu kopieren?
Du kannst die Union-Funktion verwenden, um nur die gewünschten Zellen zu definieren und dann die Formeln von diesen Zellen zu kopieren.

2. Ist es möglich, das Format der neuen Zeile zu übernehmen?
Ja, Du kannst das Format der Zeile mit Selection.Offset(-1).Copy und Selection.PasteSpecial Paste:=xlPasteFormats übernehmen, nachdem Du die Zeile eingefügt hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige