Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Scrollbar in Listbox verhindern

Scrollbar in Listbox verhindern
28.05.2004 11:31:40
Robert
Hallo,
ich verwende eine Listbox, die für den Anwender immer enabled = False ist. Leider enthält sie soviel Spalten, dass sich ein Scrollbar zeigt. Kann ich das verhindern, oder muss ich weniger Spalten anzeigen lassen?
Gruß Robert

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scrollbar in Listbox verhindern
Kurt
Scrollbars werden automatisch erzeugt, wenn der Platz nicht reicht,
das läßt sich nur ändern, indem du weniger Spalten anzeigst(Breite z.B.
auf 0 setzen).
Kurt
AW: Scrollbar in Listbox verhindern
28.05.2004 11:57:34
Robert
Hallo Kurt,
danke für Deine schnelle Antwort(wie immer).
Du hast mich auf eine Idee gebracht: Ich werde die Breite der Spalten abfragen und mit der Breite der Listbox vergleichen...
Gruß aus dem sonnigen Berlin, Robert
AW: Scrollbar in Listbox verhindern
Kurt
Das wird aber eine Fummelei, da die Maße in Tabellen und userform nicht identisch sind.
Kurt
AW: Scrollbar in Listbox verhindern
28.05.2004 12:07:58
Robert
Die Fummelei habe ich schon hinter mir:
------------------------------------------
Dim CW As String
Cells.EntireColumn.AutoFit
For loopi = Asc("A") To Asc("H")
If CW = "" Then
CW = Columns("A:A").ColumnWidth / 3 & "cm"
Else
CW = CW & ";" & Columns(Chr(loopi) & ":" & Chr(loopi)).ColumnWidth / 5 & "cm"
End If
Next loopi
-------------------------------------
Das sieht ganz gut aus in der Listbox.
Gruß Robert
Anzeige
Glückwunsch oT
Kurt
oT

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige