title image


Smiley Re: Daten aus vorhandenen Tabellen in ein bestimmtes Arbeitsblatt einfügen
Hallo,

vielleicht so:













Sub Test()

Dim Quelle As Object  

Dim Ziel As Object  



On Error GoTo Fehler    



Workbooks.Open Filename:="C:\Eigene Dateien\test.xls"



Set Quelle = Workbooks("test.xls").Worksheets(1)

Set Ziel = ThisWorkbook.Worksheets(1)



'kopieren und einfügen

Quelle.UsedRange.Copy Ziel.Cells(5, 2)



'Speicher freigeben

Set Quelle = Nothing  

Set Ziel = Nothing  



Exit Sub  



Fehler:

Set Quelle = Nothing  

Set Ziel = Nothing  



    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

    & "Beschreibung: " & Err.Description _

    , vbCritical, "Fehler"

End Sub  







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: