Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Kriterien prüfen (und) Ausgabe eines Wertes

2 Kriterien prüfen (und) Ausgabe eines Wertes
22.05.2018 16:22:13
margolf
Hallo zusammen,
ich möchte aus einer Matrix einen Wert zurückgeben. Dabei sind 2 Bedingungen zu erfüllen. Die beiden Bedingungen sind jeweils eine Zahl, beide Bedingungen müssen erfüllt sein. Folgende Lösung hatte ich mir ausgedacht, führt aber leider nicht zum Erfolg. (Ergebnis ist immer R1, egal wie die beiden Prüfkriterien 
Function RG(K, W) 'Reifegrad Mitarbeiter nach Können und Wollen
If 6

Eventuell findet einer den Fehler oder hat eine andere Lösung.
Vielen Dank schon mal.

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Kriterien prüfen (und) Ausgabe eines Wertes
22.05.2018 17:08:44
UweD
HAllo
versuch es mal so...
If K >= 6 And K = 6 And W LG UweD
AW: 2 Kriterien prüfen (und) Ausgabe eines Wertes
22.05.2018 19:33:48
Robert
Hallo,
wie von UweD gezeigt müsste es klappen. Zur Erklärung, wieso ein Code wie 
If 6
nicht funktioniert:
VBA prüft zuerst den Teil 6 . Je nachdem, welchen Wert K hat, liefert die Abfrage Wahr oder Falsch. Für VBA ist Wahr = -1 und Falsch = 0. Als nächstes vergleicht Excel das Ergebnis der ersten Prüfung (also -1 oder 0) mit 14, und das ist immer Wahr. Ob zu prüfen ob eine Variable zwischen 2 Werten liegt muss man also den Vergleich wie von UweD beschrieben machen.
Gruß
Robert
Anzeige
AW: 2 Kriterien prüfen (und) Ausgabe eines Wertes
22.05.2018 19:55:11
Barbaraa
Oder so: 
Public Function RG(K, W)  'Reifegrad Mitarbeiter nach Können und Wollen
If K = 6 And K = 6 And W = 6 And W = 6 And W = 6 And W
LGB
AW: 2 Kriterien prüfen (und) Ausgabe eines Wertes
22.05.2018 20:22:20
margolf
Vielen Dank!
Funktioniert hervorragend.
anderer Ansatz
23.05.2018 11:29:15
ChrisL
Hi
Hier ein ganz anderer Ansatz:
https://www.herber.de/bbs/user/121764.xlsm
Die Idee ist den Kriterien eine Gewichtung zu geben (Können 60 %, Wollen 40 %) und von 4 Stufen auf 7 Stufen (x / 4 * 7) zu erhöhen. Das Ergebnis entspricht fast der Vorgabe (man müsste sich fragen, ob die Vorgabe richtig ist).
N.b. wenn du mit einer Gewichtung arbeitest, kannst du einfacher neue Kriterien hinzufügen.
Sub t()
Dim i As Integer
For i = 2 To 17
Cells(i, 6) = RG(Cells(i, 1) - 1, Cells(i, 2) - 1)
Next i
End Sub


Function RG(K As Integer, W As Integer) As String
Dim arrStepsStufe() As Variant, arrTextRG() As Variant
Dim KStufe As Integer, WStufe As Integer, RGWert As Integer
Dim dblGewichtK As Double, dblGewichtW As Double
arrStepsStufe = Array(0, 15, 27, 39, 49)
dblGewichtK = 0.6   ' Können mit 60 % gewichtet
dblGewichtW = 0.4 ' Wollen mit 40 % gewichtet
KStufe = Application.Match(K, arrStepsStufe, 1)
WStufe = Application.Match(W, arrStepsStufe, 1)
RGWert = WorksheetFunction.RoundDown((WStufe * dblGewichtW + KStufe * dblGewichtK) / 4 * 7, 0)
arrTextRG = Array("", "R1", "R1/R2", "R2", "R2/R3", "R3", "R3/R4", "R4")
RG = arrTextRG(RGWert)
End Function
cu
Chris
Anzeige
AW: anderer Ansatz
24.05.2018 00:24:42
margolf
Auch ein interessanter Ansatz.
Vielen Dank dafür, Chris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige