Nachtrag ...
12.10.2009 08:39:51
Matthias
Hallo Thomas
Da Du ja nur in Tabelle1, Tabelle2 und Tabelle3 die neue Zeile einfügen willst, hier nochmnal etwas angepasst
Bedingung: Du musst Dich in Tabelle1 befinden.
Option Explicit
Sub ZeileNeu()
Dim Zeile As Long, X As Long
If ActiveSheet.Name = "Tabelle1" Then
Zeile = Selection.Row
For X = 1 To Worksheets.Count
If Worksheets(X).Name = "Tabelle1" Or Worksheets(X).Name = "Tabelle2" Or Worksheets(X).Name = _
"Tabelle3" Then
Worksheets(X).Rows(Zeile).Insert Shift:=xlDown
End If
Next
End If
End Sub
Vorgehensweise wie im ersten Beitrag.
Aktiviere irgendeine Zelle in deren Zeile Du eine neue Zeile einfügen willst.
und starte das Macro.
alternativ und einfacher strukturiert funktioniert es auch so:
Option Explicit
Sub ZeileNeu()
Dim Zeile As Long, X As Long
If ActiveSheet.Name = "Tabelle1" Then
Zeile = Selection.Row
Worksheets("Tabelle1").Rows(Zeile).Insert Shift:=xlDown
Worksheets("Tabelle2").Rows(Zeile).Insert Shift:=xlDown
Worksheets("Tabelle3").Rows(Zeile).Insert Shift:=xlDown
End If
End Sub
Gruß Matthias