CommandButtom + Programm erstellen per VBA

Forumthread: CommandButtom + Programm erstellen per VBA

04.10.2005 21:25:41

Christian

Hallo zusammen,
über VBA-Code wird ein Tabellenblatt neu erstellt.
Auf diesem Tabellenblatt soll automatisch der CommandButtom1 auf einer definierten Position erstellt werden, dessen Caption auf "Code schreiben" geändert und bei Click darauf den Programmcode:


Sub CommandButtom_Click()
Programmaufruf
End Sub

ausführen können.
Also Tabellenblatt erstellen, Buttom erstellen kein Problem,
aber mit Caption und Programmcode komme ich nicht zurecht,
wer kann helfen.
Danke und Grüße
Christian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: CommandButtom + Programm erstellen per VBA

04.10.2005 22:36:18

Franz
AW: CommandButtom + Programm erstellen per VBA

05.10.2005 07:46:32

Heiko

AW: CommandButtom + Programm erstellen per VBA

04.10.2005 22:36:18

Franz

Hallo Christian,
meines Wissens ist es nicht ohne weiteres möglich per VBA im VBA-Editor VPA-Code zu schreiben.
Die Beschriftung des Buttons kannst du mit folgender Anweisung ändern:
ActiveWorkbook.Sheets("Tabelle1").OLEObjects("CommandButton1").Object.Caption = "Code Schreiben"
dabei muß Du natürlich darauf achten, dass das Tabelle-Objekt korrekt angesprochen wird.
ggf ist es einfacher eine Muster-Tabelle zu erstellen, die den Button einschließlich Code enthält und per VBA-Makro als neu geöffnet wird oder in eine vorhandenen Datei eingefügt wird.
Gruß
Franz

AW: CommandButtom + Programm erstellen per VBA

05.10.2005 07:46:32

Heiko

Hallo Christian,
das könnte z.B. so aussehen.
ACHTUNG !!! bei "Private_Sub_Commandbutton1" und "End_Sub" die _ rausnehmen.
Aber ohne die Dinger wird das hier bei Herber leider falsch dargestellt.


Sub BlattDazu()
Dim strSheetName As String
strSheetName = Worksheets.Add.Name
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=100#, Top:=20#, Width:=100#, Height:= _
40#).Object.Caption = "Code schreiben"
ActiveWorkbook.VBProject.VBComponents(strSheetName).CodeModule.AddFromString _
"Private_Sub_CommandButton1_Click()" & vbCr & _
"    'Programmaufruf" & vbCr & _
"    Msgbox ""Neuer Code""" & vbCr & _
"End_Sub"
' ACHTUNG   !!!  bei "Private_Sub_Commandbutton1" und "End_Sub" die _ rausnehmen.
' Aber ohne die Dinger wird das hier bei Herber leider falsch dargestellt.
MsgBox "Fertig"
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

CommandButtom + Programm erstellen per VBA

Forumthread: CommandButtom + Programm erstellen per VBA

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread