Code:
Sub Button()
Dim ButtonObject As Object
'Angaben zum Button
Dim ButtonName As String
Dim ButtonOrt As Variant
Dim ButtonGroesse As Long
Dim ButtonFarbe As Long
Dim StartMakro As String
ButtonName = InputBox("Name eingeben:")
ButtonOrt = InputBox("Bereich eingeben: Bsp: A1:B2")
ButtonGroesse = InputBox("Schriftgrösse:")
ButtonFarbe = InputBox("Farbe (2-256)")
StartMakro = InputBox("welches Makro ausführen?")
With Range(ButtonOrt)
Set ButtonObject = Worksheets("Tabelle1").Buttons.Add(.Left, .Top, .Width, .Hight)
' Individuelle Eingaben
ButtonObject.Caption = ButtonName
ButtonObject.Font.Size = ButtonGroesse
ButtonObject.Font.ColorIndex = ButtonFarbe
ButtonObject.OnAction = StartMakro
'Festgelegte Parameter
ButtonObject.Font.Name = Arial
ButtonObject.Font.FontStyle = "Bold"
ButtonObject.VerticalAlignment = x1Top
End With
Set ButtonObject = Nothing
End Sub
Warum kriege ich die Fehlermeldung: "Die Methode oder das Datenelement wurden nicht gefunden."? Und er unterlegt die erste Zeile gelb, und das hight von Zeile 15 grün. Was meint das?
Hallo,
Set ButtonObject = Worksheets("Tabelle1").Buttons.Add(.Left, .Top, .Width, .Height)
Gruß Uwe
Danke Kuwer, hab den Fehler verbessert. Jetzt sagt er: "Eine Variable ist nicht definiert" und hinteregt "Sub Button()" gelb! Es muss noch irgendein Dim fehlen, bloss was?
Moin!
Mindestens 2 weitere Fehler:
.Font.Name = "Arial" (die "" müssen sein, sonst sucht VBA eine Variable Arial)
Es gibt keine Konstante x1Top, sondern die heißt xlTop (L statt 1)
(daher dürfte auch die Fehlermeldung kommen)
Gruß Ralf
Danke, Ralf, die Hinweise waren wichtig und weiterführend! Jetzt fragt das Macro wenigstens. Allerdings erscheint der Button immer noch nicht....
Wenn er nach dem Makro fragt, und ich gebe "clear" ein, passiert gar nichts, wenn ich "clear()" eingebe, kommt: "Laufzeitfehler 1004, Die OnAction-Eigenschaft des Button Objektes kann nicht festgelegt werden. Was bedeutet das?
-> ich arbeite nach Bernd Held S. 624 (Button denk ich, ist eine User-Form) bin im Projekt explorer und will User Form einfügen. Bei mir gibt es den Befehl auf rechte Maustaste -> User form einfügen nicht, sondern nur Modul und Klassenmodul. Ist es ein Klassenmodul?
Dazu müsste man die Sub Clear() kennen.
Noch ein Fehler:
Der maximale .ColorIndex ist (ich glaube) 56, jedenfalls nicht 256
Alles geht, Fehler gefunden. es war tabelle1 statt tabelle3, also eine Tschatschischag von mir!