Datenelemente wurden nicht gefunden...

[kurtkurt57]

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?

[Kuwer]

Hallo,

Set ButtonObject = Worksheets("Tabelle1").Buttons.Add(.Left, .Top, .Width, .Height)

Gruß Uwe

[kurtkurt57]

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?

[RPP63]

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

[kurtkurt57]

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?

[RPP63]

Dazu müsste man die Sub Clear() kennen.

Noch ein Fehler:
Der maximale .ColorIndex ist (ich glaube) 56, jedenfalls nicht 256

[kurtkurt57]

Alles geht, Fehler gefunden. es war tabelle1 statt tabelle3, also eine Tschatschischag von mir!