Office: Button mit Code via Makro einfügen

ahuber · 21. Dezember 2005

Hallo zusammen

Ich möchte mittels eines Makros einen CommandButton auf einzelnen Sheets einfügen und da dem Click-Event Code hinzufügen (Dieser ruft dann eine Funktion eines AddIns auf). Habe mich schon durchs Internet und diverse Foren gewühlt, konnte da aber auch nichts brauchbares finden. Geht dies überhaupt und wenn ja wie???

Besten Dank für Eure Hilfe

Gruss

Andy

:)

funny-peculiar · 23. Dezember 2005

Hallo, Andy,

vielleicht hilft da der folgende Ansatz, der in diesem Fall Excel beendet und umgeschrieben werden müsste:

Code:

Option Explicit

Sub SchaltflächeIntegrieren()
' Bernd Held, Excel-VBA in 21 Tagen, S. 73
' Schaltfläche an bestimmte Stelle, Makro zuweisen
'/// Makro ggf. auch noch schreiben lassen ??
'*
'************************************************************
'* *
'* aktualisiert 26.11.2004 *
'* *
'************************************************************
'*
' Anpassungen der Variablen-Namen durchgeführt
Dim btnSchalt As Button

Set btnSchalt = ActiveSheet.Buttons.Add(10, 20, 100, 50)
With btnSchalt
.Caption = "Anwendung beenden"
.OnAction = "ExcelBeenden"
.Name = "btnSchaltfläche"
End With
Set btnSchalt = Nothing
End Sub

Sub ExcelBeenden()
' Bernd Held, Excel-VBA in 21 Tagen, S. 73
Application.DisplayAlerts = False
Application.Quit
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei der Funktion beachtest Du dann bitte, dass diese aus einer Sub heraus aufgerufen möglichgerweise einen Rückgabewert an eine Variable geben muss.

Ciao,
Holger

ahuber · 27. Dezember 2005

Hallo Holger

Besten Dank. So klappts.

Gruss

Andy

Office: Button mit Code via Makro einfügen

Button mit Code via Makro einfügen

Button mit Code via Makro einfügen

Button mit Code via Makro einfügen - Similar Threads - Button Code via

pdf drucken mit button in excel einfügen

Excel per Button Speichern und Schliessen und "X - Button" deaktivieren

Makro aus personal.xls starten

Button mit VBA Code funktioniert bei mir aber nicht bei anderen

VBE Code per Button/Userform bearbeiten?

Code funktioniert im VBA-Modul über "Play", aber nicht über den Button in der Tabelle

Code ändern (access Formular Button)