Microsoft Excel

Herbers Excel/VBA-Archiv

Add in über Symbolleiste | Herbers Excel-Forum


Betrifft: Add in über Symbolleiste von: Jürgen
Geschrieben am: 20.10.2008 19:04:21

Hallo Zusammen,

sorry, ich muss nochmal nachfragen.

Ich komm nicht weiter. Irgendwie haut das so nicht hin. Wenn ich das Add in so wie es unten steht in Excel über den Add-In Manager hinzufüge, passiert erstmal gar nichts (Fehler1).

Wenn ich es manuel über den VBA Editor Starten lasse dann läuft es logischerweise ganz durch(Fehler2)

Wenn ich es bis zum Anfang der eigentlichen Tabellenfunktionen laufen lasse, kommt zwar der Eintrag im Menü. Aber wenn ich da drauf klicke, dann passiert nichts (Fehler3)

Kann mir jemand helfen?

Schön wäre es auch, wenn das Add in ein eigenes Icon bekommen würde!

Hier der Code:

Sub Workbook_Open()

Dim MyAddinName As String

MyAddinName = "CSV->XLS"

If AddIns(MyAddinName).Installed Then
On Error Resume Next
 MenuBars(xlWorksheet).Menus("Extras").MenuItems.Add Caption:="CSV->XLS"
End If

    Cells.Select
    Selection.AutoFilter
    Cells.EntireColumn.AutoFit
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    
        With ActiveWorkbook
    
        .SaveAs Left(.FullName, Len(.FullName) - 4) & ".xls", xlWorkbookNormal

        End With

    
End Sub


  

Betrifft: AW: Add in über Symbolleiste von: Achim
Geschrieben am: 20.10.2008 20:09:06

Hi,

nimm mal das On Error raus, dann merkst du es.

mfg Achim


  

Betrifft: AW: Add in über Symbolleiste von: Uduuh
Geschrieben am: 20.10.2008 22:12:18

Hallo,
siehe.OnAction- und .Faceid-Eigenschaft des Controls

Gruß aus’m Pott
Udo



Beiträge aus den Excel-Beispielen zum Thema "Add in über Symbolleiste"