Preisklassen- wie Werte in Klassen einordnen m.VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

…schon höre, Holger!
Oft eine Bande fauler, überbezahlter, wenig kreativer (…um mit der US-Diplomatie zu sprechen! ;-) ) Blender (von soziologischen Studien belegt!), die, wenn sie mal 'ne Idee haben, die auch unbedingt durchdrücken müssen, auch, wenn sie idiotisch ist…
Gerade ein Pgm, wenn es nicht ausgesprochen intelligent geschrieben ist, passt sich doch viel schwerer an Änderungen der Blattstruktur an als Fmln → nämlich nicht von allein; Fmln schon, denn das ist xl-implizit! Da ist es doch viel einfacher, eine Auslieferungsroutine zu schreiben, die alle Dateien passieren müssen, die ausgeliefert wdn sollen. Die sorgt dann dafür, dass die Tabellen unter speziellen Mappennamen als Werte gespeichert wdn. Ein AddIn in Outlook oder wo auch immer sorgt dann dafür, dass nur Dateien mit diesen Namen (kann auch ein spezieller Namensteil sein!) die Firma auf elektronischem Weg verlassen können.
Außerdem gibt's auch noch Kryptisierungsmöglichkeiten, bei denen sogar die Fml-Löschung mal vergessen wdn könnte, dann allerdings mit dem Effekt #NAME? beim Kunden. Dazu muss man nur Fktt (mit kryptischen Namen) schreiben, die die Standardfktt ersetzen; kann auch ganze Fmln zu Fktt machen. Auch solche Fktt passen sich Strukturverändd an. So etwas müsste in der Firma nur standardisiert wdn, damit alle MA es nutzen können.
Was sind denn das für hochgeheime Berechnungen, die der Kunde nicht kennen soll? Klingt nicht sonderlich vertrauenswürdig! Bei euch wäre ich nicht gern Kunde… :->
Gruß Luc :-?
PS: Da kann man mal wieder sehen, dass das eigentl Problem oft ganz woanders liegt! Hier ganz oben — im Management…

Sub ttt() Dim arrPG(1 To 4, 1 To 2), dblPreis As Double dblPreis = 25 arrPG(1, 1) = 0 arrPG(1, 2) = "0-19" arrPG(2, 1) = 20 arrPG(2, 2) = "20-49" arrPG(3, 1) = 50 arrPG(3, 2) = "50-100" arrPG(4, 1) = 101 arrPG(4, 2) = ">100" MsgBox Application.VLookup(dblPreis, arrPG, 2, 1) End Sub

Sub PGPerArray() Dim arPG(2), dblWert As Double 'Preise : arPG(0) = Array(0, 20, 50, 100) 'Preisgruppen : arPG(1) = Array("PG 0 bis =100") dblWert = 20 MsgBox arPG(1)(Application.Match(dblWert, arPG(0), 1) - 1) End Sub

Hallo Holger,
das Prinzip ist ganz einfach :
Das ARRAY arPG(0) beinhaltet die Werte 0,20,50,100 - Das ist die Preisstaffelung
Das ARRAY arPG(1) beinhaltet die Werte "PG 0 bis <20" etc. - Das sind die Preisgruppentexte
dblWert ist natürlich der gesuchte Preis
Mit Application.Match(dblWert,arPG(0),1) wird gesucht , an welcher Stelle (INDEX) der Wert von dblWert im Array arPG(0) enthalten ist und falls nicht EXAKT gefunden, der nächstkleinere Wert angenommen (daher die ,1 am Ende). Das entspricht exakt der VERGLEICH()-Funktion in Excel-Tabellenblatt (siehe Onlinehilfe).
Wird der Wert von dblWert (oder der nächstkleinere Wert) z.B. an der 2.Stelle gefunden, soll aus dem ARRAY arPG(1) der 2.Wert angezeigt werden (also die passende PG).
Da die Werte eines ARRAYs standardmässig mit Index 0 beginnen ist der "2.Wert" des ARRAYs arPG(1) der Index 1 (also : 2-1, daher am Ende die -1) .
Es ist nicht einfach, ARRAYs auf Anhieb zu verstehen, aber noch schwieriger ist es, die funktionsweise von ARRAYs zu erklären.
Ich hoffe, Du hast es dennoch ansatzweise verstanden.
Mehr zum Thema : siehe hier : http://www.online-excel.de/excel/singsel_vba.php?f=152
Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

Preisklassen- wie Werte in Klassen einordnen m.VBA

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Preisklassen- wie Werte in Klassen einordnen m.VBA

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread