22.06.2014, 21:46
Hallo liebe Excelgemeinde,
mit folgenden Code kopieren ich Daten samt Formate von eine Exceldatei zu meiner Datei in der ich diesen Code ausführe:
Wie muss ich den Code ändern damit er genau das umgekehrte macht, also aus der Datei in der ich den Code ausführe die Daten in einer anderen Datei die noch nicht existiert und "upload.xls" heißen soll?
Für eure Hilfe danke ich im Voraus
LG
Alexandra
mit folgenden Code kopieren ich Daten samt Formate von eine Exceldatei zu meiner Datei in der ich diesen Code ausführe:
Code:
Sub ImportDaten()
Dim Dateiname As String
Dim Datei As Object
Dim wsQuelle As Workbook
Dim wsZiel1 As Worksheet
Dim wsZiel2 As Worksheet
Dim wsZiel3 As Worksheet
Dim wsZiel4 As Worksheet
Dim wsZiel5 As Worksheet
Dim wsQuelle1 As Worksheet
Dim wsQuelle2 As Worksheet
Dim wsQuelle3 As Worksheet
Dim wsQuelle4 As Worksheet
Dim wsQuelle5 As Worksheet
Dateiname = Application.GetOpenFilename("Excel Datei, *.*") ' Datei auswählen
If Dateiname = "Falsch" Then Exit Sub ' bei Abbruch
Application.ScreenUpdating = False
Dim var
var = MsgBox("Sind Sie sicher, dass Sie die Daten importieren möchten? ", vbYesNo)
If var = 7 Then
Exit Sub
Else
Set Datei = Workbooks.Open(Dateiname) ' Datei öffnen
Set wsZiel1 = ThisWorkbook.Sheets("produkte")
wsZiel1.Cells.ClearContents
wsZiel1.Cells.ClearFormats
Set wsQuelle1 = Datei.Worksheets("produkte")
wsQuelle1.Cells.Copy Destination:=ThisWorkbook.Sheets("produkte").Cells
Set wsZiel2 = ThisWorkbook.Sheets("kunden")
wsZiel2.Cells.ClearContents
wsZiel2.Cells.ClearFormats
Set wsQuelle2 = Datei.Worksheets("kunden")
wsQuelle2.Cells.Copy Destination:=ThisWorkbook.Sheets("kunden").Cells
Set wsZiel3 = ThisWorkbook.Sheets("LN")
wsZiel3.Cells.ClearContents
wsZiel3.Cells.ClearFormats
Set wsQuelle3 = Datei.Worksheets("LN")
wsQuelle3.Cells.Copy Destination:=ThisWorkbook.Sheets("LN").Cells
Set wsZiel4 = ThisWorkbook.Sheets("zwischen")
wsZiel4.Cells.ClearContents
wsZiel4.Cells.ClearFormats
Set wsQuelle4 = Datei.Worksheets("zwischen")
wsQuelle4.Cells.Copy Destination:=ThisWorkbook.Sheets("zwischen").Cells
Set wsZiel5 = ThisWorkbook.Sheets("Attribute")
wsZiel5.Cells.ClearContents
wsZiel5.Cells.ClearFormats
Set wsQuelle5 = Datei.Worksheets("Attribute")
wsQuelle5.Cells.Copy Destination:=ThisWorkbook.Sheets("Attribute").Cells
wsQuelle1.Parent.Close SaveChanges:=False
Set wsQuelle1 = Nothing
Set wsQuelle2 = Nothing
Set wsQuelle3 = Nothing
Set wsQuelle4 = Nothing
Set wsQuelle5 = Nothing
Set wsZiel1 = Nothing
Set wsZiel2 = Nothing
Set wsZiel3 = Nothing
Set wsZiel4 = Nothing
Set wsZiel5 = Nothing
End If
End Sub
Wie muss ich den Code ändern damit er genau das umgekehrte macht, also aus der Datei in der ich den Code ausführe die Daten in einer anderen Datei die noch nicht existiert und "upload.xls" heißen soll?
Für eure Hilfe danke ich im Voraus
LG
Alexandra