Microsoft Excel

Herbers Excel/VBA-Archiv

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


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"