Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anpassungsproblem Quellen + Ziel

Anpassungsproblem Quellen + Ziel
02.12.2008 09:51:47
Andreas
Hallo zusammen,
bei meinem Problem geht es darum viele Arbeitsblätter aus mehreren Mappen nach einem bestimmten Muster in vier Tabellen zu kopieren.
Die Quellmappen sind leider tierisch kopliziert aufgebaut (und nicht von mir) und müssen zur Auswertung zumsammenkopiert werden (von mir). Die Beispieldatei enthält zur Veranschaulichung zwei von diesen Quell-Arbeitsblättern und als Beispiel ein Zielblatt. Insgesamt geht es um 11 Quellmappen mit jeweils 29 Arbeitsblättern, von denen ich immer Blatt 2 bis 28 brauche. Die Zieldatei soll 4 Blätter für die Ausgangsorte Nürnberg, Augsburg, Passau, Salzburg enthalten in die die Daten aus den Quellmappen rein sollen.
Zur Kopiergeschichte habe ich schon die Schleifen geschrieben, ich habe nur ein Problem damit die QuellMappen und Zielmappen zu definieren. Die Quellmappen werden alle im gleichen Verzeichnis liegen und einen identischen Stamm "DL_Name" haben.
Wenn mir dazu jemand einen Tipp geben könnte wäre ich sehr dankbar.
--------------------------------------------------------------------------------------------------------------------------

Sub TabelleNürnberg()
'Makro am 27.11.2008 von b9119 aufgezeichnet
Dim QuellZeile As Integer, ZielZeile As Integer
Dim letzteZeile As Integer
Dim QuellTabelle As Workbook, i As Integer
Dim ZielTabelle As Workbook, j As Integer
Dim ClusterZähler As Integer
Dim Verzeichnis As String
Set ZielTabelle = ActiveWorkbook.Worksheets(1)          'Makro muss aus Quellmappe aufgerufen  _
werden!!
Verzeichnis = "C:\Documents and Settings\b9119\Desktop\Auswertungstool\"
QuellTabelle = Workbooks.Open("C:\Documents and Settings\b9119\Desktop\Auswertungstool" & "\ _
" & ".xls")
'27 Arbeitsblätter (Blätter 2-28) pro Mappe auslesen
ZielZeile = Worksheets("Ankara").Range("a65536").End(xlUp).Row + 1
Debug.Print ZielZeile
Do Until QuellTabelle = ActiveWorkbook.Worksheets(28)
QuellZeile = 8
letzteZeile = ActiveSheet.Cells(250, 1).End(xlUp).Row
Debug.Print letzteZeile
Do Until QuellZeile = letzteZeile
Debug.Print ZielZeile
ClusterZähler = 6
Do Until ClusterZähler > 15
Windows("Gesamt_Test.xls").Activate
Cells(ZielZeile, 1).Select
QuellTabelle.Activate                       'kopiert Spalten A bis E (erste Spalten  _
für jede Zeile nötig)
Range(Cells(QuellZeile, 1), Cells(QuellZeile, 5)).Select
Selection.Copy
Windows("Gesamt_Test.xls").Activate
ActiveSheet.Paste
Cells(ZielZeile, ClusterZähler).Select      'fügt die Preise, Zeiten, KM-Stände ü _
ber die Cluster ein
QuellTabelle.Activate
Range(Cells(QuellZeile, ClusterZähler), Cells(QuellZeile, ClusterZähler + 2)). _
Select
Application.CutCopyMode = False
Selection.Copy
Windows("Gesamt_Test.xls").Activate
ActiveSheet.Paste
Cells(ZielZeile, 9).Select              'das ist die Zelle, für das Längencluster
QuellTabelle.Activate
Range(Cells(6, ClusterZähler), Cells(6, ClusterZähler + 2)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Gesamt_Test.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
Cells(ZielZeile, 10).Select
QuellTabelle.Activate                   'kopiert den Dateinamen(=Name Dienstleister  _
aus "A1") in die 10. Spalte
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Gesamt_Test.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
ClusterZähler = ClusterZähler + 3
ZielZeile = ZielZeile + 1
Loop
QuellZeile = QuellZeile + 1
Debug.Print QuellZeile
Loop
QuellTabelle = ActiveWorkbook.Worksheets(i + 1)
Loop
End Sub


--------------------------------------------------------------------------------------------------------------------------------
Vielen Grüße!
Andreas

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anpassungsproblem Quellen + Ziel
02.12.2008 10:02:08
Andreas
Und es muss heißen:
ZielZeile = Worksheets("Nürnberg").Range("a65536").End(xlUp).Row + 1
Sorry...
Ist dir klar,...
02.12.2008 15:07:00
Luc:-?
...Andreas,
dass du - forumstechnisch gesehen - deine Frage selbst beantwortet hast...? ;-)
Jetzt ist sie wieder (technisch) offen!
Gruß Luc :-?
AW: Ist dir klar,...
02.12.2008 15:23:00
Andreas
War es mir nicht. Danke
zu
02.12.2008 18:10:00
zu
zu
Was soll der Quatsch, du zu-Knaller? OFFEN
03.12.2008 00:03:58
Luc:-?
Immer diese Möchtegern-Moderatoren!
Luc :-{
Luc blb cul
03.12.2008 15:24:00
zu
zu
AW: Luc blb cul
03.12.2008 15:29:00
Hajo_Zi
Hallo Luc,
Andreas Palt hatte geschrieben

War es mir nicht. Danke


ich hätte daraus auch gesehen das die Frage beantwortet ist. Und Nichk (Zu) hat wohl nur den Status offen für den Beitrag aufgehoben.
Settze die Moderatoren in diesem Forum nicht so hoch an. Die können fast gar nichts mehr im Forum.

Anzeige
OFFEN: Vielleicht möchte sich ja doch noch...
04.12.2008 16:37:19
Luc:-?
...jemand des eigentlichen Problems von Andreas annehmen?!
Gruß Luc :-?
AW: OFFEN: Vielleicht möchte sich ja doch noch...
06.12.2008 00:02:20
Original
Hi Luc, altes Ledergesicht,
mach doch mal, das packst du doch, auch ohne Vocale.
mfg Kurt
Leider etwas zu viel Arbeit - ka Zyt! owT
06.12.2008 04:59:12
Luc:-?
:-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige