Thema Datum  Von Nutzer Rating
Antwort
Rot VB Editor Toolbar Button not executing
 06.03.2026 21:11:44 Diana
NotSolved
07.03.2026 09:51:26 Gast72430
NotSolved
07.03.2026 12:38:01 Gast18893
NotSolved
07.03.2026 13:38:30 Diana
NotSolved
08.03.2026 01:29:28 xlKing
Solved
08.03.2026 01:44:05 xlKing
NotSolved
09.03.2026 00:44:16 xlKing
Solved
09.03.2026 19:29:28 Gast10955
NotSolved
09.03.2026 23:38:29 xlKing
NotSolved
10.03.2026 10:16:13 Gast72430
NotSolved

Ansicht des Beitrags:
Von:
Diana		 Datum:
06.03.2026 21:11:44		 Views:
90		 Rating:
     
Antwort:
  Ja
Thema:
VB Editor Toolbar Button not executing

Hallo ich versuche funktionierend Buttons für die VB Editor Toolbar zu kreieren. Der Button wird kreiert führt aber nicht aus.
Zweitens: wie muss der code umgeschreiben werden das der einfüge ort dort ist wo der cursor grad ist?
Bitte um Hilfe. Danke [MSO 2003]

[code]

    Sub AddButton_TB()
        Dim vbTB As CommandBar, vbBT As CommandBarButton, TBname As String, Mname As String, Cname As String
        TBname = "Code Templates"
        Mname = "WriteTestCode":            Cname = "Write Code"
        Set vbTB = Application.VBE.CommandBars(TBname)
            If Not vbTB Is Nothing Then vbTB.Visible = True Else Debug.Print "TB DNE: """ & TBname & "": Exit Sub
        Set vbBT = vbTB.Controls.Add(Type:=msoControlButton)
        With vbBT: .Caption = Cname: .OnAction = Mname: .Style = msoButtonCaption: End With
        ' With vbBT: .Caption = Cname: .OnAction = "WriteTestCode": .Style = msoButtonCaption: End With
        ' With vbBT: .Caption = Cname: .OnAction = "'" & "WriteTestCode" & "'": .Style = msoButtonCaption: End With
    End Sub
    Sub WriteTestCode()        
        ShowVisualBasicEditor = True: ActiveWindow.Activate                                             ' VBE Focus needed
        Dim vbComp As Object, code As String, lineIndex As Long, curMod As String
        curMod = Application.VBE.ActiveCodePane.CodeModule.Name
        code = "Selection.Text = ""abc"" "                                                   
        Set vbComp = ThisDocument.VBProject.VBComponents(curMod)
        lineIndex = vbComp.CodeModule.CountOfLines + 1: vbComp.CodeModule.InsertLines lineIndex, code   ' At Bottom
    End Sub

[/code]

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VB Editor Toolbar Button not executing
 06.03.2026 21:11:44 Diana
NotSolved
07.03.2026 09:51:26 Gast72430
NotSolved
07.03.2026 12:38:01 Gast18893
NotSolved
07.03.2026 13:38:30 Diana
NotSolved
08.03.2026 01:29:28 xlKing
Solved
08.03.2026 01:44:05 xlKing
NotSolved
09.03.2026 00:44:16 xlKing
Solved
09.03.2026 19:29:28 Gast10955
NotSolved
09.03.2026 23:38:29 xlKing
NotSolved
10.03.2026 10:16:13 Gast72430
NotSolved