Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bitte um hilfe !

bitte um hilfe !
05.08.2005 20:32:10
Frank
Hallo zusammen,
Ich bekomme in Zelle B6 eine Summe, nun möchte ich das in Zelle z.B. (B9)eine Zahl ausgegeben wird die in einen bestimmten Bereich ist.
Bereich = Ausgabe in (B9)
10 – 15 = 1
16 – 21 = 2
22 – 28 = 3
29 – 35 = 4
36 – 43 = 5
44 – 54 = 6
55 – 68 = 7
69 – 77 = 8
78 – 88 = 9
89 – 101 = 10
102 – 112 = 11
113 – 128 = 12
129 – 142 = 13
143 – 170 = 14
Z.b. Wenn B6 zwischen 10-15 liegt dann 1 usw.
Habe es schon mal versucht komme aber nicht weiter.
Wer kann mir hier die richtige Formel geben?
Vielen Dank Frank

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bitte um hilfe !
05.08.2005 20:54:07
Matthias
Hallo Frank,
die Zuordnungen sehen aber ziemlich willkürlich aus. Folgen die irgendeiner Formel?
Gruß Matthias
AW: bitte um hilfe !
05.08.2005 20:56:13
Frank
nein die folgen keiner formel, die zuordnung ist so vorgegeben.
AW: bitte um hilfe !
05.08.2005 21:00:25
Matthias
Hallo Frank,
dann am besten über eine benutzerdefinierte Funktion:
Alt-F11, im VB-Editor Menü Einfügen-Modul
ins erscheinende Modul diesen Code kopieren:

Function MeinWert(z As Integer) As Integer
Select Case z
Case 10 To 15
MeinWert = 1
Case 16 To 21
MeinWert = 2
Case 22 To 28
MeinWert = 3
Case 29 To 35
MeinWert = 4
Case 36 To 43
MeinWert = 5
Case 44 To 54
MeinWert = 6
Case 55 To 68
MeinWert = 7
Case 67 To 77
MeinWert = 8
Case 78 To 88
MeinWert = 9
Case 89 To 101
MeinWert = 10
Case 102 To 112
MeinWert = 11
Case 113 To 128
MeinWert = 12
Case 129 To 142
MeinWert = 13
Case 143 To 170
MeinWert = 14
Case Else
MeinWert = 0
End Select
End Function

VB-Editor schließen, in eine Zelle z.B. schreiben:
=MeinWert(A1)
Gruß Matthias
Anzeige
AW: bitte um hilfe !
05.08.2005 21:04:13
Frank
Vielen Dank Matthias,
es funktioniert.
Schönen Abend noch.
AW: bitte um hilfe !
05.08.2005 21:14:02
Erich
Hallo Frank,
wohl etwas zu spät, aber vielleicht doch noch nützlich:
Wenn die Bereiche in A2:A15 stehen und der gesuchte Wert in B6, wäre das die Nummer der Bereichs:
=MAX(ZEILE(A$2:A$15)*($B$6&gt=1*LINKS(A$2:A$15;FINDEN(" ";A$2:A$15)-1)))-1
(Matrixformel, also Eingabe mit Strg+Umschalt+Eingabe abschließen)
Nur so:
Den Beginn des gefundenen Bereichs bekommst du mit der Matrixformel
=SVERWEIS($B$6;1*LINKS(A$2:A$15;FINDEN(" ";A$2:A$15)-1);1;-1)

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: bitte um hilfe !
05.08.2005 21:17:58
Frank
hallo erich,
habe es mit dem modul von matthias hinbekommen, war ganz einfach wenn man es weiß. :-)
trotzdem danke für deine hilfe.
gruß frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige