Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
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
CommandButton Makro per Makro zuweisen
10.12.2015 10:36:30
kultnoob
Hi zusammen,
bin gerade an einer "kleinen" Aufgabe aber komme nicht weiter.
Hintergrund:
über ein Auswertungstool werden zwei Dateien miteinander abgeglichen und eine Datei wird dabei gespeichert. Mit der gespeicherten Datei soll weiter gearbeitet werden. Darum dachte ich mir, ich schreibe ein Makro, welches ein eigenes Makro schreibt. Im WWW habe ich folgendes gefunden, was nach ersten Tests auch funktioniert.

  • Sub marko_in_Makro()
    With ActiveWorkbook.Sheets(1)
    With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
    For i = 1 To 10
    .InsertLines i, "
    
    
    Sub Summen" & CStr(i)
    '            .InsertLines i, " usw....
    Next i
    End With
    End Sub
    

  • Nun habe ich in Sheet1 zwei Commandbuttons eingefügt. Funktioniert auch bestens.

  • Sub test()
    With ActiveWorkbook.Sheets(1)
    'Zeile 1 markieren
    Rows("1:1").RowHeight = 35
    'Commandbutton einfügen und umbennen
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:= _
    False, Left:=190, Top:=6, Width:=245, Height:=24).Select
    ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "Summen berechnen"
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:= _
    False, Left:=500, Top:=6, Width:=245, Height:=24).Select
    ActiveSheet.OLEObjects("CommandButton2").Object.Caption = "Summen löschen"
    End with
    End Sub
    

  • Nun möchte ich ein Makro den Commandbuttons zuweisen. Doch leider bin ich hier ratlos. Habe im WWW folgendes gefunden, doch werde daraus nicht schlau....
    http://www.office-loesung.de/ftopic436085_0_0_asc.php
    Das Makro, welches per Makro erstellt werden soll, habe ich bereits geschrieben. Mir geht es lediglich um das Verständnis, wie ich einem Commandbutton ein Makro per Makro zuweisen kann.
    Über einen Tipp wäre ich sehr dankbar. Vielen Dank...
    Gruß

    1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: CommandButton Makro per Makro zuweisen
    10.12.2015 15:08:49
    kultnoob
    Habe nun eine andere Lösung gefunden...
    Statt CommandButton (ActiveX-Steuerelemente) zu verwenden, baue ich Formularsteuerelemente ein.
    An diese kann ich ein Makro zuweisen.
    Vorgehen:
    1. Zuerst das Makro was man übergeben möchte schreiben und exportieren.
    2. Danach das Makro importieren.

  • Sub Makro_importieren()
    With ActiveWorkbook.Sheets(1)
    With ThisWorkbook.VBProject
    .VBComponents.Import "C:\USERS\" & Environ("UserName") & "\desktop\ _
    Variable_Summenberechnung.bas"
    .VBComponents.Import "C:\USERS\" & Environ("UserName") & "\desktop\Summen_loeschen.bas"
    End With
    End With
    End Sub
    

  • 3. Formularsteuerlemente einfügen, Namen ändern und Makros zuweisen

  • Sub test()
    With ActiveWorkbook.Sheets(1)
    'Zeile 1 markieren
    Rows("1:1").RowHeight = 35
    'Formularsteuerelemente einfügen, Makro zuweisen und umbenennen
    ActiveSheet.Buttons.Add(190, 6, 245, 24).Select
    With Selection
    .OnAction = "Variable_Summenberechnung"
    .Caption = "Summen berechnen"
    End With
    'Formularsteuerelemente einfügen, Makro zuweisen und umbenennen
    ActiveSheet.Buttons.Add(500, 6, 245, 24).Select
    With Selection
    .OnAction = "Summen_loeschen"
    .Caption = "Summen berechnen"
    End With
    End With
    End Sub
    

  • Natürlich muss dies noch von der ausführenden Datei an die neue zu bearbeitende Datei übergeben werden. Aber das ist glaub ich das kleinere Problem.
    Somit...
    HABE FERTIG... FLASCHE LEER!!!
    Gruß
    Anzeige

    302 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige