Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Switch Case in Excel möglich?

Switch Case in Excel möglich?
21.03.2018 14:42:38
Julia
Hallo,
ich möchte gern eine Berechnung durchführen.
Mit WENN haben ich es schon versucht aber das wird sehr verschachtelt.
als pseudocode sollte die Berechnung folgendes tun:
"A4" = "MIN"
case 1: [@min] case 2: [@Wert] case 3: ([@Wert]*1,2) case 4: "D4" = 6
"A4" = "MAX"
case 1: [@min] > [@Wert] "D4" = 0
case 2: [@Wert] >= [@Zahl] "D4" = 10
case 3: ([@Wert]/1,2) >= [@Zahl] "D4" = 8
case 4: "D4" = 6
Oder habt ihr eine andere Idee wie man das umsetzten kann?
Ich freue mich auf eure Antworten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Switch Case in Excel möglich?
21.03.2018 14:49:36
ChrisL
Hi Julia
Vielleicht so...
Select Case Range("A4")
Case "MIN"
If Bedigung Then
ElseIf Bedingung Then
ElseIf Bedingung Then
ElseIf Bedingung Then
End If
Case "MAX"
If Bedigung Then
ElseIf Bedingung Then
ElseIf Bedingung Then
ElseIf Bedingung Then
End If
End Select

cu
Chris
AW: Switch Case in Excel möglich?
21.03.2018 15:58:46
Peter(silie)
Hallo,
Switch Case ist in VBA Select Case.
Die Syntax sieht dann so aus:
(bsp code)
Option Explicit
Sub a()
Debug.Print SelectCase(0.1)
Debug.Print SelectCase(200)
End Sub
Public Function SelectCase(ByVal value_ As Double) As String
Dim cMin As Double
Dim cMax As Double
cMin = 1.10234
cMax = 100.90385
Select Case value_
Case Is  vbNullString Then SelectCase = SelectCase & vbCrLf
Select Case value_
Case Is >= cMax
SelectCase = SelectCase & value_ & " >= " & cMax & " is True"
Case Else
SelectCase = SelectCase & value_ & " >= " & cMax & " is False"
End Select
End Function
Das ergebnis sieht dann so aus: 
0,1 = 100,90385 is False
200 = 100,90385 is True

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige