Buttons per VBCode erstellen

Dieses Thema Buttons per VBCode erstellen im Forum "Microsoft Office Suite" wurde erstellt von finisterra, 24. März 2005.

Thema: Buttons per VBCode erstellen Hi, Ich will per Macro ein Tabellenblatt erstellen (->funktioniert) und auf diesem soll ein Button erstellt werden,...

  1. Hi,

    Ich will per Macro ein Tabellenblatt erstellen (->funktioniert) und auf diesem soll ein Button erstellt werden, ich habe es wie folgt probiert aber da kommt ein Automatisierungsfehler. Kann mir jemand helfen?

    'Button einfügen

    ActiveSheet.OLEObjects.Add(ClassType:=Forms.CommandButton.1_
    , Link:=False, DisplayAsIcon:=False, Left:=330, Top:=10, Width:=100_
    , Height:=20).Select
    With Application.VBE.ActiveVBProject.VBComponents(Tabelle & j +_ 1).CodeModule
    .InsertLines 7, Private Sub CommandButton1_Click()
    .InsertLines 8, Sheets(1).Select
    .InsertLines 9, End Sub
    End With
     
  2. Hi finisterra,

    probier es mal so:
    Code:
    Sub xxx()
      ActiveSheet.OLEObjects.Add(ClassType:=Forms.CommandButton.1 _
      , Link:=False, DisplayAsIcon:=False, Left:=330, Top:=10, Width:=100 _
      , Height:=20).Select
      With Application.VBE.ActiveVBProject.VBComponents(ActiveSheet.Name).CodeModule
              .InsertLines 7, Private Sub CommandButton1_Click()
              .InsertLines 8, Sheets(1).Select
              .InsertLines 9, End Sub
      End With
    End Sub
    
    Gruß Matjes  :)
     
  3. Hi Matjes,

    Danke für deine Hilfe, leider funktioniert es auch nicht. Ich werde es auf anderem Wege versuchen.

    MfG

    Finisterra
     
  4. Hi finisterra,

    hab mir das noch mal etwas genauer angeschaut.

    Wenn ich das richtig interpretiere, möchtest Du per  Makro einen Command-Button auf einem Tabellenblatt einfügen. Bei Betätigen des Command-Button soll das Arbeitsblatt mit Index 1 aktiviert werden.

    Dann versuch es mal damit:
    Code:
    Sub ButtonMitSprungzielBlatt1Einfuegen()
      Dim ws As Worksheet, oobjs As OLEObjects, cmdobj As OLEObject
      Dim l_anz As Long
      
      Set ws = ActiveSheet
      Set oobjs = ws.OLEObjects
      Set cmdobj = oobjs.Add(ClassType:=Forms.CommandButton.1, _
                    Left:=330, Top:=10, Width:=100, Height:=20)
      cmdobj.Object.Caption = -->  & Worksheets(1).Name
      With Application.VBE.ActiveVBProject.VBComponents(ws.Name).CodeModule
        l_anz = .CountOfLines
        .InsertLines l_anz + 1, _
          Private Sub  & cmdobj.Name & _Click() & vbLf & _
          Worksheets(1).Activate & vbLf & _
          End Sub
      End With
      Set ws = Nothing: Set oobjs = Nothing: Set cmdobj = Nothing
    End Sub
    Gruß Matjes :)
     
  5. Das sieht schon besser aus :) button wird erstellt aber irgend ein Indexfehler kommt jetz, mal schauen vllt krieg ich den selber hin, wenn nich wirst du es erfahren. Vielen Dank erstmal

    MfG

    Finisterra
     
  6. Also ich hab den Index (wo der Code eingefügt wird) rausgenommen und wo anders eingebaut. Funzt Prima, vielen dank nochmal

    ;D
     
Die Seite wird geladen...

Buttons per VBCode erstellen - Ähnliche Themen

Forum Datum
buttons im Startmenü verschwunden Windows XP Forum 17. Nov. 2010
Flash-Buttons: Links funktionieren nicht Windows XP Forum 23. Aug. 2009
Buttons erstellen Software: Empfehlungen, Gesuche & Problemlösungen 7. Juli 2008
Flash-Buttons werden nicht mehr angezeigt Webentwicklung, Hosting & Programmierung 10. März 2008
OO.Calc 2.3 - Makros mit Buttons starten Windows XP Forum 13. Dez. 2007