Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButtom + Programm erstellen per VBA

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
Anzeige
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 !
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige