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