Listbox nicht breit
13.02.2014 11:39:39
Kurt
habe mir mal eine UF im Netz gesucht und bin fündig geworden.
Wenn ich per Button:
Sub Test_Neu_anzeigen()
UserFormNeu.Show
End Sub aufruf, wird die Listbox nicht GROß.
Wenn ich das Makro einzeln ablaufen lasse, wird die Listbox groß
wie im Makro beschrieben.
Wieso ?
Private Sub UserForm_Initialize()
Dim iIndex As Integer
'--------------- für Bildschirmanpassung --------------------------------------
Dim hwndForm As Long, hwndMenu As Long
Dim intY, intLast, intNext As Integer
' On Error Resume Next
'With UserFormNeu
' .StartUpPosition = 0
' .Top = 0
' .Left = 0
' .Height = GetDeviceCaps(GetDC(0&), 8)
' .Width = GetDeviceCaps(GetDC(0&), 10)
' End With
' ReleaseDC 0, GetDC(0&)
'hwndForm = FindWindow(vbNullString, Me.Caption)
'------------ ab hier festgelegt, UF kann nicht verschoben werden ----------------
'If hwndForm 0 Then
' hwndMenu = GetSystemMenu(hwndForm, 0)
' If hwndMenu 0 Then DeleteMenu hwndMenu, &HF010, &H0
' End If
Dim vTemp As Variant
With ThisWorkbook.Worksheets("Test")
vTemp = .Range("A3:Y" & .Cells(Rows.Count, 1).End(xlUp).Row)
ListBox1.List = vTemp
End With
With ListBox1 ' betrifft die ListBox1
' .Height = 360 ' die Höhe festlegen
.Left = 12 ' den linken Randabstand festlegen
' .Top = 110 ' den oberen Randabstand festlegen
.Width = 780 ' die Breite festlegen
.Font.Size = 8 ' die Schriftgröße festlegen
.ForeColor = RGB(0, 0, 255) ' Schriftfarbe immer mit RGB
.ColumnCount = 25 ' die Anzahl der Spalten festlegen
' die Breite der Spalten festlegen
.ColumnWidths = "1cm;6cm;1cm;1cm;3cm;3cm;2cm;2cm;4cm;" & _
"2cm"
End With
End Sub