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

Listbox auf UserForm

Forumthread: Listbox auf UserForm

Listbox auf UserForm
Gunter
Hallo Zusammen,
ich habe auf einer UserForm eine Listbox welche in der Grösse nicht geändert werden darf. Daher möchte ich, dass die Schriftgrösse sich automatisch an die Listbox anpasst.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listbox auf UserForm
03.12.2009 20:39:41
Ramses
Hallo
Die Grösse der Listbox ändert sich doch nicht, und der Benutzer kann das ja auch nicht.
Also wozu die Schriftgrösse per VBA anpassen ?
Stell doch die Grösse einfach ein ?
Gruss Rainer
AW: Listbox auf UserForm
03.12.2009 21:29:37
Gunter
Hallo Rainer,
ich möchte das die Schriftgrösse sich automatisch anpasst, da unterschiedlich langer Text eingetragen werden kann und er sonst abgeschnitten wird.
Gruss
Gunter
Anzeige
?
03.12.2009 21:49:19
Ramses
Hallo
In eine Listbox kann kein Text eingetragen werden
Gruss Rainer
AW: ?
03.12.2009 22:03:23
Gunter
Hallo Rainer,
die Listbox ist auf einer UserForm und wird bei der Initialisierung der UF mit Text aus der Tabelle gefüllt und dieser kann unterschiedlich lang sein. Bisher musste ich immer umständlich die Schriftgrösse im VBA Editor anpassen und das möchte ich automatisieren.
Gruss
Gunter
Anzeige
AW: ?
03.12.2009 22:24:28
Gunter
Ich hab vergessen die Frage noch offen zu markieren.
Try and Error
03.12.2009 23:11:17
Ramses
Hallo
Da musst du schauen bei wieviel Text du welche Schriftgrösse brauchst. Automatisch geht da nichts.
Die Textlänge was dargestellt werden soll, kannst du ja vorher abfragen.
Die Textgrösse ist aber gültig für die ganze Box und nicht für einzelne Felder
Gruss Rainer
Anzeige
AW: Try and Error
03.12.2009 23:32:49
Gunter
Eigentlich hatte ich gehofft, dass das einfach geht, da ja Text in der Tabelle so formatiert werden kann, dass er sich an die Zellgrösse anpasst. Aber die Idee mit der max. Zeichenanzahl bei entsprechener Schriftgrösse und damit Bereiche definieren werde ich mal ausprobieren. Vielen Dank.
Gruss
Gunter
Anzeige
AW: Try and Error
03.12.2009 23:50:17
fcs
Hallo Gunther,
die erforderlichen Einstellungen für die Schriftgröße hängen unter anderem von der Schriftart der Listbox und der Bildschirmauflösung ab. Also wie schon von Rainer geschrieben etwas rumprobieren.
Eine andere Möglichkeit das "Abschneiden" von Text zu verhindern.
Stelle die Eigenschaften der Listbox entsprechend ein, so dass man ggf. scrollen kann um den vollständigen text zu sehen.
With 100
ColumnWidth 200 Pt
Gruß
Franz
Makrobeispiel für Userfom-Listboxeinstellung beim Aktivieren. 
Private Sub UserForm_Activate()
Dim intI As Long, MaxLength As Long
With ListBox1
For intI = 0 To .ListCount - 1
If Len(.List(intI, 0)) > MaxLength Then MaxLength = Len(.List(intI, 0))
Next
.ColumnWidths = .Width - 5 & "Pt"
'Beispiel für Listenbreite ca. 70
Select Case MaxLength
Case Is

Anzeige
;

Forumthreads zu verwandten Themen

Listbox
Klaus

Hallo,
wie kann ich dafür sorgen, dass der Fokus einer Listbox beim öffnen auf dem gleichen Index liegt, wie beim Verlassen?
MfG. Klaus
08.08.2008 19:25:00
Thread-ID: 1000396
5 Beiträge
Anzeige
Komplette ListBox an Tabelle
Chris

Hallo Zusammen,
Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
Gruß
Christian
13.08.2008 07:33:00
Thread-ID: 1001355
4 Beiträge
Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
Anzeige
Daten in Listbox
Henner

Hi,
ich öffne aus einer UF heraus per CommandButton eine zweite UF (UF_CLRMemo), in der sich eine Listbox befindet mit dem Code:
Private Sub CBCLRMemo_Click() For i = 84 To 93 UF_CLRMemo.ListBox1.AddItem Sheets("UF_NeuesProjekt").Cells(i, 1).Value Next UF_CLRMemo.Show End Sub
Wie...
08.09.2008 15:35:00
Thread-ID: 1008180
3 Beiträge
Bestimmte Fonts in ListBox übernehmen
Larsinator

Hallo zusammen,
ich möchte alle mit "C" beginnenden Fonts in eine ListBox schreiben.
Mit der getroffenen Auswahl soll dann Zelle C5 formatiert werden.
Kann mir jemand einen Tipp geben, wie ich mit den Fonts entsprechend umgehen kann?
Danke schon mal...
09.09.2008 18:02:55
Thread-ID: 1008558
2 Beiträge
Anzeige
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Listbox
Beat

hallo zusammen
das Einlesen eines Tabellenbereichs in eine Listbox klappt problemlos.
Jetzt möchte ich einzelne Zeilen der Listbox editieren.
Ist das möglich?
Wenn nicht, möchte ich einzelne Zeilen in Textboxen ausgeben. Wie kann ich
die einzelne Zeilen übertragen?
Grus...
29.09.2008 15:32:00
Thread-ID: 1013140
10 Beiträge
Anzeige
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
ListBox - Multiselect 1
Josef

Hallo!
In einer UF werden in eine Listbox Daten eingelesen. In der Listbox ist die Eigenschaft MultiSelect auf 1 eingestellt.
1.) Gibt es bitte eine Möglichkeit, mittels eines Befehls in alle Kästchen (CheckBoxen?) gleichzeitig ein Hakerl zu setzen?
2.) Wird ein Hakerl am Anfang des...
02.10.2008 10:39:00
Thread-ID: 1013807
3 Beiträge
Listboxeintrag korrigieren
beat

Hallo
ich möchte in einer listbox eingetragene Werte anpassen. Dazu markiere ich eine Listbox-Zeile und
schreibe die Werte in zwei Textboxen. In diesen Textboxen können die Werte korrigiert werden. Anschliessend möchte ich die korrigierten Werte wieder in die Listobox eintragen, und z...
03.10.2008 11:25:00
Thread-ID: 1013998
7 Beiträge
Listbox / Tabelle Eintrag ändern
Volker

Hallo zusammen,
ich habe folgendes Problem:
Ich versuche mittels folgendem Code Daten aus einer UF-Listbox in die dazugehörenden Textboxes zurückzuschreiben, hier zu ändern und dann in die Tabelle zurückzugeben.
Bei den ersten 4 Zeilen der Tabelle funktioniert das auch. Ab dem 5. E...
06.10.2008 14:20:00
Thread-ID: 1014441
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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