Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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!

314 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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

Links zu Excel-Dialogen

TextBox UserForm

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
6
3
8
12
2
5
12
7
14
3
3
2
15
5
4
2
2
2
10
4
6
1
4
1
17