title image


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

die gerade geöffnete Datei ist immer die aktive Datei und Du

kannst die mit ActiveWorkbook ansprechen.



> wie bekoome am schnellsten den Dateinamen der gerade geöffneten Datei.

ActiveWorkbook.Name



> In den Quelldateien sind Formeln, die werden bei dieser Lösung nicht mit übertragen,

bei mir schon



> Wie den Copy-Code verstehe wird nur der benutze Bereich kopiert - Richtig??

stimmt. Könnte sein das dein Problem mit den Formeln auch daher kommt. Falls möglich dann trag mal in der Quelldatei was in Zelle A1 ein.







Sub Import_2()

Dim Quelle As Object  

Dim Ziel As Object  

Dim Datei As String  



On Error GoTo Fehler    



Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")  

       

If Datei = "Falsch" Then  

  MsgBox "keine Datei geöffnet", , ""

  Exit Sub  

End If  



MsgBox "Ausgewählte Datei: " & Datei, , ""

 

'Ausgewählte Datei öffnen

Workbooks.Open Filename:=Datei



Set Quelle = ActiveWorkbook.Worksheets(1)

Set Ziel = ThisWorkbook.Worksheets(1)



'kopieren und einfügen

Quelle.UsedRange.Copy Ziel.Cells(1, 1)



ActiveWorkbook.Close



'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  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: