Felder aus Tabelle auslesen und bearbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TabelleUmwandeln() Dim Zeile As Long Dim ZeileMax As Long Dim Z As Long Dim n As Long Worksheets("Tabelle1").Activate ZeileMax = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Z = 1 For Zeile = 2 To ZeileMax 'Prüfung L600 If Worksheets("Tabelle1").Cells(Zeile, 1).Value = "L600" And Worksheets("Tabelle1").Cells(Zeile, _ 2).Value 900 Then Anz = Worksheets("Tabelle1").Cells(Zeile, 2) / 900 Do While n 700 Then Anz = Worksheets("Tabelle1").Cells(Zeile, 2) / 700 Do While n 1500 Then Anz = Worksheets("Tabelle1").Cells(Zeile, 2) / 1500 Do While n

Hallo, Gunnar (& all);
man kann auch in einer gleichgroßen HilfsTabelle einen positionsgerechten 3Tensor bilden, also quasi eine 3dimensionale Tabelle, indem man die AufteilungsErgebnisse als MatrixKonstanten (Vektor) in Textform bildet und auswertbar einträgt. Das ist ein Hilfsmittel, das ich in anderem Zusammenhang (zB DatenObfuskation und Kronecker-Produkt-Bildung) schon des Öfteren benutzt und dann dafür auch eine UDF geschrieben hatte, die diesen Quasi-3-Tensor auswertet und die Elemente der primären Matrix dann reihenfolgegerecht (wie beim Kronecker-Produkt) anordnet. Das fktioniert auch mit unterschiedlich langen Element-Vektoren und das Ergebnis sähe hier dann so aus:

Original

3-Tensor-Hilfszellen (aus MxElement-Vektoren)

Ergebnis

Bauteil

Menge

Start

Ende

VxBauteil

VxMenge

VxStart

VxEnde

Bauteil

Menge

Start

Ende

5000

1.7.18 0:00

6.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

900

01.07.18 00:00

02.07.18 00:00

900

6.7.18 13:20

7.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

900

02.07.18 00:00

03.07.18 00:00

700

7.7.18 13:20

8.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

900

03.07.18 00:00

04.07.18 00:00

2100

8.7.18 13:20

11.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

900

04.07.18 00:00

05.07.18 00:00

1500

11.7.18 13:20

13.7.18 1:20

VxBauteil

VxMenge

VxStart

VxEnde

900

05.07.18 00:00

06.07.18 00:00

4500

13.7.18 1:20

17.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

500

06.07.18 00:00

06.07.18 13:20

3000

17.7.18 13:20

20.7.18 13:20

VxBauteil

VxMenge

VxStart

VxEnde

900

06.07.18 13:20

07.07.18 13:20

Das Hilfszellenformat dient nur der Spaltenbreiteminimierung!

700

07.07.18 13:20

08.07.18 13:20

Hilfszellen:

Format (F3:F9): ;;;"VxBauteil"

Zellformeln:

700

08.07.18 13:20

09.07.18 13:20

Format (G3:G9): ;;;"VxMenge"

F3:F9:=VxBauteil

H3:H9:=VxStart

700

09.07.18 13:20

10.07.18 13:20

Format (H3:H9): ;;;"VxStart"

G3:G9:=VxMenge

I3:I9:=VxEnde

700

10.07.18 13:20

11.07.18 13:20

Hilfsdaten

Format (I3:I9): ;;;"VxEnde"

K3:N19: {=TensEx(F3:I9)}

1 500

11.07.18 13:20

13.07.18 01:20

Bauteil

MaxMenge

MaxProdZeit

Benannte Formeln:

1 500

13.07.18 01:20

14.07.18 13:20

900

24:00:00

MaxDauer:=SVERWEIS($A3;$A$16:$C$18;3;0)

1 500

14.07.18 13:20

16.07.18 01:20

700

24:00:00

MaxDläufe:=AUFRUNDEN($B3/MaxMenge;0)

1 500

16.07.18 01:20

17.07.18 13:20

1500

36:00:00

MaxMenge:=SVERWEIS($A3;$A$16:$C$18;2)

1 500

17.07.18 13:20

19.07.18 01:20

VollDläufe:=ABRUNDEN($B3/MaxMenge;0)

1 500

19.07.18 01:20

20.07.18 13:20

VxBauteil:=WECHSELN(WIEDERHOLEN(";"&$A3;MaxDläufe);";";"{";1)&"}"

VxMenge:=WECHSELN(WIEDERHOLEN(";"&MaxMenge;VollDläufe)&WENN(VollDläufe*MaxMenge<$B3;";"&$B3-VollDläufe*MaxMenge;"");";";"{";1)&"}"

VxStart:=VJoin(RUNDEN($C3+(ZEILE(INDIREKT("1:"&MaxDläufe))-1)*MaxDauer;5);"";2)

VxEnde:=VJoin(RUNDEN(WENN(ZEILE(INDIREKT("1:"&MaxDläufe))<MaxDläufe;$C3+ZEILE(INDIREKT("1:"&VollDläufe))*MaxDauer;$D3);5);"";2)

Dabei folgt die Transformation natürlich exakt der Vorgabe des Originals. Will man, wie von dir in der BspDatei gezeigt, eine zusammenfassende Darstellung, muss das im Vorfeld dieser Operation erledigt wdn.
Verwendete UDFs:
TensEx (Vs1.0-1): https://www.herber.de/forum/archiv/1608to1612/t1611005.htm#1613173 (u. #1613876)*
VJoin (Vs1.4): https://www.herber.de/bbs/user/99024.xlsm (UDF in BspDatei enthalten)
* Vs1.2 erforderlich! Durch Austausch einer Konstanten am PgmAnfang aktualisierbar.
Dazu später mehr…
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Zur Expansion/Extension der erzeugten Text-MatrixKonstanten reicht die Version 1.0 von TensEx im Prinzip aus, wenn man die OriginalDaten zuvor verdichtet und sich dann keine skalaren Tensoren (MatrixKonstanten mit nur einem Element) mehr ergeben (dazu unten). Im gezeigten Bsp ist das aber der Fall, weshalb hier der der Constanten txVgl zugewiesene Text durch "{*?*}" ersetzt wdn müsste. Das im gleichen Thread gezeigte Upgrade auf Version 1.1 wäre nicht unbedingt erforderlich, weil dadurch auch eine hier nicht sinnvolle andere Darstellungsweise erreicht wdn kann, die aber gleiche Vektor-Längen erforderte. (Dazu findet man im Archiv außer dem verlinkten Thread noch etliche Vorgänger, deren meiste im Betreff ebenfalls das Stichwort 3/4-Tensor enthalten, so dass man sie über die Betreff-RECHERCHE - 3.RechercheMöglichkeit, die 1. fktioniert schon seit Monaten nicht mehr - suchen kann.)
Falls unbedingt das in der BspDatei gezeigte Ergebnis erzielt wdn soll, müssen die OriginalDaten zuerst wie folgt verdichtet wdn:
A27[:A29]:=A16
B27[:B29]:=SUMMEWENN(A$3:A$9;A16;B$3:B$9)
C27[:C29]:=SVERWEIS(A16;A$3:D$9;3;0)
D27[:D29]:=VERWEIS(A16;A$3:A$9;D$3:D$9)
Anschließend müssen die im 1.Beitrag genannten Hilfstabellen-Fmln so geändert wdn, dass sie sich auf den Standort der so erzeugten Tabelle beziehen, hier A27:D29, wodurch sich folgendes Ergebnis ergibt (nur zum Vgl, so weder direkt auf Zellbereiche ausdehnbar noch als TensEx-Argument benutzbar!):
{{1;1;1;1;1;1;1}.{900;900;900;900;900;900;500}.{43282;43283;43284;43285;43286;43287;43288}.{43283;43284;43285;43286;43287;43288;43288.55556};{2;2;2;2}.{700;700;700;700}.{43288.55556;43289.55556;43290.55556;43291.55556}.{43289.55556;43290.55556;43291.55556;43292.55556};{3;3;3;3;3;3}.{1500;1500;1500;1500;1500;1500}.{43292.55556;43294.05556;43295.55556;43297.05556;43298.55556;43300.05556}.{43294.05556;43295.55556;43297.05556;43298.55556;43300.05556;43301.55556}}
Falls Spalte A keine Zahlen, sondern Texte enthält, muss die entsprd Hilfsspalten-Fml das berücksichtigen (hier für das unbehandelte Original):
VxBauteil:=WECHSELN(WIEDERHOLEN(""";"""&$A3;MaxDläufe);""";";"{";1)&"""}"
Statt der benannten Fml können natürlich auch nur die entsprd komplettierten ZellFmln in der Hilfstabelle verwendet wdn. Auch kann ihre spezielle Formatierung entfallen, die hier nur diese Spalten der HTML-Tabelle schmal halten sollte (Browser brechen ZellInhalte nicht einfach ab, sondern verbreitern die Spalten oder brechen ihren Inhalt ggf um!).
Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

Felder aus Tabelle auslesen und bearbeiten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Felder aus Tabelle auslesen und bearbeiten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread