wieviele items bzw einträge können in einer listbox maximal stehen?
unendlich?
Code aus Formular UserForm1: |
Option Explicit Private Sub CommandButton1_Click() Dim d As Double On Error GoTo fehler For d = 1 To 100000 Step 1 ListBox1.AddItem d Label1.Caption = d Next Exit Sub fehler: End Sub |
Code aus Formular UserForm1: |
Option Explicit Private Sub CommandButton1_Click() Dim d As Double Dim sum As Double Dim s As String sum = 0 On Error GoTo fehler For d = 1 To 100000 Step 1 s = "Ich bin der " & d & "te Text" ListBox1.AddItem s sum = sum + Len(s) Label1.Caption = sum Next Exit Sub fehler: End Sub |