Zeileneinfügen in verknüpften Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
das nachfolgende Makro fügt im Stammblatt unter der Zeile mit der aktiven Zelle im "Stammblatt" eine eine Leerzeile und in den KDPL-Blättern eine Zeile mit den entsprechenden Formeln ein.
Nach Ausführung des Makros kannst du dann die Daten im Stammblatt eingeben oder in die Leerzeile kopieren.
Gruß
Franz

Sub NeueDatenzeile_einfuegen()
Dim wksStamm As Worksheet, wksKDPL As Worksheet
Dim Zeile As Long
Zeile = ActiveCell.Row
Set wksStamm = ActiveWorkbook.Worksheets("Stammblatt")
With wksStamm
If ActiveSheet.Name = wksStamm.Name And Zeile > 1 Then
If MsgBox("Neue Datenzeile unterhalb von Zeile " & Zeile & " einfügen?", _
vbQuestion + vbOKCancel, "Neuen Artikel einfügen") = vbOK Then
.Rows(Zeile + 1).Insert
.Rows(Zeile).Copy Destination:=.Rows(Zeile + 1)
.Rows(Zeile + 1).ClearContents
For Each wksKDPL In ActiveWorkbook.Worksheets
Select Case Left(wksKDPL.Name, 4)
Case "KDPL"
With wksKDPL
.Rows(Zeile + 1).Insert
.Rows(Zeile).Copy Destination:=.Rows(Zeile + 1)
End With
End Select
Next
End If
Else
MsgBox "Makro bitte nur starten, wenn """ & wksStamm.Name _
& """ das aktive Blatt ist" & vbLf _
& "und nicht Zeile 1 aktiv ist!"
End If
End With
End Sub
Sub Datenzeile_loeschen()
Dim wksStamm As Worksheet, wksKDPL As Worksheet
Dim Zeile As Long
Set wksStamm = ActiveWorkbook.Worksheets("Stammblatt")
Zeile = ActiveCell.Row
With wksStamm
If MsgBox("Artikel: " & .Cells(Zeile, 1).Text & " " & .Cells(Zeile, 2).Text & vbLf _
& "in Zeile " & Zeile & " löschen?", _
vbQuestion + vbOKCancel, "Neuen Artikel einfügen") = vbOK Then
.Rows(Zeile).Delete
For Each wksKDPL In ActiveWorkbook.Worksheets
Select Case Left(wksKDPL.Name, 4)
Case "KDPL"
With wksKDPL
.Rows(Zeile).Delete
End With
End Select
Next
End If
Else
MsgBox "Makro bitte nur starten, wenn """ & wksStamm.Name _
& """ das aktive Blatt ist" & vbLf _
& "und nicht Zeile 1 aktiv ist!"
End If
End With
End Sub

Hallo Andreas,
... mir erschließt sich zwar nicht, warum Du die die Stammdatentabelle in identischer Form und noch dazu in der gleichen Arbeitsmappe mehrfach brauchst, aber außer den aufgezeigten VBA-Lösungen käme auch nur eine kleine Modifikation der Formel in Betracht. Und zwar in A2 anstelle =Stammblatt!A2 einfach =INDEX(Stammblatt!A:A;). Diese Formel nach rechts kopieren. Das Format aus der darunterliegenden Zeile übernehmen und dann die Formelzeile entsprechend weit nach unten kopieren. Mit benutzerdefinierten Zahlenformat lassen sich auch die evtl. ungewollten 0-Werte für (noch) nicht vorhandene Werte im Stammdatenblatt ausblenden. Wenn es nicht um viele tausende Stammdatensätze handelt, wäre es zumindest eine Alternative zum VBA-Einsatz, wobei wie geschrieben mir Dein eigentliche Anliegen nicht wirklich verständlich ist.
Gruß Werner
.. , - ...
Jeder Interessent ist willkommen beim Exceltreffen 11.-13.10.2013 in Duisburg
Mehr dazu, siehe http://www.exceltreffen.de/index.php?page=230

Beliebteste Forumthreads (12 Monate)

Zeileneinfügen in verknüpften Tabellen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeileneinfügen in verknüpften Tabellen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread