Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform-Listbox

Userform-Listbox
03.10.2003 09:44:45
Max
Hallo an alle Spezialisten,
Eine Userform-Listbox wird mit Daten gefüllt, die in 3 Spalten des Tabellenblattes stehen. Die Anzeige der Userform ist aber nicht zufriedenstellend, weil lange Wörter bzw. Sätze aus Spalte 1 "abgeschnitten" werden.

Beispiel:
*********** Verben und Verbzusammensetzungen

ist nur mehr lesbar als:

*********** Verben und Verbz

Eine zusätzliche Darstellung meines Problems bietet diese Abbildung:

mit freundlichen Grüßen,
Max

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform-Listbox
03.10.2003 09:49:28
Hajo_Zi
Hallo Max

Deine Wörter sind bestimmt über 3 Spalten zentriert und das kann die Listbox nicht darstellen.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Userform-Listbox
03.10.2003 09:57:03
Max
Danke Hajo,
aber in meiner Tabelle, die eingelesen wird in die Listbox gibt es keine Zentrierungen oder Verbindungen in den betroffenen Zellen.
mfG
Max
AW: Userform-Listbox
03.10.2003 10:02:25
Hajo_Zi
Hallo max

dann mach es so wie ans es geschrieben hat. Mache die Spalte breiter.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Userform-Listbox
03.10.2003 09:51:16
Hans W. Herber
Hallo Max,

die ListBox hat eine Eigenschaft ColumnWidths, bei der Du die Spaltengröße bestimmen kannst. Um nähere Informationen zu bekommen, setze den Cursor auf ColumnWidths und drück F1.

gruss hans
AW: Userform-Listbox
03.10.2003 10:03:59
Max
Hallo Hans,
Die Eigenschaft Columnwidth kenn ich schon, aber damit wird mein Problem nicht gelöst:
wenn ich Spalte 1 so breit mache, wird die Userform unübersichtlich und unattraktiv.
Spalte 1 ist 130Pt.
Spalte 2 ist 1Pt. (kein Schreibfehler, sie ist eine leere Spalte)
Spalte 3 ist 250 Pt.
so ist das von mir festgelegt: lstValues.ColumnWidths = "130;1;250"

Das Problem ist aber der "abgeschnittene" Text aus Spalte 1,

mfG
Max
Anzeige
AW: Userform-Listbox
03.10.2003 10:08:44
Hans W. Herber
Hallo Max,

dann kann ich es mir nur so erklären, dass die von Dir angegebenen Spaltenbreiten im Widerspruch zu der Breite der ListBox stehen, bitte überprüfen.

gruss hans
AW: Userform-Listbox
03.10.2003 10:15:40
Max
Hallo Hans,
Ich kann da aber keinen Widerspruck erkennen:
Wenn die Listbox-width mit 340 Pt. festgelegt ist, und ich meine Spalten mit width ColumnWidths = "130;1;250" einstelle, so ist das zwar eine Überschreitung meiner 340 Pt.,
aber dafür stellt mir die UserForm bei der Anzeige einen Laufbalken zur Verügung, mit dem ich dann weiter nach rechts rollen kann, siehe meine Abbildung eingangs.

mfG
Max
Anzeige
AW: Userform-Listbox
03.10.2003 10:21:15
Hans W. Herber
Hallo Max,

genau das ist der Widerspruch. Bei der ColumnWidths-Anweisung wird die Scroll-Möglichkeit nicht berücksichtigt.

gruss hans
AW: Userform-Listbox
03.10.2003 10:25:39
Max
Hallo Hans,
Muß sagen: leider! Habe die ColumnWidths auf 400 Pt. gestellt, aber mein Text aus Spalte 1 wird weiterhin abgeschnitten.

mfG
Max
AW: Userform-Listbox
03.10.2003 10:31:11
Hans W. Herber
Hallo Max,

da es sich ja nicht um allzu sensible Daten handelt, solltest Du die Datei entweder auf den Server stellen oder mir zumailen. Ich seh mir das Viech mal an.

gruss hans
AW: Userform-Listbox
03.10.2003 11:37:34
Max
Hallo Hans,
bitte sehr, hier ist die Datei
https://www.herber.de/bbs/user/1275.xls

allerdings läßt sich die Userform zZ gar nicht aufrufen, bitte probier mal,
ich kann die Ursache einfach nicht feststellen ...
Laufzeitfehler 380 usw.

mfG
Max
Anzeige
AW: Userform-Listbox
03.10.2003 11:58:46
Hans W. Herber
Hallo Max,

nach meinem Eindruck werden die ColumnWidth-Einstellungen korrekt übernommen. Geht die Gesamtanzahl der Points über die Breite der ListBox hinaus bzw. ist gleich, erscheint der horizontale Scrollbalken, sonst nicht. Möglicherweise musst du, da vermutlich eine proportionale Angleichung erfolgt, etwas rumexperimentieren.

gruss hans
AW: Userform-Listbox
03.10.2003 12:00:43
Hajo_Zi
Hallo Max

ändere Deinen Code wie folgt.
Option Explicit


Private Sub cmdCancel_Click()
Unload Me
End Sub




Private Sub UserForm_Initialize()
Dim wksL As Worksheet
With ThisWorkbook.Worksheets("Leo")
'   lstValues.List = wksL.Range("F14:I23").Value
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iCol As Integer, iRowU As Integer
lstValues.ColumnWidths = "130;0;250"
lstValues.Clear     ' warum Clear, Ini. wird nur beim ersten Start der UF augeführt
iRowL = WorksheetFunction.CountA(.Columns(7))
For iRow = 12 To iRowL + 12
If Not IsEmpty(.Cells(iRow, 7)) Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = .Cells(iRow, 7)
arr(1, iRowU) = .Cells(iRow, 8)
arr(2, iRowU) = .Cells(iRow, 9)
iRowU = iRowU + 1
End If
Next iRow
lstValues.Column = arr
End With
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Userform-Listbox
03.10.2003 12:17:59
Max
Hallo Hajo,
Aber nach wie vor werden Texte "abgeschnitten", das ist doch meine eigentliche Frage.
Wenn ich in Spalte 1 meiner Tabelle stehen habe:

*********** Zusammengesetzte Einträge
jedoch in meiner mehrspaltigen UserForm-Listbox nur mehr zu lesen ist:
*********** Zusammengesetzte Eint
dann wurde hier was "abgeschnitten" nämlich «räge»

mfG
Max
AW: Userform-Listbox
03.10.2003 12:19:59
Hajo_Zi
Hallo Max

ich bezog mich nur auf den Text das die Userform nicht läuft. Zu Deinem Problem kann ich nichtts anderes schreiben als bisher. Den Text den Du in die Spalte schreiben willst ist zu breit für die erste Spalte.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige