Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Makro abändern

Betrifft: Makro abändern von: Sebastian
Geschrieben am: 25.08.2004 14:48:41

Hi zusammen,

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
  


Betrifft: AW: Makro abändern von: DieterB
Geschrieben am: 25.08.2004 15:50:21

Hallo Sebastian,

den zu kopierenden Bereich markieren (select)
dann mit Copy und Paste in eine bereits vorhanden Tabelle einfügen.

In der Hilfe oder in der Recherche wirst Du sicher fündig

Gruß

DieterB