WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Frage an die Excel-Spezialisten unter euch! (http://www.wcm.at/forum/showthread.php?t=139099)

wolsei 11.07.2004 16:47

Frage an die Excel-Spezialisten unter euch!
 
Hi !

Ich möchte Excel dazu bringen, daß es mir folgendes macht:

Ich habe als Ausgangspunkt einen Wert, nennen wir ihn X.
Weiters möchte ich nun mehrere Zahlenbereiche festlegen. Diese nenne ich jetzt einfach mal A, B,C u.s.w.

Wie bringe ich Excel nun dazu mir folgendes zu tun:

Excel soll selbständig herausfinden, in welchen, der angegebenen Zahlenbereiche, der Wert X fällt und diesen dann durch einen anderen Wert ersetzen.

Zum leichteren Verständnis, hier das praktische Beispiel dazu:

Ausgangspunkt = 11 (Wert X)

Bereich 1 = Wert zwischen 0 und 5
Bereich 2 = Wert zwischen 5,0001 und 10
Bereich 3 = Wert zwischen 10,0001 und 15
u.s.w.

Wie gesagt, Excel soll nun herausfinden in welchen Bereich der Wert X hineinfällt und dann durch Folgende Werte ersetzen:

Für Bereich 1: 25
Für Bereich 2: 20
Für Bereich 3: 15
u.s.w.


Nun meine Fragen dazu: Ist das mit Excel möglich und wenn ja, wie stelle ich das an?

MalteB 11.07.2004 17:31

Möglicvh bestimmt wie genau weiss ich auch nicht!

Sorry aber ich hatte den Drang zu schreiben!

hoshibrother 11.07.2004 17:56

probiers mit wenn funktion, aber mit sverweis wäre es wahrscheinlich angenehmer.

Etienne 11.07.2004 18:09

So gehts (anlage)
Habe halbe stunde gebraucht und jetzt bin ich ur hin :)... :lol:
lg Etienne
:)

wolsei 11.07.2004 18:19

Zitat:

Original geschrieben von Etienne
So gehts (anlage)
Habe halbe stunde gebraucht und jetzt bin ich ur hin :)... :lol:
lg Etienne
:)


Cool, genau sowas wollte ich !

Sollten wir uns irgendwann mal persönlich kennen lernen (z.B. auf einem Forumstreffen) dann bin ich Dir ein :bier: schuldig

wbendl 11.07.2004 18:36

Hi!

Eine Lösung mit VBA:

Function NewX(ByVal intX As Integer) As Integer

Select Case intX
Case 0 To 5
NewX = 25
Case 5.0001 To 10
NewX = 20
Case 10.0001 To 15
NewX = 15
Case Else
MsgBox "Bereich nicht definiert"
End Select

End Function

mfg

WB

maxb 11.07.2004 20:36

Zitat:

Original geschrieben von Etienne
So gehts (anlage)
Habe halbe stunde gebraucht und jetzt bin ich ur hin :)... :lol:
lg Etienne
:)

ich hab's mal etwas eleganter gemacht ;)

Etienne 11.07.2004 21:27

@wolsei: freue mich schon drauf...
@maxb: ist sauberer... :)
lg Etienne

Etienne 11.07.2004 21:28

@wbendl: kann leider kein VBA, lerne es aber nächstes Jahr in der Schule :)
lg Etienne

wbendl 11.07.2004 21:47

Die Funktion wird genau wie eine Exceleigene verwendet.

In die gewünschte Zelle schreibt man als Formel:
=NewX(A1) wobei A1 einen Zellbezug darstellt.

Mit eigenen Funktionen kann man auch komplexe Aufgaben lösen, ohne eine ganze Tabelle mit Formeln zu füllen.

mfg

WB


Alle Zeitangaben in WEZ +2. Es ist jetzt 03:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag