Makro abändern
25.08.2004 14:48:41
Sebastian
ich habe folgendes Problem. Hab folgenden Vba Code nach längerem probieren und durchforsten des Forums hingekriegt.
Private Sub CommandButton13_Click()
Dim wbkAlt As Workbook
Dim wbkNeu As Workbook
Dim wbkAltName
Application.ScreenUpdating = False
Set wbkAlt = ActiveWorkbook
wbkAltName = ActiveWorkbook.Name
Workbooks.Open "C:\CEE Actuals with Assessment Bot.Up.xls"
Set wbkNeu = ActiveWorkbook
Sheets("SUM_CEE").Copy After:=Workbooks(wbkAltName).Sheets(1)
wbkNeu.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
Jetzt will ich den Code so abändern dass das zu kopierende Sheet auf ein vorhandenes Sheet kopiert wird und nicht wie jetzt ein neues Sheet erzeugt wird.
Vielleicht kann mir mir jemand einen Tipp geben.
Danke.Ihr seid immer eine große Hilfe.
Gruß Sebastian
Anzeige