Bereiche einfügen ab der Zelle A5
31.08.2005 16:22:41
Daniel
ich habe folgender Code, welcher mir freundlicherweise Herber zur Verfügung gestellt hat (dafür nochmals vielen Dank funzt auch...) Mein Problem besteht nun darin, dass ich den zu kopierenden Bereich in der Zielquelle ab der Zelle A5 die Zeilen einfügen möchte. Ich krieg das leider nicht auf die Reihe. Ich bin froh für jegliche hilfe.
Gruss daniel
'Inhalte und Formate kopieren
Sub ber_kop()
Dim ez&, ber As Range, shZ As Worksheet
Dim wbQ As Workbook, wbZ As Workbook
Set wbQ = ActiveWorkbook
Set wbZ = Workbooks("Mappe2.xls")
Set shZ = wbZ.Sheets("Tabelle1")
Set ber = wbQ.Sheets("Tabelle1").Range("A5:DG5")
With Application
.ScreenUpdating = False
'* Bereich EX sollte ab der Zelle A5 sein ---->
ez = shZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
shZ.Range(shZ.Cells(ez, 1), shZ.Cells(ez, 85)).Value = ber.Value
ber.Copy
shZ.Cells(ez, 1).PasteSpecial xlPasteFormats
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
Anzeige