Praxistipps | Standardprozeduren | Microsoft-Text | Beispiele | Elemente |
Private Sub UserForm_Initialize() Dim iMonth As Integer For iMonth = 1 To 12 ListBox1.AddItem Format(DateSerial(1, iMonth, 1), "mmmm") Next iMonth End Sub
Private Sub UserForm_Initialize() Dim lDay As Long Dim iCounter As Integer Dim arr(1 To 2, 1 To 7) As Variant For lDay = Date To Date + 6 iCounter = iCounter + 1 arr(1, iCounter) = Format(lDay, "dd.mm.yyyy") arr(2, iCounter) = Format(lDay, "dddd") Next lDay With ListBox1 .ColumnCount = 2 .Column = arr End With End Sub
Private Sub UserForm_Initialize() ListBox1.List = Range("A1").CurrentRegion.Columns(1).Value End Sub
Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 2 .List = Range("A1").CurrentRegion.Columns("A:B").Value End With End Sub
Die Beispiele zum Einsatz von ListBoxes