Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kleiner/größer/gleich operator als variable ?

kleiner/größer/gleich operator als variable ?
13.11.2016 11:34:59
Max2
Hallo Leute,
ich habe eine UserForm mit einer ComboBox, Inhalt der ComboBox sind vergleichsoperatoren.
Der User wählt in ComboBox2 ein Tabellenblatt aus, dann wählt er in ComboBox4 eine Farbe aus, in TextBox3 gibt er einen Wert an und in ComboBox3 den Vergleichsoperator.
Dann drückt er auf Button "Einfärben"
Alles was größer/kleiner/gleich x ist wird eingefärbt, je nach Auswahl eben
Das blöde ist das ich dafür haufenweise If´s brauche.
Kann man die Vergleichoperatoren auch als Variable angeben ?
So dass ich eben nicht für jeden Operator einen If Satz brauche ?
Oder seht Ihr eine Möglichkeit meinen Code anderweitig zu kürzen ?
Hier ein bisschen If Code: 

If rngZelle  "" Then
If CbV3 = "" Then

Die Set, With und For Sachen habe ich jetzt mal nicht mit rein gepackt, die tuen eigentlich nicht zur Sache, genauso wie die weiteren beiden If Schleifen, da diese exakt gleich sind nur mit anderem Operator

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schnipsel-Code zu Schnipsel-Code
13.11.2016 12:00:47
Gerd
Hallo Max2!
Ob unterschiedliche Folgerungen aus unterschiedlichen "Operatoren" gezogen werden, gibt dein Teil-Code nicht her. 
If Evaluate(rngZelle.Value & cbv3 & CDbl(TbV3)) Then MsgBox Evaluate(rngZelle.Value & cbv3 & CDbl(TbV3))
Gruß Gerd
AW: Schnipsel-Code zu Schnipsel-Code
13.11.2016 12:18:00
Max2
Hallo Gerd, danke erstmal.
Meinst du damit dass ich es mit meinem Code so wie er ist gar nicht machen kann oder könnte ich es so machen? :
Set wkbHier = ThisWorkbook
Set WksBearbeiten = wkbHier.Sheets(CbV2)
With WksBearbeiten
lngLetzteSpalte2 = .Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 0 To 5
Set rngBearbeiten = WksBearbeiten.Range(.Cells(TbV1, 1), .Cells(TbV2, lngLetzteSpalte2))
For Each rngZelle In rngBearbeiten
If rngZelle  "" Then
If Cbv4 = Farben(i) Then
If Evaluate(rngZelle.Value & cbv3 & CDbl(TbV3)) = True  Then
rngZelle.Interior.ColorIndex = FarbenNr(i)
End If
End If
End If
Next rngZelle
Next i
End With

Anzeige
AW: Schnipsel-Code zu Schnipsel-Code
13.11.2016 13:06:34
Gerd
Hallo Max,
nein. Damit meinte ich, dass man aus einem Code-Schnipsel nicht sieht, welche weiteren Schritte erfolgen.
Eine Meinung zu deiner erst jetzt gezeigten etwas umfangreicheren Teilprozedur? ... Kann ja nicht Hellsehen!
Cbv4 wird "vor" der Schleife definiert, Farben ebenfalls. Die Prüfung, welche Farbe ausgewählt worden ist, kann deshalb vor der Schleife so etwa gemacht werden (Sehe aber das Befüllen dieser Variablen nicht). 
Dim X as Variant
X = Application.Match(Cbv4, Farben, 0)
If IsNumeric(X) Then
'Schleife
Msgbox FarbeNr(X)
End If
Gruß Gerd
Anzeige
AW: Schnipsel-Code zu Schnipsel-Code
14.11.2016 22:34:34
Max2
Danke für deine Hilfe, durch dich habe ich jetzt mal Evaluate und .Match kennen gelernt.
Ja meine Angaben waren leider etwas knapp, aber dieser Code Schnipsel war teil einer sehr umfangreichen großen UserForm und mehreren Modulen usw. deshalb habe ich es sehr spartanisch gehalten.

241 Forumthreads zu ähnlichen Themen

Formeln miteinander vergleichen
Pfannen-Meister

Guten Abend,
ich möchte gerne zwei Excel-Formeln miteinander begreifen, habe in der Umsetzung aber ein Problem:
Formel in der Zelle A1 = D1*E1
Formel in der Zelle A2 = D1+E1
Wie schaffe ich es, die Formeln in der Zelle A1 und A2 miteinander zu vergleichen und NICHT das Ergebni...
08.09.2008 17:18:00
Thread-ID: 1008216
3 Beiträge
Anzeige
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Anzeige
Sonderzeichen als Ergebnis einer Formel
MikeS

Hallo,
gibt es eine Möglichkeit, in der nachfolgenden Formel das Sonderzeichen VOLLER BLOCK zu wiederholen?
Ich möchte mir eine separate Hilfszelle sparen.
Das nachfolgende Beispiel ergibt leider einen Fehler!
=WIEDERHOLEN(█;B7*8)
Vielen Dank
Mike
02.03.2009 09:11:00
Thread-ID: 1055413
2 Beiträge
Sonderzeichen als Ergebnis einer Formel
MikeS

Hallo,
gibt es eine Möglichkeit, in der nachfolgenden Formel das Sonderzeichen VOLLER BLOCK zu wiederholen?
Ich möchte mir eine separate Hilfszelle sparen.
Das nachfolgende Beispiel ergibt leider einen Fehler!
=WIEDERHOLEN(█;4)
Vielen Dank
Mike
02.03.2009 09:11:53
Thread-ID: 1055414
3 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Wenn Formel in Verbindung mit Index und Vergleich
Helmut

Hallo Excel-Anwender,
ich muß einen Kostenberechnungsbogen entwerfen, der bei bestimmten Eingaben über entsprechende Auswahlfelder Werte aus zwei anliegenden Arbeitsblättern auswirft. Einige Formel habe ich aus einem bereits bestehenden Arbeitsblatt entnommen, wie z.B. die Ausgabe für die H...
14.01.2010 22:04:03
Thread-ID: 1130062
2 Beiträge
Formel Lineare Gleichung
Richy

Tut mir leid, dass ich nochmals nerven muss.......
ich habe folgende Tabelle ........https://www.herber.de/bbs/user/67325.xls und möchte die FORMEL (nicht die Formatierung) so anpassen, dass bei der ganzen Berechung für JEDE VARIABLE ein positiver Wert erscheint.
20.01.2010 15:39:50
Thread-ID: 1131390
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
13
2
4
8
1
2
2
1
2
10
4
5
2
4
5
1
7
5
4
5
6
2
2
8