Thema Datum  Von Nutzer Rating
Antwort
13.01.2017 19:15:50 Kakuda89
NotSolved
13.01.2017 21:42:24 Gast4485
NotSolved
13.01.2017 21:46:38 Kakuda89
NotSolved
13.01.2017 21:56:12 Gast4138
NotSolved
14.01.2017 08:31:33 Gast84056
NotSolved
14.01.2017 09:26:58 Gast89896
NotSolved
14.01.2017 12:10:53 Kakuda89
NotSolved
Blau Command Button nach einfügen programmieren
 14.01.2017 13:08:11 Kakuda89
Solved

Ansicht des Beitrags:
Von:
Kakuda89		 Datum:
14.01.2017 13:08:11		 Views:
676		 Rating:
     
Antwort:
 Nein
Thema:
Command Button nach einfügen programmieren

Hallo zusammen,

habe jetzt eine Lösung gefunden die so funktioniert wie es soll.

 

Sub Makro1()
a = 14
For i = 1 To 3

With ActiveSheet
  Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=220, Top:=a, Height:=30, Width:=120)
      
  .OLEObjects(.OLEObjects.Count).Name = "S_Btn" & i
  .OLEObjects("S_Btn" & i).Object.Caption = "sta"
  
  With ThisWorkbook.VBProject.VBComponents(.Name).CodeModule
  
    .InsertLines .CountOfLines + 1, "Private Sub S_Btn" & i & "_Click()"
    .InsertLines .CountOfLines + 2, "MsgBox " & i
    .InsertLines .CountOfLines + 3, "End Sub"
   
  End With
  
End With
a = a + 43
Next

End Sub

 

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
13.01.2017 19:15:50 Kakuda89
NotSolved
13.01.2017 21:42:24 Gast4485
NotSolved
13.01.2017 21:46:38 Kakuda89
NotSolved
13.01.2017 21:56:12 Gast4138
NotSolved
14.01.2017 08:31:33 Gast84056
NotSolved
14.01.2017 09:26:58 Gast89896
NotSolved
14.01.2017 12:10:53 Kakuda89
NotSolved
Blau Command Button nach einfügen programmieren
 14.01.2017 13:08:11 Kakuda89
Solved