Kontrollkästchen automatisch hinzufügen

[Helmut Gütschow]

Hallo,

ich habe mir ein Makro erstellt das nach dem letzten 'Kontrollkästchen
sucht und je nach Bedarf neue hinzufügt.

Der Abschnitt sieht so aus:

For Wiederholungen = 1 To AnzahlNeu
With ActiveSheet.CheckBoxes.Add(0, Position, 0, 0)
.Characters.Text = "Kontrollkästchen " & Nr
End With
Position = Position + 15
Nr = Nr + 1
Next

Mein Problem: 'Characters.Text' setzt auch 'AlternativeText', soweit
ok, nur 'Characters.Text' will ich nicht,ich brauche nur
'AlternativeText'. Mit

.AlternativeText= "Kontrollkästchen " & Nr

klappt es leider nicht. Wie kann ich das machen?

[Eike Bimczok]

Post by Helmut Gütschow
Hallo,
ich habe mir ein Makro erstellt das nach dem letzten 'Kontrollkästchen
sucht und je nach Bedarf neue hinzufügt.
For Wiederholungen = 1 To AnzahlNeu
With ActiveSheet.CheckBoxes.Add(0, Position, 0, 0)
.Characters.Text = "Kontrollkästchen " & Nr
End With
Position = Position + 15
Nr = Nr + 1
Next
Mein Problem: 'Characters.Text' setzt auch 'AlternativeText', soweit
ok, nur 'Characters.Text' will ich nicht,ich brauche nur
'AlternativeText'. Mit
.AlternativeText= "Kontrollkästchen " & Nr
klappt es leider nicht. Wie kann ich das machen?

Hallo Helmut,

du schon wieder :-)

Du bist schon nahe an der Lösung. Allerdings referenzierst du vermutlich
nicht ganz korrekt. So funktioniert es bei mir:

Set a = ActiveSheet.CheckBoxes.Add(0, 4, 0, 0)
a.ShapeRange.AlternativeText = "Test Text"

Gruß
Eike

[Helmut Gütschow]

Am 22.10.06 haute info auf die Tasten

Hallo Eike!

Post by Eike Bimczok
du schon wieder :-)

Nachdem das Dank deiner Hilfe prima läuft, gibt es immer etwas zu
verbessern, in diesen Fall will ich die Checkboxen automatisch
erstellen:)

Post by Eike Bimczok
Du bist schon nahe an der Lösung. Allerdings referenzierst du
Set a = ActiveSheet.CheckBoxes.Add(0, 4, 0, 0)
a.ShapeRange.AlternativeText = "Test Text"

Danke, das klappt auch bei mir, aber leider kann ich damit
'Characters.Text' nicht mehr setzen/löschen :(

Mal in meine Vorstellung übersetzt, wollte ich in einer Schleife
folgendes machen:

Set a = ActiveSheet.CheckBoxes.Add(0, Position, 0, 0)
a.ShapeRange.AlternativeText = "Kontrollkästchen " & Nr
a.ShapeRange.Characters.Text = ""
a.ShapeRnage.Makro = "Test"

Aber wie du sicher siehst, die 3 und 4 Zeile geht so nicht :(

PS. Gibt es eigentlich ein Buch etc. wo man sowas nachlesen kann?

[unknown]

Hallo Helmut,
das ShapeRange-Objekt hat keine Character noch eine Makro
Eigenschaft/Methode. Was möchtest du in den Zeilen 3 und 4 erreichen?

MfG Frank
_________________________________________________
Frank Arendt-Theilen (ehem. MVP für Excel), Hameln
Microsoft Excel - Die ExpertenTipps: tinyurl.com/cmned
Website: xl-faq.de

[Helmut Gütschow]

Am 22.10.06 haute Frank Arendt-Theilen auf die Tasten

Hallo Frank!

[...] Was möchtest du in den Zeilen 3 und 4 erreichen?

Beim automatischen anlegen von Checkboxen den 'Text' löschen und jeder
Checkbox ein 'Makro' zuweisen.

Hat sich aber erledigt, siehe Antwort an Eike. Trotzdem danke.

[Eike Bimczok]

Post by Helmut Gütschow
Set a = ActiveSheet.CheckBoxes.Add(0, Position, 0, 0)
a.ShapeRange.AlternativeText = "Kontrollkästchen " & Nr
a.ShapeRange.Characters.Text = ""
a.ShapeRnage.Makro = "Test"
Aber wie du sicher siehst, die 3 und 4 Zeile geht so nicht :(
PS. Gibt es eigentlich ein Buch etc. wo man sowas nachlesen kann?

Hallo Helmut,

du solltest nicht raten, wie das Objektmodell von Excel aussieht; das
ist auf die Dauer zu mühsam (auch für uns) ;-)

Set a = ActiveSheet.CheckBoxes.Add(0, 4, 0, 0)
a.ShapeRange.AlternativeText = "blahblah"
a.Text = ""
a.OnAction = "meinMakro"
Stop


Kopiere die Zeilen (inklusive der Stop-Zeile) in dein Makro und schaue
dir das Lokalfenster an. Hilft dir das vielleicht weiter?


Gruß
Eike

[Helmut Gütschow]

Am 22.10.06 haute info auf die Tasten

Hallo Eike!

Post by Eike Bimczok

Post by Helmut Gütschow
PS. Gibt es eigentlich ein Buch etc. wo man sowas nachlesen kann?

du solltest nicht raten, wie das Objektmodell von Excel aussieht;
das ist auf die Dauer zu mühsam (auch für uns) ;-)

Deswegen dachte ich ja es gibt ein Buch was man empfehlen könnte:)

Post by Eike Bimczok
Set a = ActiveSheet.CheckBoxes.Add(0, 4, 0, 0)
a.ShapeRange.AlternativeText = "blahblah"
a.Text = ""
a.OnAction = "meinMakro"
Stop
[...]
Hilft dir das vielleicht weiter?

Es hilft nicht nur weiter es ist genau das was ich gesucht habe.
Besten Dank für deine tatkräftige Unterstützung, ich hoffe zumindest
demnächst nicht mehr zu nerven:)

[Eike Bimczok]

Hallo Helmut,

Post by Helmut Gütschow
Am 22.10.06 haute info auf die Tasten
Hallo Eike!

Post by Eike Bimczok

Post by Helmut Gütschow
PS. Gibt es eigentlich ein Buch etc. wo man sowas nachlesen kann?

du solltest nicht raten, wie das Objektmodell von Excel aussieht;
das ist auf die Dauer zu mühsam (auch für uns) ;-)

Deswegen dachte ich ja es gibt ein Buch was man empfehlen könnte:)

Bücher gibt es viele, welches für deine Vorkenntnisse passend ist kannst
nur du sagen. Ich arbeite aber im Wesentlichen mit dem Lokalfenster
und der Onlinhilfe. Wenn du etwas mehr Erfahrung hast, kann ich das Buch
von Michael Schwimmer "Excel VBA" sehr empfehlen.

Post by Helmut Gütschow

Post by Eike Bimczok
Set a = ActiveSheet.CheckBoxes.Add(0, 4, 0, 0)
a.ShapeRange.AlternativeText = "blahblah"
a.Text = ""
a.OnAction = "meinMakro"
Stop
[...]
Hilft dir das vielleicht weiter?

Es hilft nicht nur weiter es ist genau das was ich gesucht habe.

Super *g*

Post by Helmut Gütschow
Besten Dank für deine tatkräftige Unterstützung, ich hoffe zumindest
demnächst nicht mehr zu nerven:)

Bitte gerne. Nein du nervst überhaupt nicht ;-) Es ist eher positiv,
dass von dir Feedback kommt und du die Vorschläge ausprobierst. Das ist
leider nicht die Regel...


Viel Erfolg noch und Gruß
Eike