Kopieren
14.10.2005 14:41:47
Korl
jetzt ist es mir schon peinlich fast immer wieder auf das gleiche Thema zu kommen.
Aus meiner Mappe rufe ich eine aus dem Dialog Datei-Öffnen eine Mappe auf. Aus dieser möchte ich Werte kopieren in meiner vorhandenen Mappe.
Mein Code:
Option Explicit
Public wbA As Workbook
Sub daten_importieren()
Dim wksE As Worksheet, wksAAusw As Worksheet, wksAusw As Worksheet
Dim strPfad As String, strFileName As String, x As String
Dim lLetzteAAusw As Long, lLetzteAusw As Long
Set wbA = Workbooks(ActiveWorkbook.Name)
Set wksAusw = Workbooks("Einlesen csv").Worksheets("Auswertung")
Set wksAAusw = wbA.Worksheets("Auswertung")
Set wksE = Worksheets("Einlesen")
strPfad = wksE.Range("M3")
strFileName = Application.GetOpenFilename(filefilter:="Exceldateien (*.xls), *.xls")
ChDrive Left(strPfad, 1)
ChDir strPfad
x = strFileName
If x = "Falsch" Then Exit Sub
orkbooks.Open strFileName
lLetzteAAusw = IIf(wksAAusw.Range("A65536") <> "", 65536,
wksAAusw.Range("A65536").End(xlUp).Row)
lLetzteAusw = IIf(wksAusw.Range("A65536") <> "", 65536,
wksAusw.Range("A65536").End(xlUp).Row)
wksAAusw.Range("A2:E" & lLetzteAAusw).Copy
wksAusw.Range("A" & lLetzteAusw + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveWorkbook.Close
Windows("Einlesen csv.xls").Activate
' wksAusw.Range("A1").Select
wksE.Select
MsgBox "Die Daten wurden erfolgreich übernommen!"
End Sub
Dieser Code kopiert leider nicht die Werte aus der aufgerufenen, sondern aus der vorhandenen Mappe noch mal die Werte unterdran.
Das Problem scheint mir die Variable für die aufzurufenen Datei zu sein. Leider ist der Name immer unterschiedlich.
Kann mir nochmal jemand einen Tip geben?
Gruß Korl