Bereich kopieren
05.09.2003 10:04:47
Daniel G
Ich hab da wieder einmal ein Problem. Wenn ich meinen Code ausführe, kopiert es mir nur 11 Zeilen, obwohl eigentlich wesentlich mehr vorhanden sind...
Woran kann das liegen?
Thx im Vorraus für eure Mühe
Private Sub CommandButton1_Click()
Dim w As Worksheet
Dim wks1 As Worksheet
Dim rngRangeToCopy As Range
Dim wks2 As Worksheet
Dim rngRangeWhereToPaste As Range
ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\....1000.xls"
Workbooks.Open FileName:="\\....entw~2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)
wks2.Range(wks2.Cells(1, 1), wks2.Cells(xlCellTypeLastCell, 17)).Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
Set wks1 = ActiveWorkbook.Sheets(1)
Set rngRangeToCopy = wks1.Range(wks1.Cells(1, 1), wks1.Cells(xlCellTypeLastCell, 17))
Workbooks.Open FileName:="\\....entw~1.xls"
Set wks1 = ActiveWorkbook.Sheets(1)
wks1.Range(wks1.Cells(1, 1), wks1.Cells(xlCellTypeLastCell, 17)).Select
Selection.Copy
ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\....entw~2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)
Set rngRangeWhereToPaste = wks2.Range("A1") ' kann auch A1:Q30 sein, aber ist nicht notig
wks1.Range(wks1.Cells(1, 1), wks1.Cells(xlCellTypeLastCell, 17)).Copy ' Help Beschreibung : Copies the object to the Clipboard.
With rngRangeWhereToPaste
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
MsgBox "Hallo, hier ist Mappe " + ActiveWorkbook.Name + ", Blatt " + ActiveSheet.Name
ActiveWorkbook.Save
SendKeys "~" 'enter
End Sub