select case - noch nie gemacht...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Mach(D, J, K, L, M) As String Select Case D Case "löschen" If (J = 17 Or J = 18) And (K = 17 Or K = 18) And (L = 17 Or L = 18) And (M = 17 Or M = 18) Then Mach = "ok" Else Mach = "Bitte VS 7 pflegen" End If Case "ausverkaufen löschen" If (J = 7 And K = 7) Then 'Mach was du willst End If Case Else 'was auch immer End Select End Function

Hallo, @schneewittchen,
Deine Formel kann ich syntaxmäßig nicht nachvollziehen.
Auch Deine Annahme, dass hier eine "SELECT CASE" Anweiseung ihren Dienst tun könnte icht ebenso für mich nicht einseitig. Wie bereits hingewiesen, gibt es eine solche Zellenfunktion nicht oder man müßte sie in eine eigene VBA-Funktion verarbeiten, zum anderen wirkt die VBA-Befehlsstruktur als Auswahl, vergleichbar etwa der Zellenfunktion AUSWAHL.
Deine Formel, so wie si in der Arbeitsmappe steht, ist, wie oben bereits erwähnt m.E. fehlerhaft. Vielleicht hilft Dir diese Musterarbeitsmappee, den Aufbau Deiner Zellenformel zu gestallten:
https://www.herber.de/bbs/user/37677.xls
Die Arbeitsmappe wurde als Antwort in der Beitragskette http://xlforum.herber.de/messages/814133.html veröffentlicht. Du müßtes über die Ersetzefunktion die IF in WENN, OR in ODER und AND in UND wandeln, wenn Du mit der deutschsprachigen EXCEL-Umgebung arbeitest.
In die Spalte B schreibst Du ab der Zeile 3 im Dreierpack Bedingung, Action für WAHR und Aktion für FALSCH, bis Du alle Möglichkeiten festgelegt hast. In der Spalte C wird dan rückwärts die WENN-Formel vervollständigt, bis dann in Zelle C1 die einsatzbar Zellenformel steht.
Natürlich kann dieser Schritt bei sauberer Verknüpfung der Verschachtelung auch diirekt geschrieben werden.
Gruß,
Uwe

Hallo,
ich habe die Forlmel in die Einheiten BEDINGUNG, DANN und SONT getrennt und abei festgestellt, dass hier ein Elemten am ende fehlte (die Kommata sind durch Semikolon zu ersetzen:

=WENN(D4="löschen",(WENN(UND(ODER(J4=17,J4=18),ODER(K4=17,K4=18),ODER(L4=17,L4=18),ODER(M4=17,M4=18)),"ok","Bitte VS 17 Pflegen")),(WENN(D4="ausverkaufen löschen",(WENN(UND(J4=7,K4=7,L4=7,M4),"ok","Bitte VS 7 pflegen")),(WENN(D4="reines VM",(WENN(BE4="nicht verkaufsfähig","ok","Bitte Vertriebsstrategie ändern")),(WENN(D4="ausverkaufen ersetzen",WENN(UND(J4=6,K4=6,L4=6,M4=6),"ok","Bitte VS 6 pflegen"))))))))
Bedin1:
WENN(D4="löschen",
Dann1:
WENN(UND(ODER(J4=17,J4=18),ODER(K4=17,K4=18),ODER(L4=17,L4=18),ODER(M4=17,M4=18)),"ok","Bitte VS 17 Pflegen"),
Sonst1:
Bedin2:
WENN(D4="ausverkaufen löschen",
Dann2:
WENN(UND(J4=7,K4=7,L4=7,M4),"ok","Bitte VS 7 pflegen"),
Sonst2:
Bedin3:
WENN(D4="reines VM",
Dann3:
WENN(BE4="nicht verkaufsfähig","ok","Bitte Vertriebsstrategie ändern")
Sonst3:
Bedin4:
WENN(D4="ausverkaufen ersetzen",
Dann4:
WENN(UND(J4=6,K4=6,L4=6,M4=6),"ok","Bitte VS 6 pflegen")
Sonst5 ?
"Keine Info"
Gesamte Wenn-Formel:
=WENN(D3="löschen",(WENN(UND(ODER(J3=17,J3=18),ODER(K3=17,K3=18),ODER(L3=17,L3=18),ODER(M3=17,M3=18)),"ok","Bitte VS 17 Pflegen")),(WENN(D3="ausverkaufen löschen",(WENN(UND(J3=7,K3=7,L3=7,M3),"ok","Bitte VS 7 pflegen")),(WENN(D3="reines VM",(WENN(BE3="nicht verkaufsfähig","ok","Bitte Vertriebsstrategie ändern")),(WENN(D3="ausverkaufen ersetzen",WENN(UND(J3=6,K3=6,L3=6,M3=6),"ok","Bitte VS 6 pflegen"),"keine Info")))))))
Gruß!

Beliebteste Forumthreads (12 Monate)

select case - noch nie gemacht...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread