Wechsel zwischen 2 Workbooks mit kopieren Einfügen
13.11.2007 12:28:49
Ha-Jü
nachstehender Code soll best. Bereich in WBOriginal.wsoriginal copieren und in
WBCopie.wscopie (d.h. sheet mit GLEICHEM Namen an best. Stelle einfügen.
Kann mir da jemand auf die Sprünge helfen?
Sub KopierenORG_EinfügenCOPY()
Dim WBOriginal As Workbook
Dim wsoriginal As Worksheet
Dim WBCopie As Workbook
Dim wscopie As Worksheet
Dim blattname As Worksheet
Set WBOriginal = Workbooks("SH1_Wartung_A3_gesamt.xls")
Set WBCopie = Workbooks("SH1_WartungKW46_KW03.xls")
WBOriginal.Activate
For Each wsoriginal In WBOriginal.Worksheets
If Mid(wsoriginal.Name, 1, 3) = "SH1" Then
Set blattname = wsoriginal
Range("BB5:BY100").Select
Selection.Copy
'Fehlerquelle
WBCopie.blattname.Activate
Range("A5:X100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next wsoriginal
End Sub
Gruss Ha-Jü