Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > User-Projekte > Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenführen
Komplexe Projekte - gemeinsam erstellt!
In diesem Board befinden sich 69 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 2 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


Christiane ist offline Christiane  Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenführen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
28.7.2014 - 14:43 Uhr
42 Posts
Kenner


Hallo liebe Forum-User,

ich habe eine Ordner namens Check-Listen_PL07 mit verschiedenen Arbeitsmappen (Bezeichnung: z.B: 047011¬_03_01_PL07), diese Arbeitsmappen enthalten eine gleich aussehende Arbeitsblatt namens Serienfreigabe (die restlichen Arbeitsblätter in dieser Arbeitsmappe sollen unberührt bleiben) mit dem gleichen Namen und den gleichen Aufbau.
Nun möchte ich aus den Serienfreigabe Arbeitsblatt einzelne Zellen (schwarz markierte Zellen in Abbildung 2) in einem Arbeitsmappe KPIs_PL07.xlsm bzw. In Checklisten_Status_Check-point Arbeitsblatt (siehe Abbildung 1), wohlwissend, dass diese Arbeitsmappe KPIs_PL07.xlsm außerhalb des Ordner Check-Listen_PL07 liegt, zusammenführen (ab Zeile 4 – Zeilen 1 bis 3 = Überschriften, müssen erhalten bleiben).
Sobald man auf das Checklisten_Status_Check-point Arbeitsblatt wechselt sollen alle Zeilen aktualisiert werden oder per Knopfdruck.


P.S: Genauere Erläuterung bitte siehe Anhang

Bei Fragen stehe ich euch jederzeit zur Verfügung!

Vielen Dank im Voraus

Christiane


Christiane hat folgendes Bild angehängt:
(Anzeige des Bildes aufgrund der Grösse nicht möglich, bitte hier klicken um das Bild zu sehen)

Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
28.7.2014 - 18:09 Uhr
42 Posts
Kenner


Hier sind dir rohe Dateien dazu

Christiane hat folgende Datei angehängt:

12_from_Christiane_kpis_pl07.xlsm | Dateigrösse: 14 KB


Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
28.7.2014 - 18:09 Uhr
42 Posts
Kenner


und eine Beispielhafte Checkliste

Ich freue mich auf eure Unterstützung.

Christiane hat folgende Datei angehängt:

12_from_Christiane_027010_01_02_pl07.xlsm | Dateigrösse: 69 KB


Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
28.7.2014 - 18:41 Uhr
42 Posts
Kenner


und so sieht das ganze aus wenn man es manuell macht und dabei die Aufnahmefunktion nutzt

Sub TabellenZusammenführen()
'
' TabellenZusammenführen Makro
'

'
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C12"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C9"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C10"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R4C9"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R4C3"
Range("F4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R6C9"
Range("G4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C7"
Range("H4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R5C11"
Range("I4").Select
ActiveCell.FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R7C11"
Range("I5").Select
End Sub

RO_SCH ist offline RO_SCH  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.7.2014 - 16:35 Uhr
2406 Posts
Super-Moderator


Hi Christiane,

Code in die Tabelle1(Checklisten_Status_Check-point)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Activate()
'
' TabellenZusammenführen Makro
'
Dim aLetzte As Long
 
aLetzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
 
Range("A" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C12"
Range("B" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C9"
Range("C" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C10"
Range("D" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R4C9"
Range("E" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R4C3"
Range("F" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R6C9"
Range("G" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C7"
Range("H" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R5C11"
Range("I" & aLetzte).FormulaR1C1 = "=[027010_01_02_PL07.xlsm]Serienfreigabe!R7C11"
End Sub

Kommt das ungefähr so hin ?

Gruß Roland

Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
30.7.2014 - 8:47 Uhr
42 Posts
Kenner


Hallo Roland,
erstmal Vielen Vielen Dank für deine unermüdliche Bemühung, du hast dir wirliklich den Namen Super-Moderator verdient.

Zurück zum Thema: Es funktioniert nicht ganz da der Bezug wird vermisst.

Ich denke in dem Code fehlt irgendwas (wie Ordner Name in dem alle Checklisten gespeichert sind. In diesem Fall "Check-Listen_PL07") zwischen beiden Gleichheitszeichen genau da wo " ist.

LG

RO_SCH ist offline RO_SCH  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
30.7.2014 - 16:13 Uhr
2406 Posts
Super-Moderator


Hi Christiane,

mit deiner Vermutung hast du ganz recht,

Die Schreibweise: "=[027010_01_02_PL07.xlsm]Serienfreigabe!R3C12" findet nur Dateien, die im gleichen Ordner wie die geöffnete Datei liegen.

Wenn der Ordner variiert, dann muss der komplette Pfad angegeben werden. Z.B.:
"=C:\DeinPfad\[027010_01_02_PL07.xlsm]Serienfreigabe!R3C12"

Kommst du damit klar ?

Gruß Roland

Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
30.7.2014 - 21:52 Uhr
42 Posts
Kenner


Hallo Roland,

anbei den gesamten Ordner (so wie es ist in der Real.). Ich habe den von dir genannten Hinweis mit dem Pfad probiert, hat aber leider nicht funktioniert.

Schöner Abend noch


VG
Christiane

Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
30.7.2014 - 21:54 Uhr
42 Posts
Kenner


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Worksheet_Activate()
'
' TabellenZusammenführen Makro'Dim aLetzte As Long
 
Dim aLetzte As Long
 
aLetzte = Cells(Rows.Count, 1).End(xlUp).Row + 1
 
Range("A" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R3C12"
Range("B" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R3C9"
Range("C" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R3C10"
Range("D" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R4C9"
Range("E" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R4C3"
Range("F" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R6C9"
Range("G" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R3C7"
Range("H" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R5C11"
Range("I" & aLetzte).FormulaR1C1 = "=C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe!R7C11"
 
End Sub
 
 
 

RO_SCH ist offline RO_SCH  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
31.7.2014 - 16:44 Uhr
2406 Posts
Super-Moderator


Hi Christiane,

du musst, wenn du Sonderzeichen in deinem Pfad hast, immer ein einfaches Hochkomma um den Pfad verwenden. Das will Excel so, hat jetzt mit VBA nichts zu tun.

Range("A" & aLetzte).FormulaR1C1 = "='C:\Users\Tomahawk\Desktop\PL07\Check-Listen_PL07\[027010_01_02_PL07.xlsm]Serienfreigabe'!R3C12"

Also vor dem Laufwerk-Buchstaben und vor dem Ausrufezeichen ...

Geht es so besser ?

Gruß Roland

Christiane ist offline Christiane  Re: Zellen aus verschiedene Arbeitsblätter bzw. Arbeitsmappen in eine andere Arbeitsblatt bzw. Arbeitsmappe zusammenfü Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
1.8.2014 - 8:47 Uhr
42 Posts
Kenner


Hallo Roland,

Ja es hat funktioniert super vielen Dank dafür.

Probleme:

Aber es wird immer wieder bei jeder Aktualisierung die Gleiche Arbeitsmappe mit dem Namen 027010_01_02_PL07.xlsm angesprochen und allen anderen Arbeitsmappen, die im gleichen Ordner Check-Listen_PL07 liegen und ganz andere Bezeichnungen (z.B. 049023_05_06_PL07.xlsm ) haben, unberührt.

Das Zweite Problem liegt bei der Aktualisierung der Daten in die Checklisten_Status_Check-point. Hier wird die Liste einfach fortgeschrieben und nicht wie gewünscht entleert und erst danach mit neuen Informationen aus den oben genannten Arbeitsmappen befüllt.


Vielen Lieben Grüßen

Christiane

Seite 1 2 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek