Moin Moin zusammen!
Ich habe folgendes Problem. Ich habe mit Office 2010 ein Makro progamiert und es als Add In gespeichert. Dieses habe ich im Format XLA gespeichert da ich es auf einem Excel 2003 System installieren muss. Die Installation habe ich bereits erledigt und im Add In Manager wird es auch gefunden. Haken dran und gut ist. Leider kreiert sich jedoch kein Eintrag im Menü um eben dieses Add In zu starten?! Woran kann das liegen....Quellcode habe ich mal hinzu gefügt.
Danke vorab
der absolute Neuling!
Sub auto_open()
Dim ix As Integer
Dim FoundFlag As Boolean
Dim ANLMenu As Object
Dim ANLExec As Object
For ix = 1 To CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(ix).Caption = "BrokenCalls" Then
CommandBars("Worksheet Menu Bar").Controls(ix).Delete
Exit For
End If
Next
For ix = 1 To CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(ix).Caption = "&?" Then
Set ANLMenu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=ix, Temporary:=True)
ANLMenu.Caption = "BrokenCalls"
Set ANLExec = ANLMenu.CommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
ANLExec.Caption = "Report aufbereiten"
ANLExec.OnAction = "Main"
End If
Next
End Sub
Public Sub Main()
x = 1
HdgFound = False
While x < Application.ActiveSheet.UsedRange.Rows.Count
Value = Mid$(ActiveSheet.UsedRange.Cells(x, 1), 1, 10)
If Value = "Datum " Then
If HdgFound Then
ActiveSheet.UsedRange.Rows(x).Delete
Else
x = x + 1
End If
HdgFound = True
Else
If Not (Mid$(Value, 3, 1) = "." And Mid$(Value, 6, 1) = ".") Then
ActiveSheet.UsedRange.Rows(x).Delete
Else
x = x + 1
End If
End If
Wend
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(19, 1), Array(34, 1), Array(79, 1), _
Array(89, 1), Array(100, 1), Array(111, 1), Array(116, 1), Array(122, 1)), _
TrailingMinusNumbers:=True
End Sub
Ich habe folgendes Problem. Ich habe mit Office 2010 ein Makro progamiert und es als Add In gespeichert. Dieses habe ich im Format XLA gespeichert da ich es auf einem Excel 2003 System installieren muss. Die Installation habe ich bereits erledigt und im Add In Manager wird es auch gefunden. Haken dran und gut ist. Leider kreiert sich jedoch kein Eintrag im Menü um eben dieses Add In zu starten?! Woran kann das liegen....Quellcode habe ich mal hinzu gefügt.
Danke vorab
der absolute Neuling!
Sub auto_open()
Dim ix As Integer
Dim FoundFlag As Boolean
Dim ANLMenu As Object
Dim ANLExec As Object
For ix = 1 To CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(ix).Caption = "BrokenCalls" Then
CommandBars("Worksheet Menu Bar").Controls(ix).Delete
Exit For
End If
Next
For ix = 1 To CommandBars("Worksheet Menu Bar").Controls.Count
If CommandBars("Worksheet Menu Bar").Controls(ix).Caption = "&?" Then
Set ANLMenu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=ix, Temporary:=True)
ANLMenu.Caption = "BrokenCalls"
Set ANLExec = ANLMenu.CommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
ANLExec.Caption = "Report aufbereiten"
ANLExec.OnAction = "Main"
End If
Next
End Sub
Public Sub Main()
x = 1
HdgFound = False
While x < Application.ActiveSheet.UsedRange.Rows.Count
Value = Mid$(ActiveSheet.UsedRange.Cells(x, 1), 1, 10)
If Value = "Datum " Then
If HdgFound Then
ActiveSheet.UsedRange.Rows(x).Delete
Else
x = x + 1
End If
HdgFound = True
Else
If Not (Mid$(Value, 3, 1) = "." And Mid$(Value, 6, 1) = ".") Then
ActiveSheet.UsedRange.Rows(x).Delete
Else
x = x + 1
End If
End If
Wend
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(19, 1), Array(34, 1), Array(79, 1), _
Array(89, 1), Array(100, 1), Array(111, 1), Array(116, 1), Array(122, 1)), _
TrailingMinusNumbers:=True
End Sub