Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Index bei dynamischer Button-Generierung

Index bei dynamischer Button-Generierung
04.02.2004 17:09:05
Thorsten
Hallo Leute,
Ich habe das folgende Problem. Ich fülle mit der nachstehenden
Anweisung meine Tabelle an bestimmten Stellen dynamisch mit
Schaltflächen (Buttons):
Set Schaltfläche = ActiveSheet.Buttons.Add(xwert, ywert, 15, 16.5)
Wenn ich später all diese dynamisch generierten Buttons
wie folgt lösche:
ActiveSheet.Shapes.SelectAll
Selection.Delete
habe ich das Problem, dass der Index des Shape-Objektes nicht
auf Null zurückgesetzt wird. Weiss von Euch jemand, wie ich
diesen Index wieder zurücksetzen kann, damit, wenn ich das
Makro erneut starte, der Index wieder bei eins beginnt.
Vielen Dank im Voraus für Eure Hilfe.
Grüsse,
Thorsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Index bei dynamischer Button-Generierung
04.02.2004 18:21:36
Bert
Darauf hast du keinen Einfluss, das macht Excel, warum auch immer
automatisch.
Bert
AW: Index bei dynamischer Button-Generierung
05.02.2004 05:51:59
GraFri
Hallo
Setze einfach den Namen bzw. die Buttonbeschriftung neu.


Private Sub Button_Index()
Dim n, xWert, yWert
Dim Schaltfläche
For n = 1 To 5
    xWert = 20
    yWert = 20 + 20 * n
    Set Schaltfläche = ActiveSheet.Buttons.Add(xWert, yWert, 70, 16.5)
    Schaltfläche.Name = "Schaltfläche " & n
    Schaltfläche.Caption = "Schaltfläche " & n
Next n
Set Schaltfläche = Nothing
End Sub

Private Sub Lösche_Button()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Mit freundlichen Grüßen, GraFri
Anzeige
Index bei dynamischer Button-Generierung
05.02.2004 13:18:21
Thorsten
Hallo GraFi,
Danke für Deinen Kommentar. Das ist eine mögliche Lösung.
Aber besteht nicht die Gefahr, wenn der Index nicht zurückgesetzt wird,
dass das Programm irgendwann überläuft und abstürzt.
Zudem habe ich das Problem, dass ich eine Fehlermeldung
für die Zeile
ActiveSheet.Shapes.SelectAll
bekomme. Nämlich Laufzeitfehler '7', Nicht genügend Speicher.
Hast Du oder jemand anders eine Ahnung woran das liegen mag.
Grüße,
Thorsten
Geschlossen: Index bei dynamischer
05.02.2004 17:02:48
Thorsten
Hab von Bert den folgenden Tipp bekommen:
ActiveSheet.DrawingObjects.Select
Hat funkitoniert.
Gruß,
Thorsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige