Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Ereignisse für alle UF-Comboboxen

Gleiche Ereignisse für alle UF-Comboboxen
Martin
Hallo liebe Excel-Gemeinde,
ich verwende für alle Comboboxen und Textboxen in einer UserForm den gleichen Code für das "Enter" und das "Exit"-Ereignis:

Private Sub ComboBox36_Enter()
ComboBox36.BackColor = &H80FFFF
ComboBox36.BorderStyle = fmBorderStyleSingle
End Sub




Private Sub ComboBox36_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox36.BackColor = vbWhite
ComboBox36.BorderStyle = 1
ComboBox36.SpecialEffect = fmSpecialEffectEtched
End Sub


Gibt es eine Möglichkeit diesen Code in einem "universellen" Enter- und Exit-Ereigniss für alle Comboboxen bzw. Textboxen zu schreiben?
Ich wäre für Ideen sehr dankbar!
Viele Grüße
Martin

AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 13:29:56
Rudi
Hallo,
du musst die Boxen in eine eigene Klasse packen.
Gruß
Rudi
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 13:34:37
Martin
Hallo Rudi,
würdest Du mir bitte schreiben wie das geht? Mit Klassen kenne ich mich leider nicht aus. Ich vermute mal, dass ich ein "Klassenmodul" anlegen muss. Weiter weiß ich leider nicht....
Viele Grüße
Martin
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 13:56:03
Martin
Hallo Hajo,
vielen Dank. Das scheint mir komplizierter als erwartet, aber ich werde es mal versuchen. Wenn ich es nicht hinbekomme, mache ich die Formatierung doch für jede Textbox / Combobox manuell.
Aber vielen Dank für die Orientierung!
Viele Grüße
Martin
Anzeige
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 14:29:09
Jogy
Hi.
das ist viel einfacher als es aussieht, mit "VBA gut" sollte das kein Problem sein. Ich habe bei meinen ersten Versuchen mit Klassen keine 2h gebraucht, bis das gelaufen ist - und das war ein ähnlicher Fall wie bei Dir.
Nette Beispiele sind da auch auch im Wikibook zu VBA.
http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen:_Klassenmodule
Gruss, Jogy
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 14:46:09
Martin
Hallo Jogy,
Vielen Dank für den interessanten Link!
Viele Grüße
Martin
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 15:54:16
Martin
Hallo,
nachdem ich es trotz aller Bemühungen leider nicht hinbekommen habe, bin ich auf die Suche nach weiteren Informationen gegangen und auf folgende Seite gestoßen:
http://www.office-loesung.de/ftopic310925_0_0_asc.php
Also offensichtlich geht es mit Klassen wohl doch nicht?!
Viele Grüße
Martin
Anzeige
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 16:01:36
Rudi
Hallo,
kommt darauf an, was du willst.
In Klassenmodulen stehen nicht alle Events zur Verfügung.
Change für Comboboxen geht aber.
Gruß
Rudi
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 16:08:53
Martin
Hallo Rudi,
ich wollte genau das, was in dem Link beschrieben war: Es sollen Comboboxen und TextBoxen im Enter-Ereignis gefärbt und im Exit-Ereignis wieder "entfärbt" werden. Aber genau diese beiden Ereignisse stehen im Klassenmodul leider nicht zur Verfügung. Scheinbar muss ich die Ereignisse nun doch für jede einzelne Textbox bzw. Combobox schreiben.
Viele Grüße
Martin
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 16:15:47
Rudi
Hallo,
dann schreib dir eine Prozedur und rufe diese im Ereignis auf.

Private Sub ComboBox1_Enter()
cbFaerben ComboBox1
End Sub
Private Sub ComboBox2_Enter()
cbFaerben ComboBox2
End Sub
Sub cbFaerben(cb As Object)
'Code
End Sub


Gruß
Rudi

Anzeige
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 16:35:32
Martin
Hallo Rudi,
stimmt, so spare ich doch ein wenig Code. Schade nur, dass nun doch für jede einzelne Combobox/Textbox ein Enter- bzw. Exit-Ereignis angelegt werden muss. Aber vielen Dank für Deinen Vorschlag!
Viele Grüße
Martin
AW: Gleiche Ereignisse für alle UF-Comboboxen
02.07.2009 13:59:19
Rudi
Hallo,
Prinzip
In der UF:

Dim objComboBox(1 To 10) As New clsComboBox 'anpassen
Private Sub UserForm_Initialize()
Dim objControl As Control, i As Integer
For Each objControl In Me.Controls
If TypeName(objControl) = "ComboBox" Then
i = i + 1
Set objComboBox(i).myComboBox = objControl
End If
Next
End Sub


Im Klassenmodul clsComboBox:


Public WithEvents myComboBox As MSForms.ComboBox
Private Sub myComboBox_Click()
MsgBox myComboBox.Name
End Sub

Gruß
Rudi

Anzeige
Rudi, vielen lieben Dank!!!
02.07.2009 14:11:26
Martin
Hallo Rudi,
vielen Dank, jetzt bekomme ich es bestimmt hin. Ich glaube das Prinzip jetzt verstanden zu haben!
Viele Grüße
Martin

299 Forumthreads zu ähnlichen Themen

Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Anzeige
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Comboboxen Spalten Anzahl
gp

Hallo Zusammen,
ist die Anzahl der Spalten von ComboBoxen begrenzt?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
26.01.2009 11:08:00
Thread-ID: 1043791
5 Beiträge
Anzeige
zwei comboboxen auslesen
Dee

Hi Ihr,
Ich habe zwei Kategorien mit ComboBoxen (Deutschland, Amerika), welche bei unregelmäßige Nummer tragen
Deutschland (ComboBox 2/6/7/10/13)
Amerika (ComboBox 5/8/9/11/12)
Beide können jeweils mit yes und no belegt sein. Ich möchte mir jetzt die einzelnen Fälle in einem Te...
22.04.2009 19:14:52
Thread-ID: 1070463
8 Beiträge
Comboboxen Kuriositäten
Volti

Hallo zusammen,
habe schwere Probleme mit den Comboboxen aus der Toolbox, die wie mir scheint, nach jedem Update immer schlimmer werden.
1. Resizingprobleme: Es kommt verstärkt vor, dass der angezeigte Inhalt im Auswahlfeld nach Verlassen der Seite (z.B. kurzzeitig anderes Programm wie...
02.06.2009 10:45:10
Thread-ID: 1078566
3 Beiträge
Comboboxen formatieren
Ludicla

Hey Profis,
wie müßte ein Code aussehen der mehrere Comboboxen formatiert?
ich hab an die 100 Stück - sicher es geht auch einzelen
ich schaff keinen einfachen Code und mach alles einzeln.
Gruss Ludicla.
04.06.2009 14:58:16
Thread-ID: 1079162
7 Beiträge
Comboboxen für abhängige Auswahlen?
Claudia

Liebes Forum,
ich habe eine Tabelle mit drei Spalten. Die darin enthaltenen Infos werden von Spalte 1 zu 3 immer feiner. Z.B. steht in Spalte 1 "Wilde Tiere" und "Zahme Tiere". In Spalte 2 dann die jeweils zugehörigen Einträge "Tiger" (natürlich Wilde Tiere) und "Hase" (Zahme Tiere). Und in...
19.06.2009 09:53:10
Thread-ID: 1082797
6 Beiträge
ComboBoxen deaktivieren
Micha

Hallo zusammen,
ich habe folgende Herausforderung:
Teil 1:
In einem Tabellenblatt (Tabelle1) habe ich mehrere Comboboxen.
Wenn in der ComboBox_1 der Eintrag „ Name?“ gewählt wurde, müssen die …
ComboBox_2
ComboBox_3
ComboBox_4 … deaktiviert werden. Bei allen anderen...
19.06.2009 10:20:18
Thread-ID: 1082808
7 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
1
1
4
4
16
7
2
6
5
6
18
2
13
4
6
2
6
1
4
6
14
1
4
3
5