Mauszeiger als "Hourglass"
23.02.2006 14:21:56
ingo
warum funktioniert es im folgenden Code nicht, dass bei Ausführung, die Sanduhr angezeigt wird.
Private Sub CB4_Click()
If CB4.Caption = "Variablenliste" Then
If OptionButton1.Value = True Then
ListBox1.Visible = True
CB4.Caption = "ausblenden"
ListBox1.Clear
Para.MousePointer = fmMousePointerHourGlass 'sobald diese Schleife
'läuft soll die Sanduhr angezeigt werden
While Sheets("Variablenliste a.P.").Cells(2 + i, 3) <> ""
With ListBox1
.ColumnCount = 2
.AddItem Sheets("Variablenliste a.P.").Cells(i + 2, 5)
.ColumnWidths = "390;40"
.Font.Size = 12
.List(i, 1) = Sheets("Variablenliste a.P.").Cells(i + 2, 3)
End With
i = i + 1
Wend
Para.MousePointer = fmMousePointerDefault
End Sub