Tabellen Konsolidieren
14.09.2016 14:10:38
Jens
ich würde gern zwei Tabellen konsolidieren.In Tabelle2 sind die Daten die ich gerne in Tabelle 1 übertragen möchte. In T5 steht die Anzahl der neu einzufügenden Zeilen. Die sollen oberhalb von der Zelle Total eingefügt werden.Leider fügt der Makro mir 56 Zeilen ein, obwohl 10 in der Zelle T5 stehen.Es geht sich nur um das Zellen einfügen!
Anbei mein Makro:
Sub LeereZeileEinfuegen() 'leere Zeile Einfügen
Dim Zeile As Long
Dim ZeileMax As Long
Zeile = Range("T5")
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 2).Value = "Total" Then
.Rows(Zeile).Insert
Zeile = Zeile + Range("T5")
End If
Next Zeile
End Sub
Anzeige