Excel kann Makro nicht finden
17.03.2004 12:18:58
Gordon
ich habe eine Exceldatei in der Platzhalter in der Form [br] vorhanden sind. Diese möchte ich mit Hilfe eines Makros global durch einen Zeilenumbruch ersetzen. Der Code dafür ist mir klar. Nun möchte ich diese Funktionalität auf mehreren Rechnern benutzen können. Ich habe dann ein Add-In erzeugt, dass mir beim Start von Excel eine Schaltfläche auf der Standardleiste erzeugt. Wenn ich diese betätige, sollte die Funktion zum Ersetzen aufgerufen werden - wird sie aber nicht, denn Excel beschwert sich, dass es das Makro nicht finden konnte.
Der Code steht komplett in DieseArbeitsmappe im Projekt Umbrueche.xla wenn ich den VBA Editor öffne.
Private Sub Workbook_Open()
On Error Resume Next
Dim CB As CommandBar
Dim CBC As CommandBarButton
Set CB = Application.CommandBars("Standard")
Set CBC = CB.Controls.Add(Type:=msoControlButton, Temporary:=True)
With CBC
.Caption = "Platzhalter entfernen"
.OnAction = "Umbrueche"
.Style = msoButtonCaption
.FaceId = 59
End With
CB.Visible = True
End Sub
Sub Umbrueche()
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Cells.Replace What:="[br]", Replacement:=Chr(10), LookAt:=xlPart, MatchCase:=False
Next
End Sub
Das Problem ist wie gesagt, dass sich das Add-In zwar anstandslos einbinden lässt, aber bei Aufruf der Sub Umbrueche die Fehlermeldung kommt, dass Excel das Makro nicht finden kann.
Was mache ich falsch?
Vielen Dank,
Gordon