Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Arbeitsmappe die ich gerne zur gleichzeitigen Bearbeitung durch mehrere Benutzer freigeben möchte.
Es gibt in dieser Arbeitsmappe verschiedene Tabellenblätter, auf denen, wenn bestimmte Bedingungen eintreten, weitere Command-Buttons erzeugt werden sollen. Das funktioniert im "Normalzustand" auch (wenn nicht freigegeben).
Wenn ich die Arbeitsmappe dann freigebe, funktioniert es nicht mehr uns ich bekomme folgende Fehlermeldung:
"Laufzeitfehler 1004: Die Add-Eigenschaft des Buttons-Objektes kann nicht zugeordnet werden"
Wie gesagt, die Fehlermeldung kommt nur, wenn ich die Arbeitsmappe freigebe (Reiter "Überprüfen" - Arbeitsmappe freigeben). Was ist falsch? Bitte um Hilfe!
Ich benutze folgenden Code für die Erstellung der Buttons...den habe ich irgendwo im Inet gefunden:
schöne Grüße
Jörn
Dim objButton As Object
Dim strObjekt As String
Dim cTop As Currency
Dim cLeft As Currency
Dim cHeight As Currency
Dim cWidth As Currency
Dim buttonNumemr As Variant
buttonNummer = Tabelle1.Range("A1").Value 'hochzählende Nummer des Buttons
With Tabelle1.Range("H26") 'da kommt der Button hin
cTop = .Top 'Button soll so groß wie Zelle sein
cLeft = .Left
cHeight = .Height
cWidth = .Width
End With
Set objButton = Tabelle1.Buttons.Add(cLeft, cTop, cWidth, cHeight)
objButton.OnAction = "LOS" 'Bezug auf weiteres Makro bei Button-Click
objButton.Caption = "Weiter!"
objButton.Placement = xlMoveAndSize
objButton.name = "btnLOS" & buttonNummer 'Buttonname + hochzählende Nummer
buttonNummer = buttonNummer + 1
Tabelle1.Range("A1").Value = buttonNummer
|