Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

48 Comboboxen mit einem Code formatieren?

Forumthread: 48 Comboboxen mit einem Code formatieren?

48 Comboboxen mit einem Code formatieren?
08.02.2009 18:07:00
Ann-Katrin
Hi,
ich möchte allen Comboboxen innerhalb einer UF das Stundenformat
"hh:mm" zuweisen.
Bislang habe ich die Boxen einzeln angesprochen.

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "hh:mm")
End Sub


Da sich in der UF 48 Comboboxen befinden, möchte ich Fragen, ob sich
diese nicht mit einem einzigen Code ansprechen lassen.
LG
Ann-Katrin

Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 19:07:00
Tino
Hallo,
dies kann man mit einem Klassenmodul programmieren.
Beispielcode:
Dialog UserForm1 
Option Explicit 
 
Private Sub UserForm_Initialize() 
Dim coComb As Control 
Dim i As Integer 
 
For i = 0 To Me.Controls.Count - 1 
 If TypeName(Me.Controls(i)) = "ComboBox" Then 
  Redim Preserve CComb(i) 
  Set CComb(Ubound(CComb)).objComb = Me.Controls(i) 
 End If 
Next i 
 
End Sub 
 
Private Sub UserForm_Terminate() 
 Erase CComb 
End Sub

Modul Modul1 

Option Explicit 
 
Public CComb() As New Klasse1

Klassenmodul Klasse1 

'Klassenmodul Name Klasse1 
Option Explicit 
Public WithEvents objComb As MSForms.ComboBox 
Private Sub objComb_Change() 
 objComb = Format(objComb, "hh:mm") 
End Sub


Gruß Tino

Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 19:27:00
Ann-Katrin
Hi Tino,
Danke für die deutliche Anleitung, aber irgend etwas scheint
hier zu haken. Mein ausgewählter Stundenwert erscheint jetzt
als Dezimalzahl und nicht mehr als "hh:mm".
Habe Deinen Code 1:1 in die jeweiligen Module bzw UserForm
kopiert. Muß ich evtl. doch noch etwas anderes ein.- umstellen?
LG
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 19:37:00
Tino
Hallo,
dieses Format wurde doch von Dir so vorgegeben, dies kommt nicht von mir.
Zeige mir mal ein Beispiel wie der Text vor der Formatierung aussieht.
Benutzt Du ein deutsches Excel bzw. wie sind Deine Ländereinstellungen?
Gruß Tino
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 20:05:07
Ann-Katrin
Hi Tino,
Danke für Deine Rückmeldung.
Die Combobox bezieht ihren Inhalt(angezeigt als "hh:mm") aus dem TabBlatt A1:A99 formatiert
als "hh:mm", angegeben in den Eigenschaften der Box "RowSource". Die Ausgabezelle im Blatt
(A2) ist ebenfalls in den Eigenschaften unter "ControlSource" angegeben.
Im Blatt selber erscheint nach Auswahl in der Box alles korrekt!
In den "ListRows" wird das Format ebenfalls korrekt dargestellt, nur die ausgwählte Stunde wird
nicht in der obersten Reihe als "hh:mm" gezeigt.
LG
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 21:34:06
Ann-Katrin
Hi Tino,
Danke für Dein Beispiel. Ich habe keine Ahnung warum, aber jetzt klappt es mit
der Darstellung bei Auswahl in der Combobox.
Aber schon taucht das nächste Problem auf.
Die Auswahl wird ja in der Box gehalten, da sie ja an B1 übergeben wird.
Nach erneutem öffnen der UserForm wird diese Uhrzeit leider wieder in
einer Dezimalzahl ausgedrückt.
Kann man nicht irgendwie das "hh:mm-Format" dauerhaft in der Box halten?
Für unglückliche oder schlechte Formulierungen nochmals Entschuldigung.
LG
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
08.02.2009 22:09:29
Tino
Hallo,
das verstehe ich jetzt nicht,
normalerweise ist die Combobox nach dem beenden der Userform wieder auf dem Index -1 also leer,
wie werden denn die Daten bei Dir festgehalten?
Vielleicht hättest Du eine Beispieldatei?
Gruß Tino
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 16:54:00
Ann-Katrin
Hi, ich noch einmal.
Mit der Beispieldatei klappt das Leider nicht. Hab aber mal ein paar Screenshots
beigefügt.
Bild1 zeigt den Auswahldialog der Box mit den Stunden im Format "hh:mm"
Userbild
Bild2 mit der ausgewählten Stunde
Userbild
So, jetzt schließe ich die Userform und rufe sie anschließend wieder auf.
Ergebnis: Siehe Bild 3
Bild 3 mit der Box nach erneuten öffnen der Userform, jedoch mit Dezimal
Userbild
Es muß doch irgendwie hinzu bekommen sein, das nicht Dezimal sonder "hh:mm"
angezeigt wird.
Wie bekomme ich das bloß hin?
LG
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 16:55:36
Ann-Katrin
Ich lasse diese Frage noch mal offen.
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 17:13:15
Jens
Hi,
das ist schlicht nicht nachvollziehbar.
Mit welcher Anweisung wird die Userform geschlossen?
mfg Jens
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 17:37:17
Ann-Katrin
Hi,
so wie Tino mir den Code zur Verfügung gestellt hat.
An diesen habe ich nichts geändert!

Private Sub UserForm_Terminate()
Erase CComb
End Sub


LG
Ann-Katrin

Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 21:23:00
Ann-Katrin
Hallo,
so, hier noch einmal ein letzter Versuch, dann gebe ich es auf!
In der Beispieldatei wird mein Formatproblem noch einmal verdeutlicht,
hoffe sehr, das doch noch jemand eine Lösung hat.
https://www.herber.de/bbs/user/59281.xls
Vielen Dank
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 21:31:28
Jens
Hi,
die von dir hochgeladenen Datei hat mit dem Beispiel von Timo gar nichts mehr
zu tun, insofern also kein Wunder, dass es nicht funktioniert.
Sieh dir mal sein Beispiel mal richtig an.
mfg Jens
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 22:00:00
Ann-Katrin
Hi Jens,
Ich würde ja gerne die Original-Datei mit Tinos Code hier bereitstellen, geht aber nicht
weil sich diese auf meinen Arbeitsplatz befindet! Ein kopieren, uploaden oder per @ ist
nicht möglich.
Darum vielleicht aus Eurer Sicht Verständnislosigkeit.
Kann mich ja auch nur kleckerweise an die Lösung herantasten. Deshalb auch nur die
magere Beispiel-Datei. Wäre trotz alledem schon einen gewaltigen Schritt weiter, wenn
das bestehende Problem in dieser Datei gelöst werden würde.
LG
Ann-Katrin
Anzeige
AW: 48 Comboboxen mit einem Code formatieren?
09.02.2009 22:44:00
Tino
Hallo,
ich war auf der arbeit, daher kann ich mich erst jetzt melden.
Hier Deine Datei mit der Anpassung.
https://www.herber.de/bbs/user/59283.xls
Gruß Tino
Hi Tino! Vielen,vielen Dank! :-) LG Ann-Katrin
09.02.2009 23:18:00
Ann-Katrin
.
;

Forumthreads zu verwandten 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
Comboboxen wie Autofilter
Klaus

Hallo zusammen
Ich habe eine Userform mit mehreren Comboboxen. Nun sollen in der ersten Combobox die Werte aus Tabelle1 A:A ohne Duplikate ausgelesen werden und nach einer Auswahl der Autofilter in Spalte A gesetzt werden. in der zweiten Combobox sollen dann die Werte aus Tabelle1 B:B ausge...
31.10.2008 09:39:00
Thread-ID: 1020780
2 Beiträge
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
Anzeige
Auswahl bei Comboboxen
Quantum

Hallo,
da ich zu viele Daten habe, würde ich gerne mit einer zusätzlichen Combobox die Auswahl in der anderen Combobox beschränken auf Daten aus einen bestimmten Bereich.
In der ersten Spalte, ab der 4 Zelle steht die Gruppenzugehörigkeit, wenn ich in der Combobox4 die Gruppe wähle, w...
22.06.2009 09:16:16
Thread-ID: 1083369
19 Beiträge
Tabelle mit 2 Comboboxen auslesen
Chris

Hallo,
ich würde gerne einen Wert aus einer Tabelle mit Hilfe von 2 Comboboxen auslesen um ihn dann weiter zu verwenden. Vom Prinzip her, hab ich eine Box für die Zeile und eine für die Spalte. Nur hab ich keinen Plan wie ich am besten daraus die EINE Variable mache.
Mir würden ein paar...
24.06.2009 09:41:28
Thread-ID: 1083992
3 Beiträge
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
Privat...
02.07.2009 13:29:56
Thread-ID: 1085947
14 Beiträge
Werte mit Comboboxen auswählen
Peter

Hallo wertes Forum
Wie kann ich aus einer Tabelle die Werte ermitteln, um sie in einer Userform mit Label anzeigen zulassen?
In der Datei soll die Region und die Kalenderwoche mit Hilfe der Comboboxen ausgewählt werden und dann die Werte Ist Datensätze zu den erledigten Datensätzen ang...
02.08.2009 18:45:07
Thread-ID: 1093056
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige