Hilfe bei Code
05.12.2003 08:29:02
Michael
kann mal jemand drüberschauen, es funktioniert soweit alles nur die das Kopieren in wks3 funkt einfach nicht. Die Zellen bleiben leer
Option Explicit
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Dim wkb1 As Workbook
Dim wks1 As Worksheet
Dim wkb2 As Workbook
Dim wks2 As Worksheet
Dim wkb3 As Workbook
Dim wks3 As Worksheet
Set wkb1 = ActiveWorkbook
wkb1.Save
Set wks1 = ActiveSheet
ActiveWindow.WindowState = xlMinimized
Set wkb2 = Workbooks.Open("G:\Kto_Mail.xls")
Set wkb2 = ActiveWorkbook
Set wks2 = ActiveSheet
wks1.Range("A3:E25").Copy
wks2.Range("A3:E25").PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.WindowState = xlMaximized
wks2.Range("A1").Select
Set wkb1 = ActiveWorkbook
Set wks1 = ActiveSheet
ActiveWindow.WindowState = xlMinimized
Set wkb3 = Workbooks.Open("G:\Co_Mail.xls")
Set wkb3 = ActiveWorkbook
Set wks3 = ActiveSheet
wks1.Range("A27:E27").Copy
wks3.Range("A3:E3").PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.WindowState = xlMaximized
wks3.Range("A1").Select
Set wkb1 = ActiveWorkbook
'wkb1.Close True
End Sub
Gruss