Severus schrieb am 06.10.2010 19:34:00:
Totaler Anfänger schrieb am 06.10.2010 15:33:17:
hallihallo
ich habe in excel ein Makroerstellt das mir Command Butoons erstellt. Diese Command Buttons sollen jetzt aber auch was können wenn man auf sie klickt.
ich weiß das ich durch doppelklick in das Codefenster der Buttons komme, aber ich würde den Code gern früher rein schreiben. und zwar durch das selbe Makro das mir die CommandButton auch schon erstellt.
dieser Code soll später durch klick auf den Button ausgeführt werden
Range("BI11,BI11,BJ11,BK11,BL11,BM11").Select
Range("BM11").Activate
Selection.AutoFilter Field:=61, Criteria1:= _
"Produktionsmaterial (Metall-/ Kunststoffteile/ Elektronik/ etc.)"
Range("A10").Select
Option Explicit
Sub Code_einfügen()
vielen dank
Dim optEX As Boolean
With VBProject.VBComponents("Tabelle1").CodeModule
optEX = .Find("Option Explicit", 1, 1, .CountOfDeclarationLines, 1, , False)
If optEX = False Then .InsertLines 1, "Option Explicit"
.InsertLines 2, "Private Sub CommandButton1_Click()"
.InsertLines 3, vbTab & "Range(""BI11,BI11,BJ11,BK11,BL11,BM11"").Select"
.InsertLines 4, vbTab & "Range(""BM11"").Activate"
.InsertLines 5, vbTab & "Selection.AutoFilter Field:=61, Criteria1:= _"
.InsertLines 6, vbTab & """Produktionsmaterial (Metall-/ Kunststoffteile/ Elektronik/ etc.)"""
.InsertLines 7, vbTab & "Range(""A10"").Select"
.InsertLines 8, "End Sub"
End With
End Sub
Severus |