sheet öffnen und in anderes workboot kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: sheet öffnen und in anderes workboot kopieren
von: Michael
Geschrieben am: 17.11.2003 14:04:38

Hallo zusammen,

ich habe folgendes Problem:
ich möchte aus einem geöffneten Workbook ein Sheet in ein anderes, bereits bestehendes, Workbook kopieren und ggf ein vorhandenes Sheet überschreiben. Ich habe bereits alle mir geläufige Varianten versucht (mit activesheet.select und copy etc.) aber leider ohne erfolg.

Hat jemand eine Idee wie ich das am einfachsten hinbiege???


Vielen Dank
Michael

Bild


Betrifft: AW: sheet öffnen und in anderes workboot kopieren
von: Michael
Geschrieben am: 17.11.2003 14:21:13

Hallo Namensvetter,

hab heute gerade soetwas mit Hilfe zusammengebastelt.

Den Pfad und den Bereich (Range) anpassen und dann sollte es gehen.


Private Sub CommandButton1_Click()
dim wkb1 as workbook
dim wks1 as worksheet
dim wkb2 as workbook
dim wks2 as worksheet
set wkb1 = ActiveWorkbook
wkb1.Save
set wks1 = activesheet
ActiveWindow.WindowState = xlMinimized
Workbooks.Open Filename:="G:\form\Kto_Mail.xls"
set wkb2 = ActiveWorkbook
set wks2 = activesheet 
wks1.Range("A3:E33").Copy
wks2.Range("A3:E33").PasteSpecial Paste:=xlValues
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " sheet öffnen und in anderes workboot kopieren"