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

Zeile unten einfügen & format übernehmen

Forumthread: Zeile unten einfügen & format übernehmen

Zeile unten einfügen & format übernehmen
13.06.2016 11:57:36
Sandra
Folgendes Ziel habe ich:
Ich markiere eine Zeile, dann Makro:
Ich füge eine Zeile unter die aktive Zeile ein
Ich kopiere das Format der aktiven Zeile
Ich schreibe eine Formel in die neue Zeile
Was Excel macht: Er nimmt die Zeile unter meiner aktiven Zeile, kopiert davon das Format und fügt unterhalb meiner aktiven Zeile eine Zeile ein.
Was funktioniert: Zeile oberhalb einfügen, Format von aktiver Zeile übernehmen und Formel einfügen.
Hier meine Text:
Funktioniert nicht:
Sub ZeileUntenEinfuegen()
Dim iA As Integer
iA = ActiveCell.Row
'ActiveCell.Rows(A & ":" & A).EntireRow.Select
Rows(iA + 1 & ":" & iA + 1).EntireRow.Insert ' leere Zeile einfügen
Rows(iA & ":" & iA).Copy    'Zeile kopieren
Rows(iA & ":" & iA).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'nur Eigenschaften der Zeile (Formate) einfügen
Cells(iA, 15).Select
Selection.FormulaR1C1 = "=IF(COUNTIF(Dokumentenänderung!C[-12],Meetings!RC[-6]),""!"","""")" _
Application.CutCopyMode = False
Cells(iA, 1).Select
End Sub
Funktioniert:
Sub ZeileObenEinfuegen()
Dim iA As Integer
iA = ActiveCell.Row
'ActiveCell.Rows(A & ":" & A).EntireRow.Select
Rows(iA & ":" & iA).EntireRow.Insert   ' leere Zeile einfügen
Rows(iA + 1 & ":" & iA + 1).Copy 'Zeile kopieren
Rows(iA & ":" & iA).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'nur Eigenschaften der Zeile (Formate) einfügen
Cells(iA, 15).Select
Selection.FormulaR1C1 = "=IF(COUNTIF(Dokumentenänderung!C[-12],Meetings!RC[-6]),""!"","""")" _
Application.CutCopyMode = False
Cells(iA, 1).Select
End Sub

Help :)

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile unten einfügen & format übernehmen
13.06.2016 12:42:49
Rudi
Hallo, 
Sub ZeileUntenEinfuegen()
Dim iA As Integer
iA = ActiveCell.Row
'ActiveCell.Rows(A & ":" & A).EntireRow.Select
Rows(iA + 1).EntireRow.Insert ' leere Zeile einfügen
Rows(iA).Copy    'Zeile kopieren
Rows(iA + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False 'nur Eigenschaften der Zeile (Formate) einfügen
Cells(iA + 1, 15).FormulaR1C1 = "=IF(COUNTIF(Dokumentenänderung!C[-12],Meetings!RC[-6]),""!" _
","""")" _
Application.CutCopyMode = False
Cells(iA + 1, 1).Select
End Sub
Gruß
Rudi

Anzeige
AW: Zeile unten einfügen & format übernehmen
13.06.2016 13:49:38
Sandra
Es hat funktioniert. Fantastisch. Danke!
;

Forumthreads zu verwandten Themen

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
Anzeige
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
Anzeige
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Anzeige
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Anzeige
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:38:19
Thread-ID: 1125901
2 Beiträge
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
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Über Button in Zelle Hyperlink einfügen
Ingo

Hallo zusammen,
Ich möchte bei Betätigung eines Button in der makierten Zelle einen Hyperlink einfügen. Bei der Betätigung des Buttons soll sich ein Dialog öffnen in dem ich den Pfad für den Hyperlink angeben kann.
Hat jemand hiermit Erfahrung und hätte einen Tipp? Die Makroaufzeichnug...
22.04.2010 11:40:05
Thread-ID: 1153267
2 Beiträge
1.Zeichen in Zelle einfügen
Helmut

Hallo liebe VBA'ler,
ich habe eine kurze Frage zu einer sicherlich normalen Excel-Funktion.
Wie kann ich in einer Zelle ein erstes Zeichen vor den dort stehenden Text setzen? Ich finde dazu leider nichts Genaues hier; wahrscheinlich,weil es so einfach ist?! (Oft findet man Einträge, die...
22.04.2010 13:54:45
Thread-ID: 1153309
5 Beiträge
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeile unten einfügen und Format übernehmen in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und das Arbeitsblatt, in dem Du eine neue Zeile einfügen möchtest.

  2. Markiere die Zeile, unter der Du eine neue Zeile einfügen möchtest.

  3. Öffne den VBA-Editor: Drücke ALT + F11.

  4. Füge ein neues Modul hinzu: Rechtsklick im Projektfenster > Einfügen > Modul.

  5. Kopiere den folgenden VBA-Code in das Modul:

    Sub ZeileUntenEinfuegen()
   Dim iA As Integer
   iA = ActiveCell.Row
   Rows(iA + 1).EntireRow.Insert ' leere Zeile einfügen
   Rows(iA).Copy    'Zeile kopieren
   Rows(iA + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False 'nur Eigenschaften der Zeile (Formate) einfügen
   Cells(iA + 1, 15).FormulaR1C1 = "=IF(COUNTIF(Dokumentenänderung!C[-12],Meetings!RC[-6]),""!"","""")"
   Application.CutCopyMode = False
   Cells(iA + 1, 1).Select
End Sub

  6. Schließe den VBA-Editor und gehe zurück zu Deinem Arbeitsblatt.

  7. Führe das Makro aus: Drücke ALT + F8, wähle ZeileUntenEinfuegen und klicke auf Ausführen.

Jetzt wird eine neue Zeile unterhalb der aktiven Zeile mit dem gleichen Format erstellt, und die Formel wird automatisch in die neue Zeile übernommen.

Häufige Fehler und Lösungen

  • Fehler 1: Das Makro fügt die Zeile nicht korrekt ein.

    • Lösung: Stelle sicher, dass Du eine Zeile markiert hast, bevor Du das Makro ausführst.

  • Fehler 2: Die Formel wird nicht korrekt übernommen.

    • Lösung: Überprüfe die Zellreferenzen in der Formel und passe sie gegebenenfalls an.

  • Fehler 3: Formatierung wird nicht übernommen.

    • Lösung: Stelle sicher, dass Du den richtigen PasteSpecial-Befehl verwendest. Der Code sollte xlPasteFormats enthalten.

Alternative Methoden

  • Excel-Funktion: Du kannst auch die Funktion Einfügen aus dem Kontextmenü verwenden, um eine Zeile manuell hinzuzufügen und anschließend die Formatierung zu kopieren.
  • Tastenkombination: Drücke Strg + Shift + +, um eine neue Zeile unterhalb der aktiven Zeile einzufügen, und nutze anschließend Strg + C und Strg + V, um das Format zu kopieren.

Praktische Beispiele

  1. Beispiel 1: Du hast eine Tabelle mit Umsätzen und möchtest eine neue Zeile für den nächsten Monat hinzufügen. Nutze das Makro, um die Zeile schnell einzufügen und die Formeln automatisch zu übernehmen.

  2. Beispiel 2: In einem Bericht musst Du regelmäßig neue Zeilen für zusätzliche Daten einfügen. Mit dem VBA-Makro kannst Du diesen Prozess automatisieren und Zeit sparen.

Tipps für Profis

  • Makros speichern: Stelle sicher, dass Du Deine Excel-Datei im xlsm-Format speicherst, um die Makros zu behalten.
  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in Dein Makro ein, um unerwartete Fehler elegant zu handhaben.
  • Formeln anpassen: Je nach Bedarf kannst Du die eingefügte Formel im Makro anpassen, um spezifische Berechnungen durchzuführen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro in einer anderen Excel-Version nutzen? Das Makro funktioniert in Excel 2016 und neueren Versionen. Ältere Versionen könnten andere Einschränkungen haben.

2. Kann ich das Makro anpassen, um mehrere Zeilen gleichzeitig einzufügen? Ja, Du kannst die Logik im Makro erweitern, um mehrere Zeilen einzufügen, indem Du eine Schleife implementierst.

3. Wie kann ich sicherstellen, dass die Formatierung korrekt übernommen wird? Achte darauf, dass die Zeile, die Du kopierst, die gewünschten Eigenschaften hat. Du kannst auch zusätzliche PasteSpecial-Befehle verwenden, um spezifische Formatierungen zu übernehmen.

Beliebteste Forumthreads (12 Monate)

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