Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button soll automatisch Code hinterlegt haben

Forumthread: Button soll automatisch Code hinterlegt haben

Button soll automatisch Code hinterlegt haben
20.01.2006 12:04:48
David
Hallo,
ich habe es leider trotz schon ein paar Vorschlägen nicht geschafft folgendes Problem zu lösen. Vielleicht hat jemand von euch noch einen guten Tip für mich.
ich wäre so dankbar!
ich habe einen Button, der auf Klick einen neuen Button generiert.
Code:

Private Sub CommandButton2_Click()
ActiveSheet.Buttons.Add(250, 250, 100, 22).Select
Selection.OnAction = "button"
End Sub

Der neu erstellte Button hat dann folgenden Code hinterlegt:
Sub button()
End Sub
Geht es dass der neue Button automatisch folgenden Code hinterlegt hat:
Sub Button1_click()
Application.Goto Reference:="XY"
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
Vielen Dank für euere Hilfe1
Grüße David
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button soll automatisch Code hinterlegt haben
20.01.2006 12:16:20
HJK 

Sub AddProcedure()
Hallo David,
analysiere folgende Codezeilen und du erkennst wie es geht.
Dim VBCodeMod As CodeModule
Dim LineNum As Long
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("NewModule").CodeModule
With VBCodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, _
"


Sub MyNewProcedure()" & Chr(13) & _
" Msgbox ""Here is the new procedure"" " & Chr(13) & _
"End Sub

"

End With

End 


Sub
Anzeige
AW: Button soll automatisch Code hinterlegt haben
20.01.2006 12:18:22
HJK
Ich übersah, dass du eine Event Routine einfügen willst, dazu gibt es die CreateEventProc Methode
Dim StartLine As Long
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
StartLine = .CreateEventProc("Open", "Workbook") + 1
.InsertLines StartLine, _
"Msgbox ""Hello World"",vbOkOnly"
End With
Anzeige
AW: Button soll automatisch Code hinterlegt haben
20.01.2006 13:32:10
David
Hallo,
vielen Dank für den Tip! Das wird bei mir sicher etwas länger dauern. Aber ich hoffe ich komme damit zurecht und löse mein Problem.
Grüße David
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige