Kopieren von Zellinhalten in unbekanntes Workbook

Nicole · 2005-03-22T10:53:52+00:00

Hallo! Hab ein riesen Problem. Habe ein Sheet in dem ich per Makro einige Berechnungen ablaufen lasse. Das klappt auch alles wunderbar. Am Ende der Berechnung erhalte ich in den Zellen (E6:N6) Zwischenergebnisse, die ich in eine sich automatisch öffnende Neu Arbeitsmappe kopieren möchte. Ist das überhaupt möglich? Für eine schnelle Hilfe bin ich dankbar!!! Mfg Nicole

Hallo Nicole,
ich hab das jetzt mal ausgearbeitet. Wichtig: Deine Dateien die die Maschine auswirft sollten Alphabetisch, oder ähnlich benannt sein. Damit Sie in der richtigen Reihenfolge geöffnet werden. In deiner vorbereiteten Exceldatei legst du denn nachfolgenden Code in ein neues Modul. Ach ja Diese Datei würde ich nicht in den gleichen Ordner anlegen wie die von der Maschine ausgeworfenen. Wenn das nicht anders geht gib mir noch einmal bescheid dann ändere ich das:


Sub OpenWkb()
Dim sFile As String, sPath As String
Dim i As Integer
On Error GoTo Err_OpenWkb
i = 7
Application.ScreenUpdating = False
sPath = "C:\PfadDeinesOrdnersInDemDieNeuenDateienLiegen\" ' hier gibst Du den Pfad deines Ordners ein
Debug.Print sPath
sFile = Dir(sPath & "*.xls")
Debug.Print sFile
Err1_OpenWkb:
Do While sFile <> ""
Application.EnableEvents = False
Workbooks.Open sPath & sFile, UpdateLinks:=0, ReadOnly:=False
Sheets("NameDeinesTabellenBlattesMitWertKopieren").Select
Cells(6, E).Copy
Workbooks("MappeMitMakro.xls").Activate
Sheets("NameDeinesTabellenBlattesMitWertEinfügen").Select
Cells(i, 7).Insert
i = i + 1
Windows(sFile).Activate
ActiveWorkbook.Close SaveChanges:=False
Err2_OpenWkb:
sFile = Dir()
Debug.Print sFile
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
Err_OpenWkb:
MsgBox Err.Description & " bei " & sFile
Resume Err2_OpenWkb
End Sub

Gruß
Markus

Hallo!
Cool! Danke! Das mit dem öffnen funktioniert. Aber das die Werte kopiert werden leider immer noch nicht. Bzw. glaub ich das ich mich doch immer noch mißverständlich ausgedrückt habe.
Hab dir jetzt mal meine Exceldateien in den Anhang gepackt. Vielleicht ist es dann einfacher.
Wenn Du die Datei "1743_2043.exp.xls" öffnest und das Makro "Auswertung" laufen lässt, dann siehst Du jede Menge Berechnungen. Die Zellen B1, B2, B3, B4, B5, F6, N6, J6, J7, H6, H7, M6 sollen dann in das vorgefertigte Excelsheet (Rb-Sr17_Vorlage.xls) kopiert werden.
Danke für die Hilfe!!!
Nicole

Die Datei https://www.herber.de/bbs/user/20001.xls wurde aus Datenschutzgründen gelöscht

Die Datei https://www.herber.de/bbs/user/20002.xls wurde aus Datenschutzgründen gelöscht

Kopieren von Zellinhalten in unbekanntes Workbook

Forumthread: Kopieren von Zellinhalten in unbekanntes Workbook

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Kopieren von Zellinhalten in unbekanntes Workbook

Forumthread: Kopieren von Zellinhalten in unbekanntes Workbook

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread