Probleme beim Listbox füllen
29.06.2004 13:21:48
Sven
ich habe folgendes Problem.
Ich habe eine Userform mit einer Liastbox. Diese möchte ich mit Werten füllen und die Userform dann anzeigen.
Der Code kläuft fehlerfrei durch, nur die Listbox bleibt leer, wenn die Userform angezeigt wird.
Wäre toll, wenn sich jemand mal den Code ansehen könnte.
Vielen Dank schonmal.
Gruß
Sven
Sub Test()
With frmtest
.Caption = APP_NAME
.Tag = "Test"
.Show
End With
End Sub
Option Explicit
Dim lngAktGroesseVorname As Long
Private Sub UserForm_Initialize()
'Fehlerverfolgung ausschalten
On Error Resume Next
With Me
'am rechten oberen Rand des Anwendungsfensters starten
.StartUpPosition = 0
.Left = Application.Width - .Width
.Top = 0
lngAktGroesseVorname = ActiveDocument.Bookmarks("Vorname").Range.Font.Size
'Listenfeld einrichten
With .lstAutoGroesse
'Zwei Spalten
.ColumnCount = 2
'Spaltenbreiten festlegen; erste Spalte unsichtbar
.ColumnWidths = "0;-1"
'Jeweils Größe in die zweite Spalte schreiben
.List(.ListCount - 1, 1) = "1"
.List(.ListCount - 1, 1) = "2"
.List(.ListCount - 1, 1) = "3"
.List(.ListCount - 1, 1) = "4"
.List(.ListCount - 1, 1) = "5"
.List(.ListCount - 1, 1) = "6"
.List(.ListCount - 1, 1) = "16"
'Listenfeld auf aktuellen Wert einstellen
.Value = lngAktGroesseVorname
End With
End With
End Sub
Private Sub cmdOK_Click()
'Bei Klick auf 'OK' Userform entladen
Unload Me
End Sub
Private Sub cmdCancel_Click()
'Userform entladen
Unload Me
End Sub