Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scrollbar in Listbox verhindern

Forumthread: 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
Anzeige

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
Anzeige
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
;

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