PCWADIMA.DOT

Dieses Thema im Forum "Ihre Meinung zu Artikeln auf pcwelt.de" wurde erstellt von ra-raisch, 30. März 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. ra-raisch

    ra-raisch Byte

    Registriert seit:
    27. November 2003
    Beiträge:
    58
    gutes makro aber leider mit Fehler in Zeile 3 (redim ...), richtig wie folgt:

    Private Sub UserForm_Activate()
    Dim AddInArray As Variant
    ReDim AddInArray(AddIns.Count - 1, 1)
    For i = 0 To AddIns.Count - 1
    AddInArray(i, 0) = AddIns.Item(i + 1).Name
    If AddIns.Item(i + 1).Installed Then AddInArray(i, 1) = "geladen"
    Next
    lbAddin.List() = AddInArray
    End Sub
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen