Office: Daten in andere Datei kopieren

Appolus · 10. September 2014

Hi!

Ich muss für die Arbeit eine Liste, die bisher immer manuell sortiert & bearbeitet wurde und dann auf mehrere Datein aufgeteilt wurde, automatisieren.

Die gesamte Formatierung und Bearbeitung habe ich bereits fertig.

Nun geht es darum, dass alle Zeilen aus der Liste kopiert werden sollen und zwar in die Excel Datei im selben Ordner in deren Name, der Text in der ersten Spalte vorhanden ist und zwar ohne, dass etwas an der Formatierung geändert wird.

Ich hoffe es kann mir jemand helfen, vielen Dank!

:)

Hajo_Zi · 11. September 2014

die andere Datei muss geöffnet werden.
Code:

Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
' Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
' *****
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Appolus · 11. September 2014

Danke, im Moment versuche ich die Datei wie Folgt zu öffnen:

Code:

Sub opener()
Dim temp As Variant
temp = Cells(1, 1)

Dim Dateiname, Pfad, teil
Pfad = "C:\Users\blabla\Desktop\"
teil = temp
Dateiname = Dir(Pfad & "###" & teil & ".xlsx")
Do While Dateiname ""
MsgBox Pfad & Dateiname
Dateiname = Dir()
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert allerdings nicht:/

Hajo_Zi · 11. September 2014

ja, da es kein Open gibt.

Appolus · 11. September 2014

Sorry da fehlte eine Zeile im code:

Code:

Sub opener()
Dim temp As Variant
temp = Cells(1, 1)

Dim Dateiname, Pfad, teil
Pfad = "C:\Users\blabla\Desktop\"
teil = temp
Dateiname = Dir(Pfad & "###" & teil & ".xlsx")
Do While Dateiname ""
MsgBox Pfad & Dateiname
Dateiname = Dir()
Loop
Workbooks.Open (Pfad & Dateiname)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht allerdings nicht, ist die zusammensetzung von Pfad und Dateiname im workbooks.open falsch?

Hajo_Zi · 11. September 2014

ja, ich vermute da fehlt "\"

Appolus · 12. September 2014

So, jetzt funktioniert es soweit mal, dass er die richtige Datei öffnet und findet, allerdings hält das Makro an, sobald die erste richtige Datei gefunden wurde und die While Schleife macht nicht weiter:/

Code:

Private Sub opener(temp As Variant)
Dim pfad As String
Dim Dateiname

pfad = "C:\Users\blabla\Desktop\"

If temp = "" Then
MsgBox "Kein Dateiname eingelesen"
Else
Dateiname = Dir((pfad & "*" & temp & ".xlsx"))
If Dateiname "" Then
Workbooks.Open Filename:=pfad & Dateiname
Else
MsgBox ("Gibt es nicht")
End If
End If
End Sub

Sub copy()
Dim i As Integer
i = 2
Dim tempAdm As Variant
tempAdm = Cells(1, 1)
Dim tempAdm2 As Variant

Dim check As Boolean
check = False
While Not IsEmpty(Worksheets("Tabelle1").Cells(i, 1))
tempAdm2 = Cells(i, 1)
check = tempAdm Like tempAdm2
If check = False Then
MsgBox ("neues und copy")
opener tempAdm2
Else
MsgBox ("gleich")
End If
i = i + 1
tempAdm = tempAdm2
Wend

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Daten in andere Datei kopieren

Daten in andere Datei kopieren

Daten in andere Datei kopieren

Daten in andere Datei kopieren

Daten in andere Datei kopieren - Similar Threads - Daten Datei kopieren

Daten aus einer Datei in andere Datei Kopieren u. Einfügen Dynamisch

VBA - Daten aus Datei in neue Datei kopieren

Daten Kopieren aus einer zweiten Datei

Daten mehrerer Excel Dateien in eine Zieldatei kopieren

Öffnen externer dateien und kopieren von daten

Daten aus anderer Excel-Datei kopieren

VBA: Bestimmte Daten von anderer Datei kopieren und Einfügen