Das Archiv des Excel-Forums

Breite einer Combobox beim öffnen definieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Breite einer Combobox beim öffnen definieren
von: Joachim

Geschrieben am: 13.06.2008 15:30:00

Hi
ich habe auf einem Tabellenblatt eine Combobox. da werden Daten aus einem anderen Blatt eingelesen.
Soweit so gut.
Wenn ich nun die Combobox anklicke (mit dem Dreieck) und die Combobox öffnet sich, dann kann ich nur einen Teil meiner Einträge sehen, (in der Breite gesehen) weil meine Daten, die ich einlese, breiter sind , ( mehr Zeichen haben) als die Combobox hergibt.
Natürlich könnte ich meine ganze Combobox einfach in die Breite ziehen und grösser machen, sie sollte aber genau in meine Spalte, da wo die drin ist, reinpassen.
Gibt es eine Möglichkeit, das Fenster , wenn die Combobox aufklappt, so breit zu machen, wie der breiteste Eintrag der eingelesen wurde, bezw. in der Combobox steht.
Ich hoffe, ich konnte das einigermassen erklären.
Danke mal für Eure Hilfe
Joachim

Bild

Betrifft: Nicht moeglich!
von: Johannes D.
Geschrieben am: 13.06.2008 16:10:52
Hallo Joachim,
es ist leider nicht moeglich, da Controls in Office kein .hwnd (eine eindeutige ID) besitzen und man sie ueber die WinApi nicht ansprechen kann. Wenn sich die Combobox auf einer Userform befinden wuerde, koennte man ueber Tricks vielleicht zum gewuenschtem Ergebnis kommen, aber waere auch von hinten durchs Knie gebohrt. Bei, in Sheets eingebetteten, Controls (OLEObjects("...")) existiert leider ueberhaupt keine dahingehende Moeglichkeit.
Ich lass die Frage aber mal offen - falls noch ein VBA Hexenmeister vorbeikommt ... :-)
Gruesse,
Johannes

Bild

Betrifft: AW: Nicht moeglich!
von: Reinhard

Geschrieben am: 13.06.2008 16:28:46
Hi Joachim,
meinst du das vom Ansatz her so: https://www.herber.de/bbs/user/53046.xls
Datei hat diesen Code in Modul von Tabelle1 (Eine Combobox auf tabelle1):


Option Explicit
Private Sub ComboBox1_Change()
ComboBox1.Width = 50
End Sub
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Merker = ComboBox1.Width
ComboBox1.Width = 200
End Sub


Gruß
Reinhard

Bild

Betrifft: AW: Breite einer Combobox beim öffnen definieren
von: Tino
Geschrieben am: 13.06.2008 16:34:12
Hallo,
man könnte ja eine unsichtbare TextBox nehmen, bei dieser den Auto Size auf True stellen, an diese
den größten Text übergeben (Anzahl Zeichen sollte in der Regel ausreichen) und von dieser den Width Wert übernehmen.
Beim Verlassen der Combo den alten Wert, der zuvor in einer Variablen gespeichert wurde, die alte Größe wieder herstellen.
Naja nicht die feine englische Art, könnte aber Funktionieren habe es aber nicht getestet.
Gruß Tino
www.tinomargit.com

Bild

Betrifft: AW: Breite einer Combobox beim öffnen definieren
von: Tino

Geschrieben am: 13.06.2008 18:08:37
Hallo,
hier mal ein kleines Beispiel, erstellt unter Office2007.
https://www.herber.de/bbs/user/53050.xls
Gruß Tino
www.tinomargit.com

Bild

Betrifft: AW: Breite einer Combobox beim öffnen definieren
von: Uduuh
Geschrieben am: 13.06.2008 18:03:08
Hallo,
die CB hat auch eine Eigenschaft Listwidth. Passe diese an deine Text an.
Gruß aus’m Pott
Udo


Bild

Betrifft: Danke für Eure Hilfe, das ist genau das Gesuchte
von: Joachim

Geschrieben am: 13.06.2008 19:56:46
:-)

 Bild

Excel-Beispiele zum Thema "Breite einer Combobox beim öffnen definieren"

Spaltenbreite anpassen download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Diagramm aus Daten einer Bandbreite bilden download Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen download
ComboBox-Breiten während der Laufzeit festlegen download Spaltenbreiten der nicht ausgeblendeten Spalten anpassen download
ComboBox als Symbol download Alle ComboBoxes auf Position 1 download
Werte in eine ComboBox einer UserForm übernehmen download ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden download
ComboBox mit Monatsnamen füllen download Mehrspaltige ComboBox download
ComboBox2 in Abhängigkeit von ComboBox1 bestücken download Nur Zellen mit Inhalt in ComboBox listen download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Neues Element in ComboBox download
Werteübernahme gem. Auswahl in ComboBox - ohne VBA download Blätter in ComboBox-Feld einlesen und auswählen download
Wert in einer CommandBarComboBox verändern download ComboBox-Felder in UserForm aufklappen download
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
In einer ComboBox selektiertes Arbeitsblatt auswählen download ComboBox in Abhängigkeit von einer CheckBox anzeigen download
Adressfeld aus UserForm-ComboBox füllen download Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen download
UserForm mit ComboBoxes durch VBA-Code erstellen download ComboBoxes per VBA-Code in Tabellenblatt erzeugen download
ComboBox für Monatsblattauswahl in Menüleiste einfügen download Wert aus ComboBox in Tabelle eintragen download
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download Symbolleiste mit ComboBox erstellen download
Werte in UserForm-ComboBox einlesen und ausgeben download Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes download
Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert download UserForm-ComboBoxes als Collection-Objekte ansprechen download
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle download Zweidimensionales Array an UserForm-ComboBox übergeben download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Wert aus ComboBox in TextBox, dann in Tabelle suchen download
Summe aller Werte gem. ComboBox-Eintrag download Geöffete Arbeitsmappen in Menü-ComboBox listen download
Tabelle nach ComboBox-Auswahl durchsuchen download Blattauswahl über eine UserForm-ComboBox download
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download Doppelt vorkommende Werte in einer UserForm-Combobox listen download
Selektieren von über ComboBox-Felder ausgewählten Werten download Nach Artikelauswahl in ComboBox Preis ermitteln download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Liste ohne Doppelte Werte in ComboBox einlesen download
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen download
Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download