VBA Application.ActiveDialog

huhu

Ne frage. Es geht um Excel 2000. Ich habe hier in einem Dialog ein DrowDown Feld... wie ihr unten sehen könnt füge ich da in einer schleife etwas hinzu. Das Problem: Ich kann die liste nicht clearen. Wieso nicht? Ich kann doch auch adden. jemand ne idee?

Sub Test()

  Dim m As Boolean

  Dim i As Integer

  Dim r As String


  i = 4

  m = True


    With Application.ActiveDialog

    .[Sachkonto].Clear

      While m = True

        If Sheets("Kostenart").Cells(1, i) = "" Or IsNull(Sheets("Kostenart").Cells(1, i)) Then

          m = False

        Else

          .[Sachkonto].AddItem Sheets("Kostenart").Cells(1, i) & ", " & Sheets("Kostenart").Cells(2, i), .[Sachkonto].ListCount

        End If

      i = i + 1

      Wend

    End With


End Sub