Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton mit VBA-Code zuweisen

Forumthread: CommandButton mit VBA-Code zuweisen

CommandButton mit VBA-Code zuweisen
30.10.2015 19:22:36
Hermann
Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt + F8, Makro auswählen, ausführen den Code auf.
Das TabBlatt „Inhaltsverzeichis“ wird gelöscht und wieder neu, mit den akt. TabBlättern erstellt. Ferner wird mir durch den Code ein CommandButton erstellt. Funktioniert super!
Jetzt kommts:
Ich möchte den Code nicht mit Alt + F8 aufrufen, sondern durch das ClickEreignis auf den Button. Dies gelingt mir nicht!!
Wenn ich mit der rechten Maustaste direkt auf den Button klicke und das Makro zuweise, ist es nach 1 mal klicken auf den Button wieder weg, weil das ganze Sheet gelöscht und wieder neu erstellt wird. Hoffentlich benötige ich hierzu kein Klassenmodul.
Vielleicht könnt Ihr mir helfen.
Gruß, Hermann
VBA Teil:
With ActiveSheet.OLEObjects("CommandButton1").Object
.Caption = "Aktualisieren"
.BackColor = Val("&H" & "66FFFF") 'RGB(255,192,0)
.OnAction = "Inhaltsverzeichnis_erstellen"
End With

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton mit VBA-Code zuweisen
30.10.2015 21:08:28
Nepumuk
Hallo,
warum nicht einfach eine Schaltfläche aus den Formularsteuelementen?
Gruß
Nepumuk

AW: CommandButton mit VBA-Code zuweisen
30.10.2015 22:23:31
Hermann
Hallo Nepumuk,
ich dachte das wäre eine Schaltfläche aus den Formularsteuelementen?
Wie müßte ich den Code abändern, das es ein Formularsteuelement wird?
Ich habe mir auch Deine Tipps mit mit dem Klassenmodul durchgelesen.
Frage: Kann ich in das Modul 1 mit
Option Explicit
Option Private Module
Private objCommandButton() As clsCommanbutton
auch den Code packen, der mir mein Inhaltsverzeichnis erstellt ( Normale Sub() )
Gruß, Hermann

Anzeige
AW: CommandButton mit VBA-Code zuweisen
30.10.2015 22:23:57
Hermann
Hallo Nepumuk,
ich dachte das wäre eine Schaltfläche aus den Formularsteuelementen?
Wie müßte ich den Code abändern, das es ein Formularsteuelement wird?
Ich habe mir auch Deine Tipps mit mit dem Klassenmodul durchgelesen.
Frage: Kann ich in das Modul 1 mit
Option Explicit
Option Private Module
Private objCommandButton() As clsCommanbutton
auch den Code packen, der mir mein Inhaltsverzeichnis erstellt ( Normale Sub() )
Gruß, Hermann

Anzeige
AW: CommandButton mit VBA-Code zuweisen
31.10.2015 01:09:10
fcs
Hallo Hermann,
wenn du eine farbige Schaltfläche möchtest, dann muss du ein Rechteck oder eine andere Form als Basis nehen. Die Schaltflächen aus den Formular-Steuerelementen lassen sich nicht färben.
Ob man das Ganze mit Active-X-Schaltfläche und Klassen-Modul gebacken bekommt: ?
Active-X-Elemente in einem Tabellenblatt erwarten ihre Ereignismakros nun mal im Code-Modul des Tabellenblatts.
Mit dem Löschen des Blattes killst du ja auch das Axtive-X-Element mit seinem Makro. Das kommt bei Excel auch nicht so gut an - Makro-Ausführung wird normalerweise abgerochen.
Gruß
Franz
Kann dann wie folgt aussehen: 
Sub Inhaltsverzeichnis()
Application.DisplayAlerts = False
Sheets("Inhaltsverzeichnis").Delete
Application.DisplayAlerts = True
Worksheets.Add before:=ActiveWorkbook.Sheets(1)
With ActiveSheet
.Name = "Inhaltsverzeichnis"
'Rechteck als Schaltfläche einfügen
Call fncRechteck_Bunt("Aktualisieren", _
.Range("B2").Left, .Range("B2").Top, 120, 30, _
strOnAction:="Inhaltsverzeichnis", _
lngFillForeColorRGB:=RGB(255, 255, 0), _
strFontName:="Verdana", intFontSize:=14)
End With
End Sub
Function fncRechteck_Bunt(ByVal strCaption As String, _
ByVal dblLeft As Double, ByVal dblTop As Double, _
ByVal dblWidth As Double, ByVal dblHeight As Double, _
Optional ByVal strOnAction As String, _
Optional ByVal lngFillForeColorRGB As Long = 14277081, _
Optional ByVal strFontName As String = "Arial", _
Optional ByVal intFontSize As Integer = 12, _
Optional wks As Worksheet) As Object
'   lngFillForeColorRGB: 14277081  = hellgrau (RGB(217, 217, 217)
'   Rechteck mit Doppelline als Rahmen, schwarzer Schrift (msoShapeStylePreset1)
Dim objShape As Object
If wks Is Nothing Then Set wks = ActiveSheet
'Form einfügen
Set objShape = wks.Shapes.AddShape(msoShapeRectangle, dblLeft, dblTop, _
dblWidth, dblHeight)
Set fncRechteck_Bunt = objShape
With objShape
.ShapeStyle = msoShapeStylePreset1 'Weiß mit schwarzem Rahmen, schwarzer Shrift
With .TextFrame2 'Textfeld
.VerticalAnchor = msoAnchorMiddle
With .TextRange
.ParagraphFormat.Alignment = msoAlignCenter
With .Font
.NameComplexScript = strFontName
.NameFarEast = strFontName
.Name = strFontName
.Size = intFontSize
.Strikethrough = False
.Superscript = False
.Subscript = False
End With
.Characters.Text = strCaption 'muss nach den Formatierungen eingefügt werden!
End With
End With
With .Fill 'Füllfarbe
.Visible = msoTrue
.ForeColor.RGB = lngFillForeColorRGB
.Transparency = 0
.Solid
End With
With .Line 'Rahmen
.Visible = msoTrue
.Weight = 2.25
.Style = msoLineThinThin
End With
.Shadow.Type = msoShadow21 'Schatten rechts-unten
If strOnAction  "" Then
.OnAction = strOnAction
End If
End With
End Function

Anzeige
AW: CommandButton mit VBA-Code zuweisen
31.10.2015 09:49:45
Hermann
Hallo Franz,
ich habe die "Call fncRechteck_Bunt" in meinen Code "Inhaltsverzeichnis_erstellen" eingebaut.
Hurra!! Es funktioniert genau so, wie ich es wollte.
Da ich wenig bis sehr wenig VBA-Kenntnisse habe, konnte ich doch den Code der Function lesen und umsetzen. Vielen Dank, für die verständliche Schreibweise.
Beim 2.Teil muß ich leider passen.
Mein Verständnis: Er erstellt mir nur den farbigen Button.
Diesen Code werde ich in einem Übungssheet für mich als Übung bearbeiten und ändern,
und hoffe, daß es mir in 2 Jahren gelingt, so etwas ohne fremde Hilfe selbst zu erstellen.
PS: Warum erscheinen meine Beiträge eigentlcih immer doppelt in der Forumsliste?
Nochmals tausend Dank,
Gruß, Hermann

Anzeige
AW: CommandButton mit VBA-Code zuweisen
31.10.2015 09:50:23
Hermann
Hallo Franz,
ich habe die "Call fncRechteck_Bunt" in meinen Code "Inhaltsverzeichnis_erstellen" eingebaut.
Hurra!! Es funktioniert genau so, wie ich es wollte.
Da ich wenig bis sehr wenig VBA-Kenntnisse habe, konnte ich doch den Code der Function lesen und umsetzen. Vielen Dank, für die verständliche Schreibweise.
Beim 2.Teil muß ich leider passen.
Mein Verständnis: Er erstellt mir nur den farbigen Button.
Diesen Code werde ich in einem Übungssheet für mich als Übung bearbeiten und ändern,
und hoffe, daß es mir in 2 Jahren gelingt, so etwas ohne fremde Hilfe selbst zu erstellen.
PS: Warum erscheinen meine Beiträge eigentlcih immer doppelt in der Forumsliste?
Nochmals tausend Dank,
Gruß, Hermann

Anzeige
zu oft F5 gedrückt ? ... kwT
31.10.2015 10:01:51
Matthias
;

Forumthreads zu verwandten Themen

VBA-CommandButton funktioniert nicht richtig
Marko

Hallo zusammen,
ich habe aus meinen früherem Aufgabengebiet noch eine Datei mit einem ganzen Sack voll Makros drin. Die meisten benötige ich jetzt nicht mehr - aber mindestens eines ist dabei, dass ich gern wieder nutzen würde.
Das Makro blendet ein Fenster ein und listet darin alle Tab...
27.05.2011 13:30:15
Thread-ID: 1216327
4 Beiträge
Button Makro zuweisen
Thorsten

Hallo zusammen!
Folgende Situation:
Über einen Button wird ein neues Tabellenblatt erstellt und in dieses mit dem gleichen Makro ein Button erstellt.
Frage:
Wie kann ich diesen Buttons über ein Makro ein (immer gleiches) Makro zuweisen?
01.08.2011 15:00:07
Thread-ID: 1224460
4 Beiträge
(Command-)Buttons Makro zuweisen
Gerhard S.

Hallo, ich glaub das ist die Hitze, aber ich dreh mich geistig im Kreis....
da ich meinen Makros bisher immer nur eine VBA-Schaltfläche zugewiesen habe, diese aber nicht kurzfristig ausblenden oder inaktiv machen kann, wollte ich es mit einigen CommandButton probieren. wenn ich das Makro ein...
19.06.2002 09:34:00
Thread-ID: 129748
7 Beiträge
modulaufruf per Commandbutton vs. einzelne Makros
Rene

Hallo Leute,
ich habe 6 Module erstellt, in denen ich 1 Makro bzw. 3 Makros stehen habe. Wenn ich nun per commandbutton alle Module nacheinander laufen lasse bekomme ich ein anderes Ergebnis, als wenn ich die Module einzeln nacheinander abspiele. Liegt das vielleicht daran, dass ich in jede...
04.03.2013 16:40:45
Thread-ID: 1302228
8 Beiträge
Button per Makro erstellen, Makro zuweisen
Andy

Hallo,
ich habe zwei Buttons erstellt, die mir jeweils eine neue Zeile einfügen bzw. diese wieder löschen. In diese neue Zeile können Pfade eingetragen werden (Zeile 2: Pfad1 - Pfadangabe; Zeile 3: Pfad2 - Pfadangabe). Nun möchte, dass der Benutzer am Ende die Pfade nicht selbst angeben mus...
03.08.2013 16:32:02
Thread-ID: 1325580
3 Beiträge
Makro für CommandButton per Makro einfügen
Hilde

Hallo,wie kann ich in VBA ein Makro einem zuvor eingefügten CommandButton zuweisen? (Wie das manuell geht, weiß ich)Also, die Makro per Makro einfügen Variante interessiert mich!Vielen Dank im Voraus
29.07.2002 12:33:31
Thread-ID: 141931
9 Beiträge
Makro Button zuweisen, "ActiveWorkbook"
Herman

Hallo,
Quelldatei: Quelle.xlsm
Exportdatei: Export_Datum_Uhrzeit.xlsm
folgendes Szenario: Ich exportiere über ein Makro mehrere Arbeitsblätter. Auf einem dieser Arbeitsblätter sind mehrere Buttons, die mit einem Makro verknüpft sind (die Makros werden ebenfalls exportiert).
Folg...
15.06.2015 10:22:35
Thread-ID: 1430918
2 Beiträge
Anzeige
CommandButton mit VBA-Code zuweisen
Hermann

Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt...
30.10.2015 19:22:06
Thread-ID: 1455516
3 Beiträge
Command button mit Makro erstellen
Martin

Hallo zusammen,
ich arbeite an einem ziemlich großen Finanzfile und hoffe ihr könnt mir helfen. Und zwar geht es um ein Registerblatt "Verbindlichkeiten" in das alle Eingangsrechnungen eingetragen werden. Die Tabelle beginnt ab der 8. Zeile. Ich möchte einen Command button erstellen (Name:...
07.12.2015 16:04:53
Thread-ID: 1462816
25 Beiträge
Anzeige
AktiveX Button Funktionstaste zuweisen.
Michael

Hallo Leute,
habe gelesen das es mit Applicatino.Sendkey {F12} ein ActivX-Button über eine Funktionstaste _ ausgelöst werden kann. Kriege aber die richtig Schreibweise nicht, jemand ein Idee Private Sub cmd_Einzel_Kopie_Click() Application.SendKeys (%{F12}) Call Tabelle1.einzelkopie Unloa...
25.01.2017 21:23:42
Thread-ID: 1537409
16 Beiträge
AktiveX Button Funktionstaste zuweisen.
Michael Holz
Hallo Leute,
habe gelesen das es mit Applicatino.Sendkey {F12} ein ActivX-Button über eine Funktionstaste _ ausgelöst werden kann. Kriege aber die richtig Schreibweise nicht, jemand ein Idee Private Sub cmd_Einzel_Kopie_Click() Application.SendKeys (%{F12}) Call Tabelle1.einzelkopie Unload Me...
26.01.2017 17:43:19
Thread-ID: 1537628
4 Beiträge
Makro Speichern-Button zuweisen?
Thilo

Hallo, ich hab einen Code geschrieben, der erfolgen soll, wenn das Workbook gespeichert wird. IWe schaffe ich es aber, dass ich das Makro dem Speichern-Button, bzw. dem Speicher-Befehl im Menue zuweise. Bisher kann ich das Makro nur aufrufen, in dem ich einen eigenen Speicher Button einfuege.Da...
12.12.2002 19:52:10
Thread-ID: 192604
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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