Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereiche einfügen ab der Zelle A5

Bereiche einfügen ab der Zelle A5
31.08.2005 16:22:41
Daniel
Hallo zusammen,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Bereiche einfügen ab der Zelle A5
31.08.2005 19:00:09
MichaV
Hallo,
dann nicht ez = shZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
sondern ez=5
Gruß- Micha
PS: Dein Level....
AW: Bereiche einfügen ab der Zelle A5
01.09.2005 13:22:49
Daniel
Hallo micha,
ich habe den fehler unterdessen gefunden. das mit dem ez=5 funzt so nicht, weil die tabelle dynamisch ist, und immer erweitert wird ez=6, ez=7 usw.
gruss daniel
AW: Bereiche einfügen ab der Zelle A5
01.09.2005 16:12:18
MichaV
Hallo Daniel,
"dass ich den zu kopierenden Bereich in der Zielquelle ab der Zelle A5 die Zeilen einfügen möchte"
und " weil die tabelle dynamisch ist, und immer erweitert wird ez=6, ez=7 usw." passt für mich nicht zusammen. Aber egal, Du hast es ja gelöst.
Gruß- Micha
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige