2 Zellen prüfen, in der 3. Zelle Wert ?



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: 2 Zellen prüfen, in der 3. Zelle Wert ?
von: Joh@nn
Geschrieben am: 28.06.2002 - 17:26:51

Hallo zusammen,
Ich sitze schon Tage an dem Problem.

Zelle F7 ist leer
Zelle G42 ist leer
dann soll I42 auch leer bleiben.

In Zelle F7 steht die Zahl 1 bis unendlich
Zelle G42 ist leer
dann soll I42 auch leer bleiben.

In Zelle F7 steht die Zahl 1 bis 10
In Zelle G42 steht die Zahl 1 oder höher
dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)

In Zelle F7 steht die Zahl 11 bis 20
In Zelle G42 steht die Zahl 1
dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 2
dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 3 oder höher
dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)

In Zelle F7 steht die Zahl 21 bis 30
In Zelle G42 steht die Zahl 1
dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 2
dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 3
dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 3 oder höher
dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)

In Zelle F7 steht die Zahl 31 bis 40
In Zelle G42 steht die Zahl 1
dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 2
dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 3
dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 3
dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
In Zelle G42 steht die Zahl 4 oder höher
dann soll in I42 die Zahl 4 erscheinen (ohne Kommastelle)

Hoffentlich brummt euch jetzt nicht auch so der Kopf wie mir.
Schönes Wochenende
Gruß
Joh@nn


nach oben   nach unten

Re: 2 Zellen prüfen, in der 3. Zelle Wert ?
von: Nike
Geschrieben am: 28.06.2002 - 20:58:39

Hi,
sieht schlimmer aus, als es eigentlich ist...
Einfach ein paar select case Bedingungen schachteln ;-)

Du solltest dir noch was überlegen, wenn F7 größer als 40 ist...

Bye

Nike


Sub Zellenchecker()
Dim intF7 As Integer
Dim intG42 As Integer
Dim intI42 As Integer

If Cells(7, 6) = "" Or Cells(42, 7) = "" Then
'Zelle F7 ist leer
'Zelle G42 ist leer
'dann soll I42 auch leer bleiben.

'In Zelle F7 steht die Zahl 1 bis unendlich
'Zelle G42 ist leer
'dann soll I42 auch leer bleiben.
    Cells(42, 9) = ""
    Exit Sub
End If

intF7 = Cells(7, 6)
intG42 = Cells(42, 7)

Select Case intF7
'In Zelle F7 steht die Zahl 1 bis 10
Case Is > 0 And intF7 <= 10
'In Zelle G42 steht die Zahl 1 oder höher
'dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
    If Cells(42, 7) > 0 Then intI42 = 1

'In Zelle F7 steht die Zahl 11 bis 20
Case Is >= 11 And intF7 <= 20
    Select Case intG42
'In Zelle G42 steht die Zahl 1
'dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
    Case 1
        intI42 = 1
'In Zelle G42 steht die Zahl 2
'dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
    Case 2
        intI42 = 2
'In Zelle G42 steht die Zahl 3 oder höher
'dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
    Case Is >= 3
        intI42 = 3
    End Select

'In Zelle F7 steht die Zahl 21 bis 30
Case Is >= 21 And intF7 <= 30
    Select Case intG42
'In Zelle G42 steht die Zahl 1
'dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
    Case 1
        intI42 = 1
'In Zelle G42 steht die Zahl 2
'dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
    Case 2
        intI42 = 2
'In Zelle G42 steht die Zahl 3 oder höher
'dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
    Case Is >= 3
        intI42 = 3
    End Select

'In Zelle F7 steht die Zahl 31 bis 40
Case Is >= 31 And intF7 <= 40
    Select Case intG42
'In Zelle G42 steht die Zahl 1
'dann soll in I42 die Zahl 1 erscheinen (ohne Kommastelle)
    Case 1
        intI42 = 1
'In Zelle G42 steht die Zahl 2
'dann soll in I42 die Zahl 2 erscheinen (ohne Kommastelle)
    Case 2
        intI42 = 2
'In Zelle G42 steht die Zahl 3 oder höher
'dann soll in I42 die Zahl 3 erscheinen (ohne Kommastelle)
    Case Is = 3
        intI42 = 3
'In Zelle G42 steht die Zahl 4 oder höher
'dann soll in I42 die Zahl 4 erscheinen (ohne Kommastelle)
    Case Is >= 4
        intI42 = 4
    End Select


End Select


Cells(42, 9).NumberFormat = "0"
Cells(42, 9) = intI42
End Sub



nach oben   nach unten

ich darf keine Macros verwenden
von: Joh@nn
Geschrieben am: 28.06.2002 - 21:18:49

HALLO Nice,
nett daß du dir die Arbeit gemacht hast,aber ich darf keine Macros verwenden.
Sicherheitsvorschriften.
Ansonsten sieht deine Lösung beindruckend aus.
Schade.
Gruß
Joh@nn

nach oben   nach unten

Re: ich darf keine Macros verwenden
von: Silvio
Geschrieben am: 28.06.2002 - 22:00:31

Hallo Johann,
teste mal diese Formel, es gibt sicher noch bessere Varianten
und 100% Funktionalität kann ich auch nicht gewährleisten. Aber eventuell hilft dir diese Formel ja schon weiter...
=WENN(ODER(F7="";G42="");"";WENN(UND(F7<11;G42>=1);1;WENN(UND(F7<41;G42=1);1;WENN(UND(F7<41;G42=2);2;WENN(UND(F7>30;G42>=4);4;WENN(UND(F7>20;G42>=3);3;WENN(UND(F7>10;G42>=3);2)))))))
Bye Silvio

nach oben   nach unten

Ich gluab das issses,freue
von: Joh@nn
Geschrieben am: 29.06.2002 - 05:08:53

Hallo Silvio muß jetzt arbeiten,habs angetestet schein zu gehen.melde mich noch mal heute mnachmittag.
Danke
Joh@nn

nach oben   nach unten

Hallo Silvio es hat geklappt ;o)
von: Joh@nn
Geschrieben am: 29.06.2002 - 15:09:03

hi Silvio,
danke prima Formelchen danke.
Da sollen die Faruen sagen wir haben nur eines im Kopf.;o))
Schönen Tag noch
Joh@nn

nach oben   nach unten

Re: schade...
von: Nike
Geschrieben am: 01.07.2002 - 00:29:07

Na,
das hättest du ja in deine Problembeschreibung
ja mal mit aufnehmen können ;-)

Bye

Nike


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2 Zellen prüfen, in der 3. Zelle Wert ?"