VBA Select case

[derhanfti]

Hallo,

ich möchte für eine Kalkulation eines Radsatzes, prozentual Abschläge vom Neupreis berechnen. Die Auswahl der Profiltiefe geschieht mittels Dropdown-Liste. Da es deutlich mehr Daten als hier dargestellt handelt, sollte meines erachtens nach, das über VBA select case geschehen. vielleicht könnt ihr mir hier helfen.

Tabelle1

	A	B	C	D
1		Profiltiefe :		2,5mm
2	Neupreis :			2.500 €
3	Ankaufpreis

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Auswahlliste Profiltiefe:

Tabelle1

	B	C
6	Profiltiefe	% Abzug
7	2,5mm	45%
8	3,0mm	40%
9	3,5mm	35%
10	4,0mm	30%
11	4,5mm	25%
12	5,0mm	20%

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8




vielleicht könnt ihr mir hier weiter helfen

[RPP63]

Hi!
Wenn ich mir Deine Zelle D1 so anschaue, steht da wohl der TEXT 2,5mm drin.
Es wäre einer Auswertung zuträglich, wenn dort die ZAHL 2,5 formatiert als Standard "mm" stehen würde.

	C	D
4	Profil:	2,5 mm
5	Neupreis:	2.500,00 €

Zelle	Format	Wert
D4	Standard "mm"	2,5
D5	_-* #.##0,00 €_-;-* #.##0,00 €_-;_-* "-"?? €_-;_-@_-	2500

Ansonsten viel zu wenig Infos!
Wo ist die Staffeltabelle?
Lade mal die Datei hoch.

Gruß Ralf

[shift-del]

Hallo

Für VL ermittelst du den Rabatt so:

Code:

=INDEX(Berechnungsgrundlagen!$C$4:$C$18;VERGLEICH(N11;Berechnungsgrundlagen!$B$4:$B$18;0))

[derhanfti]

Da hier zusätzlich die Profiliefe der anderen Räder, der beschädigungsgrad der Felgen und das Alter der Räder mit einfließen war mein Gedanke das über VBA zu lösen.

[RPP63]

Mir leuchtet das Bewertungssystem nicht ein.
Eine neuwertige Felge mit einem Reifen mit 3,5mm Profil ist nichts mehr wert??

Sei es drum:
Du musst die Abzüge ja irgendwie summieren.
Ob jetzt per VBA oder per (ausgeblendeter) Hilfsspalte, ist ja erst mal egal.
Ich würde aber auch die Index-Variante bevorzugen.
Warum sollte man die Auflistung in der Tabelle UND im Code machen?
Zunächst mal muss mein erster Satz geklärt sein.

Gruß Ralf

[derhanfti]

gut, die angegebenen Zahlen passen noch nicht. Da muss ich dir beipflichten das die Zahlen keinen sinn machen.

Darum Frag ich euch ja... wenn sich herausstellt das eine andere Variante besser ist, lass ich mich gern überzeugen.

[shift-del]

Da hier zusätzlich die Profiliefe der anderen Räder, der beschädigungsgrad der Felgen und das Alter der Räder mit einfließen war mein Gedanke das über VBA zu lösen.

Ich habe keine Ahnung wie die verschiedenen Rabatte in die Berechnung einfließen. Deshalb habe ich dir eine exemplarische Formel gegeben.
Wie man den Rabatt für VR, HL und HR ermittelt sollte dann kann Problem sein.

[derhanfti]

Ja, das ist noch das PRoblem vor den ich stehe. Es soll kein Rabatt im Klassischen sinne sein. Sondern eher eine Abzugsliste, hier sollen vom Neupreis je nach Bewertungspunkt prozentual Werte abgezogen werden.

Tabelle1

	A	B	C	D
1	Bsp.
2
3	Rad		Merkmal	prozentualer Abzug
4	VL	Reifen	5mm	20
5		Felge	leicht beschädigt	15
6		DOT	15/13	20
7	VR	Reifen	3mm	30
8		Felge	stark beschädigt	30
9		DOT	15/13	20
10	HL	Reifen	4mm	25
11		Felge	leicht beschädigt	15
12		DOT	24/14	10
13	HR	Reifen	4mm	25
14		Felge	leicht beschädigt	15
15		DOT	24/14	10
16
17	Mittelwert Reifen		25
18	Mittelwert Felge		18,75
19	Mittelwert DOT		15
20	Summe Gesamtabzug		58,75

Formeln der Tabelle

Zelle Formel C17 =MITTELWERT(D4;D7;D10;D13) C18 =MITTELWERT(D5;D8;D11;D14) C19 =MITTELWERT(D6;D9;D12;D15) C20 =SUMME(C17:C19)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[shift-del]

Hallo

So wie ich das sehe hast du dann doch alle Formeln.

[derhanfti]

Grundsätzlich stimme ich dir zu, jedoch hab ich ja nicht die vorgegebene Profiltiefe, sondern die Auswahlmöglichkeit zwischen unterschiedlichen Tiefen und dazu die Passenden Prozente. Dadurch wird die Formel meines erachtens extrem unübersichtlich. Ich hatte gehofft ein einfacheres bzw. übersichtlicheres Verfahren zu finden.