Kopieren eines Spaltenbereichs von Blatt a nach b
27.10.2004 16:38:41
Blatt
Ich möchte mit VBA die Tabelle eines Arbeitsblattes(A) in ein Arbeitsblatt(B) einer anderen Arbeitsmappe kopieren.
Dabei soll der Spalteninhalt von C6 bis C"Letzte Nichleere Zelle" unter den bestehenden Inhalt der Tabelle B kopiert werden. Wie mache ich das am Besten?
Meine Lsg funktioniert leider nicht, kann mir evtl. jemand sagen warum?
Sub Copy()
Dim Zieldatei As String
Dim QuellBereich As Range
Dim ZielBereich As Range
Static zielEnde As Integer
Dim zielAnfang As Integer
Zieldatei = "WRProjekte.xls"
zielAnfang = 1 + zielEnde
zielEnde = zielAnfang + y - 6
Set QuellBereich = Range(Cells(6, 3), Cells(y, 3))
Set ZielBereich = Range(Cells(zielAnfang, 1), Cells(zielEnde, 1))
'Ab hier hackt es mit Run-Time Fehler '1004'
Workbooks(Dateiname).Worksheets("MA").Range(QuellBereich).Copy _
Workbooks(Zieldatei).Worksheets("Sheet3").Range(ZielBereich)
Application.CutCopyMode = False
End Sub
Vielen Dank für Antworten im Voraus!
Michael
Anzeige