Clever-Excel-Forum

Normale Version: VBA Select case
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
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

ABCD
1Profiltiefe :2,5mm
2Neupreis :2.500 €
3Ankaufpreis

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Auswahlliste Profiltiefe:

Tabelle1

BC
6Profiltiefe% Abzug
72,5mm45%
83,0mm40%
93,5mm35%
104,0mm30%
114,5mm25%
125,0mm20%

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8




vielleicht könnt ihr mir hier weiter helfen
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.
CD
4Profil:2,5 mm
5Neupreis:2.500,00 €

ZelleFormatWert
D4Standard "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
Hallo

Für VL ermittelst du den Rabatt so:
Code:
=INDEX(Berechnungsgrundlagen!$C$4:$C$18;VERGLEICH(N11;Berechnungsgrundlagen!$B$4:$B$18;0))
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.
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
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.
(01.12.2015, 21:20)derhanfti schrieb: [ -> ]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.
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

ABCD
1Bsp.
2
3RadMerkmalprozentualer Abzug
4VLReifen5mm20
5Felgeleicht beschädigt15
6DOT15/1320
7VRReifen3mm30
8Felgestark beschädigt30
9DOT15/1320
10HLReifen4mm25
11Felgeleicht beschädigt15
12DOT24/1410
13HRReifen4mm25
14Felgeleicht beschädigt15
15DOT24/1410
16
17Mittelwert Reifen25
18Mittelwert Felge18,75
19Mittelwert DOT15
20Summe Gesamtabzug58,75
Formeln der Tabelle
ZelleFormel
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
Hallo

So wie ich das sehe hast du dann doch alle Formeln.
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.
Seiten: 1 2