Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button

Button
19.01.2006 09:09:31
david
Hallo,
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button
19.01.2006 09:17:01
Katja
Hallo.
versuch mal:
Set CmdButton = ActiveSheet.Buttons.Add(450, 100, 150, 50)
CmdButton.OnAction = "Makro_Programm_starten"

Sub Makro_Programm_starten
Application.goto Reference:= "XY"
ActiveWindow.scrollRow = ActiveCell.Row
End Sub

mfg Katja
AW: Button
19.01.2006 09:26:35
david
hallo Katja,
danke für die Antwort. Eine Frage dazu:
Wie soll ich den Code
Set CmdButton = ActiveSheet.Buttons.Add(450, 100, 150, 50)
CmdButton.OnAction = "Makro_Programm_starten"
Sub Makro_Programm_starten
Application.goto Reference:= "XY"
ActiveWindow.scrollRow = ActiveCell.Row
End Sub
in den bestehenden Code integrieren?

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

die zweite Zeile wird ja bestimmt durch den neuen Code ersetzt. Und der Rest. Ich habs probiert aber noch funktioniert es nicht.
Danke für die Hilfe.
Gruß David
Anzeige
AW: Button
19.01.2006 09:46:39
Katja
Hallo,
sorry, hätte ich auch gleich machen können:

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

Sub Makro_Programm_starten
Application.goto Reference:= "XY"
ActiveWindow.scrollRow = ActiveCell.Row
End Sub
Die Prozedur "Makro_Programm_starten" kannst du im genau unterhalb hinschreiben. Genau wie es oben steht. Hoffe es klappt,
mfg Katja
AW: Button
19.01.2006 10:33:25
david
hallo Katja,
danke für den Code!
Jetzt steht hinter dem neu angelegten Button folgendes:

Sub Makro_Programm_starten()
End Sub

statt folgendes:

Sub Button1_click()
Application.Goto Reference:="Mobile_Phones"
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Hast du noch eine Idee?
Grüße
David
Anzeige
AW: Button
19.01.2006 11:21:37
Katja
Hallo,
hmm... Dann muss man vielleicht einen Call einfügen?! leider weiß ich auch nicht weiter, sorry muss passen!
mfg Katja
AW: Button
19.01.2006 11:22:42
david
Trotzdem Danke für die Hilfe!

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