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

Listfeldbreite mit Scrollbalken

Forumthread: Listfeldbreite mit Scrollbalken

Listfeldbreite mit Scrollbalken
18.02.2004 16:43:32
PeterS
Hallo
kann man einem Listfeld eine Scrollbalken für die Breite zufügen, der automatisch erscheint, wenn der Inhalt breiter als das eigetliche Listfeld ist?
Gruss Peter
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listfeldbreite mit Scrollbalken
18.02.2004 18:35:25
andre
hallo peter,
dann musst du die spaltenbreite dynamisch anpassen - geht aber nur mit vba.
du kannst z.b. die anzahl der buchstaben des feldes zählen und danach die breite grob schätzen.
hier mal ein codeschnipsel von einer datenbankabfrage.


For Each feld In RS.Fields      ' Spaltengrösse der Listbox einstellen
     If feld.Type = Date Then
          FeldGroesse = 5 * feld.Size + 25   ' summand für rand, bei datum zzgl
     ElseIf feld.Type = dbMemo Then             ' Platz fuer Punkte
          FeldGroesse = 200                  ' Feldtyp Beschreibung DB-Size = 0!!
     Else                                       ' da Länge dieses Typ's variabel ist
          FeldGroesse = 5 * feld.Size + 15
     End If
     If lstInh.ColumnWidths = "" Then      ' erste Groesse ohne Semikolon
           lstInh.ColumnWidths = FeldGroesse
     Else
           lstInh.ColumnWidths = lstInh.ColumnWidths & ";" & FeldGroesse
     End If
Next

     Code eingefügt mit Syntaxhighlighter 2.5

gruss andre
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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