Prozess abbilden (komplex)

[StrammerMax]

Hallo zusammen,

ich habe hier eine kleine Herausforderung.

Es gibt eine Liste mit Maschinen in unterschiedlichen Produktionsstufen. Der Prozess läuft von "Angelegt" über "In Bearbeitung" zu "Abgeschlossen". 

In einer Übersicht sollen alle Maschinen die sich im Prozess befinden abgebildet werde. 
Wöchentlich werden die Quelldaten für Angelegt, In Bearbeitung, Abgeschlossen aktualisiert. 

Aus der Aktualisierung können folgende Änderungen resultieren:
- neue Maschine kommt hinzu
- Maschine ändert durch weitere Bearbeitung ihren Wert
- Maschine rutscht in den nächsten Prozessschritt

In der Übersichtsliste muss dementsprechend nach jeder Aktualisierung (automatisch) folgendes passieren:
- neue Maschinen müssen in der Tabelle unten angehängt werden 
- Wert aller Maschinen muss überprüft und ggfl. angepasst werden
- Status (Prozessschritt) muss ggfl. angepasst werden. 

Wichtig ist auch, dass Maschinen nicht doppelt in der Gesamtliste stehen. 
Steht eine Maschine gleichzeitig in "Angelegt" und in "In Bearbeitung" so darf sie nur einmal (aus in Bearbeitung) in der Gesamtliste auftauchen.



Ich habe euch mal eine Beispieldatei gebastelt. 
In der Übersicht seht ihr einmal eine bestehende Liste und einmal als Beispiel, wie die Liste nach der Aktualisierung aussehen muss.  
In den Quelldaten (Angelegt, In Bearbeitung, Abgeschlossen) sind die Werte, die bei der Aktualisierung hinzu kommen farblich markiert. 


  Beispiel.xlsx (Größe: 18 KB / Downloads: 12)


Ich würde mich freuen, wenn mir jemand einen Tipp geben könnte wie man das am sinnvollsten / professionellsten umsetzten könnte. 
Schwierigkeiten habe ich aktuell v.a. damit, dass keine Datensätze doppelt erscheinen und damit, dass man neue Werte in der Gesamttabelle automatisch unten anfügt. 

Als Primärschlüssel dient die Seriennummer, die eindeutig ist. 
Die Gesamtliste soll als Tabelle formatiert sein, da man filtern können muss.

[Klaus-Dieter]

Hallo Max,

seit ich deine Excelprojekte kenne, fällt mir immer wieder auf, dass du einen gewissen Hang dazu hast, einfache Dinge kompliziert darzustellen. 

In deinem aktuellen Projekt würde diese Liste:
Zusammenfassung

	G	H	I	J
2	Bezeichnung	Seriennummer	Wert	Status
3	Maschine 1	B111	500	In Bearbeitung
4	Maschine 5	A682	0	Angelegt
5	Maschine 18	C472	320	In Bearbeitung
6	Maschine 3	U984	0	Angelegt
7	Maschine 6	B354	275	Abgeschlossen
8	Maschine 2	A725	0	Angelegt
9	Maschine 10	U145	0	Angelegt
10	Maschine 7	U356	0	Angelegt
11	Maschine 8	C102	0	Angelegt
12	Maschine 20	B547	500	In Bearbeitung
13	Maschine 26	C549	750	In Bearbeitung
14	Maschine 23	U444	650	In Bearbeitung
15	Maschine 19	A346	850	Abgeschlossen
16	Maschine 33	B102	220	In Bearbeitung
17	Maschine 40	A542	500	Abgeschlossen
18	Maschine 41	U223	555	Abgeschlossen
19	Maschine 52	B621	211	Abgeschlossen
20	Maschine 43	B496	236	Abgeschlossen
21	Maschine 47	C111	854	Abgeschlossen
22	Maschine 12	A212	521	Angelegt
23	Maschine 15	A314	479	Angelegt
24	Maschine 17	C998	362	Angelegt
25	Maschine 98	B732	597	In Bearbeitung
26	Maschine 88	U333	318	Abgeschlossen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

doch völlig reichen.  Über den Autofilter kannst du die gewünschten Teildarstellungen problemlos vornehmen. In der Spalte Status kannst du per Datenüberprüfung festlegen, was da eingetragen werden darf. Der langen Rede kurzer Sinn: drei deiner vier Tabellenblätter sind überflüssig.

[snb]

PHP-Code:

Sub M_snb()
   With CreateObject("scripting.dictionary")
      For Each it In Sheets
        If Left(it.Name, 2) <> "Zu" Then
           sn = it.Cells(1).CurrentRegion.Resize(, 4)
           For j = 2 To UBound(sn)
              sn(j, 4) = it.Name
              .Item(sn(j, 2)) = Application.Index(sn, j)
           Next
        End If
     Next
     Sheet1.Cells(30, 1).Resize(.Count, 4) = Application.Index(.items, 0, 0)
   End With
End Sub 


[StrammerMax]

@Klaus Dieter - und ich habe immer wieder festgestellt, dass du die Vorgaben nicht verstehst / verstehen willst. 

Meine Beispieldateien sind natürlich extrem vereinfacht um die Problemstellung aufzuzeigen. 
Die 3 Quellblätter kommen aus IT-Systemen und werden wöchentlich aktualisiert. In jeder der Quellen stehen mehrere hundert Positionen, die sich bei jeder Aktualisierung ändern können. 

Klar kann ich bei den 10 Beispielmaschinen auch manuell die Änderungen vornehmen - aber ich würde mir kaum die Mühe machen das zu automatisieren wenn es so einfach wäre. 

Die Quelldaten müssen einfach ausgetauscht/aktualisiert werden können - ich kann sie also nicht von Anfang an alle in eine Tabelle packen.

---

PHP-Code:

Sub M_snb()
   With CreateObject("scripting.dictionary")
      For Each it In Sheets
        If Left(it.Name, 2) <> "Zu" Then
           sn = it.Cells(1).CurrentRegion.Resize(, 4)
           For j = 2 To UBound(sn)
              sn(j, 4) = it.Name
              .Item(sn(j, 2)) = Application.Index(sn, j)
           Next
        End If
     Next
     Sheet1.Cells(30, 1).Resize(.Count, 4) = Application.Index(.items, 0, 0)
   End With
End Sub 


Hallo snb - vielen Dank für deine Hilfe. 
Da ich bekanntlich (noch) kein VBA Profi bin will der Code leider nicht so wie ich :D 
Wenn ich ihn in die Arbeitsmappe kopiere und laufen lasse bekomme ich die Meldung "Objekt erforderlich". 

Wo/wie muss ich das Objekt definieren?

[StrammerMax]

Der Fehler tritt übrigens an folgender Stelle auf:

Code:

Sheet1.Cells(30, 1).Resize(.Count, 4) = Application.Index(.items, 0, 0)

Die machen etwas ähnliches:
http://www.office-loesung.de/ftopic223175_0_0_asc.php

---

Habe den Code aus dem Link jetzt doch so weit umgebastelt, dass er zumindest so weit funktioniert, dass alle Maschinen in die Liste aufgenommen werden und die Seriennummer passend angezeigt wird. 

Die Werte, der Status und die Überschrift der Tabelle sind dadurch aber komplett zerschossen. 


  Beispiel.xlsm (Größe: 27,48 KB / Downloads: 1)

Könnte bitte mal Jemand einen Blick darauf werfen?

[snb]

ändere 'Sheet1' in 'Tabelle1'

[StrammerMax]

Super, vielen Dank @snb

Auf den ersten Blick scheint es genau so zu funktionieren wie ich möchte. 

Gibt es auch noch die Möglichkkeit die Ausgabe automatisch als Tabelle darzustellen? 
Aktuell ist es nur eine Liste.

---

Eine Kleinigkeit ist mir noch aufgefallen:
Wenn man Maschinen in den Quelldaten löscht und den Code dann nochmal ausführt kommt der Algorithmus teilweise durcheinander und zeigt Datensätze doppelt oder löscht sie nicht. 

Gibt es dafür noch eine Lösung?

EDIT: Habe das Problem gefunden. Der Algorithmus arbeitet richtig - man muss die erzeugten Daten nur vorher löschen, damit er sie (korrekt) neu erzeugen kann.

[snb]

Gibt es auch noch die Möglichkkeit die Ausgabe automatisch als Tabelle darzustellen?

Verwende den Makrorecorder, dann siehst du wie das geht in VBA.

[StrammerMax]

In meiner schönen Traumwelt funktioniert jetzt alles. 

Beim Übertrag auf die Realität komme ich allerdings nicht weiter. 

Die Quelldaten kommen alle aus unterschiedlichen Quellen und sehen dementsprechend unterschiedlich aus. 
Mal stehen noch andere Werte zwischen den gesuchten, mal werden Autofilter genutzt, mal ist es schon als Tabelle formatiert usw. 

Wie bekomme ich die Quelldaten automatisiert so zusammen, dass ich den Algorithmus anwenden kann?
Ich habe mir schon überlegt erstmal jeweils eine Pivottabelle pro Quelle anzuilegen und mir nur die gesuchten Werte anzeigen zu lassen. 
Aber auf die Pivottabelle kann ich mit dem Algoritmus wieder nicht richtig zugreifen. 

Anbei mal ein kleines Beispiel:

  Beispiel.xlsm (Größe: 26,08 KB / Downloads: 4)

[snb]

In die hochgeladene Datei.

PHP-Code:

Sub M_snb()
   With CreateObject("scripting.dictionary")
      For Each it In Sheets
        If Left(it.Name, 2) <> "Zu" Then
           it.Cells.Replace "#serialnumber", "seriennummer"
           sn = it.UsedRange
           For jj = 1 To UBound(sn, 2)
                If LCase(sn(1, jj)) = "bezeichnung" Then y1 = jj
                If LCase(sn(1, jj)) = "seriennummer" Then y2 = jj
                If LCase(sn(1, jj)) = "wert" Then y3 = jj
           Next
           For j = 2 To UBound(sn)
              .Item(sn(j, y2)) = Array(sn(j, y1), sn(j, y2), sn(j, y3), it.Name)
           Next
        End If
     Next
     Tabelle1.Cells(30, 1).Resize(.Count, 4) = Application.Index(.items, 0, 0)
   End With
End Sub 


Ich fürchte jedoch dass die Arbeitsblätter mehr enthalten als du gezeigt hast.
Repräsentativ sollen die hochgeladen Dateien sein.