Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Makro ein Makro unter CommandButton einfügen

Per Makro ein Makro unter CommandButton einfügen
05.01.2009 09:12:15
Andi
Hallo liebe Excel Gemeinde,
Ich hoffe Ihr seid alle gut ins neue Jahr gekommen!
Ich benötige eine Lösung für folgendes Problem:
Ich möchte gerne versuchen per makro in einen eben erstellten Commandbutten ein Makro zu schreiben.
Den commandbutten zu erstellen und seine Eigenschaften zu ändern hab ich bereits herausgefunden.
Wie kann ich jetzt automatisch ein makro einfügen das per click event des commandbuttons gestartet wird.
Vielen Dank schon mal für eure hilfe
Gruß andi

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

Betreff
Datum
Anwender
Anzeige
AW: Per Makro ein Makro unter CommandButton einfügen
05.01.2009 10:21:38
Tino
Hallo,
hier mal ein Beispiel.
Es wird ein Commandbutton erstellet im Bereich D2:F3 und ein Makro in die Tabelle1 geschrieben, dass bei Click ausgeführt wird.
Dem Zugriff auf VBA Projekte, muss aber vertraut werden!

Sub Makro1()
Dim strCode As String
Dim myButton As OLEObject
Dim Zelle As Range
Set Zelle = Range("D2:F3")
With Zelle
Set myButton = Tabelle1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
strCode = _
"Private Sub " & myButton.Name & "_Click()" & Chr(10) & _
" MsgBox ""test erfolgreich bestanden""" & Chr(10) & _
"End Sub"
With ThisWorkbook.VBProject.VBComponents(Tabelle1.CodeName).CodeModule
.InsertLines .CountOfLines + 1, strCode
End With
End Sub


Gruß Tino

Anzeige
AW: Per Makro ein Makro unter CommandButton einfügen
05.01.2009 12:58:00
Andi
Danke Tino,
aber wenn ich deinen code einfüge und laufen lasse bricht excel aufgrund eines Problems ab.
Irgendwas scheine Ich falsch zu machen.
Liegt das vieleicht daran, dass ich den Code aus einem anderen Workbook starten lasse?
Gruß Andi
AW: Per Makro ein Makro unter CommandButton einfügen
05.01.2009 13:08:26
D.Saster
Hallo,

Liegt das vieleicht daran, dass ich den Code aus einem anderen Workbook starten lasse?


Ja.
Gruß
Dierk

AW: Per Makro ein Makro unter CommandButton einfügen
05.01.2009 13:51:43
Tino
Hallo,
am einfachsten ist es, die entsprechende Datei und dass entsprechende Tabellenblatt zu aktivieren.
Beispiel:

Sub Makro1()
Dim strCode As String
Dim myButton As OLEObject
Dim Zelle As Range
Workbooks("Mappe2.xls").Activate
Sheets("Tabelle1").Select
Set Zelle = Range("D2:F3")
With Zelle
Set myButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
strCode = _
"Private Sub " & myButton.Name & "_Click()" & Chr(10) & _
" MsgBox ""test erfolgreich bestanden""" & Chr(10) & _
"End Sub"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.InsertLines .CountOfLines + 1, strCode
End With
End Sub


Gruß Tino

Anzeige
AW: Per Makro ein Makro unter CommandButton einfügen
07.01.2009 08:03:00
Andi
Hi Tino,
Vielen Dank für deine Hilfe.
Das mit dem Commandbutton klaptt schon mal und den Code schreibt das programm auch, allerdings bekomme ich nen Syntaxfehler und ich denke das liegt an den doppelten "" in ener Zeile. Hier der Code den ich in das zweite workbook schreiben möchte:
strCode = _
" 

Private Sub commandbutton1_Click()" & vbCrLf & _
"Dim Pfad as string" & vbCrLf & _
"Dim adress as string" & vbCrLf & _
"Dim sheetname as string" & vbCrLf & _
"Pfad = activeworkbook.Path" & vbCrLf & _
"sheetname = ActiveSheet.Name" & vbCrLf & _
"adress = activeworkbook.fullname" & vbCrLf & _
"Workbook.Open(Pfad & "\trial.xls")" & vbCrLf & _   Hier entsteht das Problem
"Call Tester(Pfad,sheetsname)" & vbCrLf & _
"End Sub

"
Gruß Andi

Anzeige
AW: Per Makro ein Makro unter CommandButton einfügen
07.01.2009 17:18:54
Tino
Hallo,
nicht getestet, so müsste Dein Code als String aussehen.

strCode = _
"Private Sub commandbutton1_Click()" & Chr(10) & _
"Dim strPfad As String, strAdress As String" & Chr(10) & _
"Dim strName As String" & Chr(10) & "" & Chr(10) & _
"strPfad = ActiveWorkbook.Path" & Chr(10) & _
"strName = ActiveSheet.Name" & Chr(10) & _
"strAdress = ActiveWorkbook.FullName" & Chr(10) & _
"Workbooks.Open strPfad & ""\trial.xls""" & Chr(10) & _
"Call Tester(strPfad, strName)" & Chr(10) & _
"End Sub"


Gruß Tino

Anzeige

307 Forumthreads zu ähnlichen Themen

mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
Anzeige
Makro in neue Arbeitsmappe ausführen
Fred

Hallo zusammen
Ich komme mal wieder nicht weiter. Ich habe unten ein Makro zusammen gestrickt was auch prima funktioniert und weiss jetzt nur nicht wie ich es anstellen soll das im hintergrund eine vorhandene Arbeitsmappe geöffnet wird dann in der Mappe ein neues Tabellenblatt mit dem unten...
07.07.2009 17:11:23
Thread-ID: 1086973
5 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
Anzeige
Makro in Makro schreiben lassen ?
alexander

Hallo,
mein Problem:
Ich habe ein Makro zur Massenpflege von verschiedenen Dateien erstellt. Nun möchte ich aber, das mir das Makro beim abändern der einzelnen Dateien einen bestimmten Code (ein weiteres Makro) in die Tabellenblattmodule der einzelnen Dateien schreibt. Sprich, das die v...
10.08.2009 10:16:27
Thread-ID: 1094632
24 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Formel per Makro einfügen - Ausführen fehlerhaft
Dennis

Hallo Gemeinde,
nachdem mir gestern hier so toll geholfen wurde, bin ich mir sicher, dass ihr mir auch bei dem Problem helfen könnt :)
Also, ich füge per Makro eine Formel (=SUMMEWENN(AI:AI;A11;AR:AR)) in Tabellenblatt 1 ein, ein paar mal untereinander (A11 variiert dabei). Funktionier...
09.09.2009 15:28:39
Thread-ID: 1101555
5 Beiträge
Makros beim Speichern eliminieren
Chris

Hallo Excelianer
Also, folgendes Problem
Ich habe eine Datei, die per Makro einige Berechnungen ausführt. Am Ende der ganzen Berechnungen speichert sich die Datei mit SaveAs. Das heisst: Das Tool an sich wird nicht überschrieben.
Die "SaveAs"-Datei ist eine reine Werte-Datei. Mein...
16.09.2009 16:39:45
Thread-ID: 1103283
3 Beiträge
Modul beim Schließen erneut ausführen
Alexander

Hallo zusammen,
hab' eine Navigationsleiste erstellt, die beim Schließen gelöscht wird.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Menüleiste").Delete End Sub Angenommen, Excel fragt beim Schließen nach, ob die Arbeitsmappe gespeichert werden soll und...
19.10.2009 17:50:31
Thread-ID: 1110710
5 Beiträge
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
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
4
2
7
23
5
4
2
4
2
3
10
5
3
1
3
11
2
6
15
4
3
5
2