Einfügen ohne überschreiben
12.12.2005 14:45:07
Paulchen
Habe folgendes Problem:
Und zwar werden aus Tabelle 4 (im BSP schon aktiv) Sätze kopiert, die in Tabelle 5 in ein vorgefertigtes Formblatt eingefügt werden.
Doch leider werden beim Einfügen die vorgefertigten Zellen überschrieben.
Hier mein Code bisher:
Rows("1:1").Select
If Not ActiveSheet.AutoFilterMode = True _
Then Rows("1:1").AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="1"
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Sheets(Tabelle5).Select
Range("A3").Select
ActiveSheet.Paste
CutCopyMode = False
Welche kleine Zeile erlaubt es mir, die neuen Zeilen einzufügen, ohne dass die vorhandenen Zellen überschrieben werden? Die müssten dann nach unten verschoben werden...