Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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 :)

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!

233 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige