Herbers Excel/VBA-Archiv

Mit Makro eine neue Zeile einfügen | Herbers Excel-Forum

• Mit Makro eine neue Zeile einfügen von Richard vom 21.01.2010 12:48:19
• AW: Mit Makro eine neue Zeile einfügen - von Rudi Maintaire am 21.01.2010 13:10:01
  • AW: Mit Makro eine neue Zeile einfügen - von Richard am 21.01.2010 13:29:00
    • AW: Mit Makro eine neue Zeile einfügen - von Richard am 21.01.2010 13:56:54

Betrifft: Mit Makro eine neue Zeile einfügen von: Richard
Geschrieben am: 21.01.2010 12:48:19

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 vielleicht kurz erklären wie das geht?

Danke und Gruß

Betrifft: AW: Mit Makro eine neue Zeile einfügen von: Rudi Maintaire
Geschrieben am: 21.01.2010 13:10:01

Hallo,
in ein Modul:

Sub Zeile_rein()
  Dim rConst As Range
  If Selection.Row > 1 Then
    Selection.Offset(-1).EntireRow.Copy
    Selection.EntireRow.Insert
    Application.CutCopyMode = False
    On Error Resume Next
    Set rConst = ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rConst Is Nothing Then rConst.ClearContents
  End If
End Sub

Gruß
Rudi

Betrifft: AW: Mit Makro eine neue Zeile einfügen von: Richard
Geschrieben am: 21.01.2010 13:29:00

Danke, klappt super!

Gruß,
Richy

Betrifft: AW: Mit Makro eine neue Zeile einfügen von: Richard
Geschrieben am: 21.01.2010 13:56:54

Hey Rudi,
ich hab da ein Problem mit der Programmierung.
Mein Excel hat ein Problem mit der markierten Zeile.
Kannst du mir sagen wo das Problem ist?

Sub Zeile_rein()
   Dim rConst As Range
 -> If Selection.Row > 1 Then <-
    Selection.Offset(-1).EntireRow.Copy
    Selection.EntireRow.Insert
    Application.CutCopyMode = False
    On Error Resume Next
    Set rConst = ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rConst Is Nothing Then rConst.ClearContents
  End If
End Sub

Danke und Gruß,
Richy

Beiträge aus den Excel-Beispielen zum Thema "Mit Makro eine neue Zeile einfügen"