Office: Neue Zeile in anderem Tabellenblatt einfügen mit VBA

Hallo,

ich möchte Folgendes erreichen:

Wenn ich eine Zeile in einem Tabellenblatt einfüge, z. B. eine neue Zeile 6, dann soll Excel in einem anderen Tabellenblatt automatisch auch eine neue Zeile einfügen, allerdings dort immer eine Zeile weiter unten (in meinem Beispiel also statt Zeile 6 soll es Zeile 7 sein).

Wie geht das?

Mit einem Makro habe ich diesen Code herausbekommen:

Sub NeueZeile()
'
' NeueZeile Makro
'

'
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Tabelle1").Select
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

So ganz trifft es aber nicht mein Problem, denke ich.

Jetzt habe ich also zwei Fragen:

1) Wie mache ich überhaupt ein Makro zu einem automatisch jederzeit agierenden VBA in einem anderen Arbeitsblatt (hier "Tabelle1")?

2) Wie muss mein Code aussehen??

Über eine schnelle Antwort wäre ich dankbar, es eilt grad...

Vielen Dank
Fin

 

Hallo,

nachfolgendes Makro müsste Deine Wünsche erfüllen:

Code:

Sub NeueZeile()
  Dim Zl As Long

  Zl = ActiveCell.Row
  ActiveCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  With Sheets("Tabelle1")
    .Cells(Zl + 1, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  End With
End Sub

Dieses Makro in ein allgemeines Codemodul kopieren.

1) Die aktive Zelle in die Zeile platzieren, die eingefügt werden soll.
2) Die Tastenkombination Alt+F8 drücken und anschließend die EINGABE-Taste (um das Makro 'NeueZeile' auszuführen).
3) Daraufhin wird in der Zeile mit der aktiven Zelle eine neue Zeile eingefügt und ferner im Arbeitsblatt 'Tabelle1' eine Zeile tiefer ebenfalls eine Leerzeile eingefügt. Beide Leerzeilen werden mit den Formaten der Zeile davor vorformatiert.

 

Hi Exl121150,

es funktioniert!!

Tausend Dank
Fin