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ß