Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

konn mir jemand sagen wiso mein code nicht geht!

konn mir jemand sagen wiso mein code nicht geht!
24.09.2003 12:10:53
Adrian

Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "E:\Daten\SBB\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
'Öffnet eine Datei
Workbooks.Open Datei Anwendungs- oder objektdefinierter Fehler
'Kopiert von den Zeilen 6 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("6:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Close False
'Prüft für die nächste Datei
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub


dies ist mein code!! der geht leder nicht!!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: konn mir jemand sagen wiso mein code nicht geht!
24.09.2003 12:15:21
thomas scher
Hallo Adrin ,
workbooks.open Pfad & Datei
Dann müste es klappen !

Gruss
Thomas
AW: konn mir jemand sagen wiso mein code nicht geht!
24.09.2003 12:20:13
Adrian
danke viel mal!!!

jetzt giebt es keinen fehler mehr doch das einfügen geht immer noch nicht!
AW: konn mir jemand sagen wiso mein code nicht geht!
24.09.2003 12:35:23
thomas scher
Hallo Adrian,
bei mir geht es nur du schliesst die Active Arbeitsmappe ohne zu speichern !
Du solltest deine mappe mit dem Macro benennen und diese dann nicht schliessen .
Bei dir ist das ein wenig komplieziert da du die Dateien öffnest ohne Namen nur mit dem *.
Schau mal unter alle mappen schliessen ausser einer.
vielleicht kommst du damit weiter ..

Sub Schliessen()
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then
wkb.Close savechanges:=False
End If
Next wkb
End Sub


gruß
Thomas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige