Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Change Ereignis wird nicht ausgeführt

Forumthread: Change Ereignis wird nicht ausgeführt

Change Ereignis wird nicht ausgeführt
28.02.2018 14:12:52
Christian
Hallo Zusammen,
ich habe in einer UserForm5 eine Combobox4, die ich mit weißer Schrift starte. Ich möchte jedoch, dass diese sich beim Anklicken in schwarze Schrift verändert.
Mit dem unten - vielleicht zu kurz gedachten - Ereignis klappt das auch, nur wird das Change-Ereignis nicht mehr ausgeführt. Egal, welchen Wert ich aus der Combobox auswähle, er wird nicht übernommen sondern verbleibt bei dem Ursprungswert - wenn auch in schwarz.
Ich habe jetzt schon zu lange ausprobiert, so dass ich wieder einmal auf Eure Hilfe hoffe - herzlichen Dank vorab. 
Private Sub Combobox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal y As Single)
UserForm5.ComboBox4.ForeColor = vbBlack
Call Produkt
UserForm6.Hide
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Workaround
28.02.2018 15:03:59
ChrisL
Hi Christian
Keine Ahnung wieso es nicht geht, aber vielleicht hilft folgender Workaround:
Private Sub ComboBox1_Change()
MsgBox "Change"
End Sub


Private Sub ComboBox1_DropButtonClick()
ComboBox1.ForeColor = vbBlack
End Sub


Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.ForeColor = vbBlack
End Sub

cu
Chris
Anzeige
AW: Workaround
28.02.2018 15:40:21
Christian
Hallo Chris,
leider ohne Erfolg. Jetzt wird das Change-Ereignis zwar ausgelöst, aber die Schriftfarbe ändert sich nicht in schwarz. Hier der komplette Code für die Combobox4:
Private Sub Combobox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal y As Single)
UserForm5.ComboBox4.ForeColor = vbBlack
Call Produkt
UserForm6.Hide
End Sub


Private Sub Produkt()
If UserForm5.CheckBox1.Value = False Then
UserForm5.Label4.ForeColor = vbBlack
UserForm5.Label4.BackColor = &H80000004
UserForm5.Label4 = ""
Else
UserForm5.Label4.BackColor = vbWhite
UserForm5.Label4 = "Bitte geben Sie auch bei der Auswahl eines Produktes in Fremdwährung  _
die weiteren Rechenvariablen, wie das 'Volumen' und/oder 'Sonstige Provisionen', in der Währung 'EUR' ein."
End If
End Sub

Private Sub Combobox4_Change()
UserForm5.ComboBox4.ForeColor = vbBlack
If UserForm5.ComboBox4.Value  "" Then
UserForm5.TextBox11 = ""
UserForm5.TextBox12 = ""
UserForm5.TextBox13 = ""
UserForm5.TextBox4 = WorksheetFunction.VLookup(UserForm5.ComboBox4.Value, Worksheets("Dropdowns  _
Pipeline").Range("O3:ZZ1000"), 18, False)
Else
UserForm5.TextBox4 = ""
End If
If Len(UserForm5.ComboBox4) = 0 Then
UserForm5.TextBox5.BackColor = vbWhite
UserForm5.TextBox6.BackColor = vbWhite
UserForm5.TextBox7.BackColor = vbWhite
UserForm5.TextBox8.BackColor = vbWhite
UserForm5.TextBox9.BackColor = vbWhite
UserForm5.TextBox10.BackColor = vbWhite
UserForm5.TextBox6 = ""
UserForm5.TextBox6 = ""
UserForm5.TextBox7 = ""
UserForm5.TextBox8 = ""
UserForm5.TextBox9 = ""
UserForm5.TextBox10 = ""
End If
UserForm5.CommandButton6.Caption = "Berechnen"
UserForm5.CommandButton7.Enabled = False
Call Produktvariablen
End Sub

Anzeige
AW: Workaround
28.02.2018 16:02:11
ChrisL
Hi Christian
Die Datei baue ich mir nicht nach. Mein Mustercode von vorhin läuft in XL2016.
cu
Chris
AW: Workaround
28.02.2018 16:12:13
Christian
Das kann ich gut verstehen - ich dachte, es sei vielleicht etwas offensichtliches. Vielen Dank für Deine Hilfe!
AW: Workaround
28.02.2018 16:12:19
Christian
Das kann ich gut verstehen - ich dachte, es sei vielleicht etwas offensichtliches. Vielen Dank für Deine Hilfe!
Anzeige
;

Forumthreads zu verwandten Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge
Anzeige
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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