Thema Datum  Von Nutzer Rating
Antwort
Rot Zugriff auf Name-Eigenschaft (ToggleButton)
 01.08.2017 18:35:11 Levin
NotSolved

Ansicht des Beitrags:
Von:
Levin		 Datum:
01.08.2017 18:35:11		 Views:
954		 Rating:
     
Antwort:
  Ja
Thema:
Zugriff auf Name-Eigenschaft (ToggleButton)

Hallo VBA-ler,

in einem Modul habe ich folgenden Code erstellt : 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For Zeile = 38 To 41
 
    For Spalte = 3 To 10
    
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, DisplayAsIcon:=False).Select
    
        With Selection
            .Width = Sheets("Anzeige").Range("F:F").Width
            .Height = Sheets("Anzeige").Range("A" & 38).Height
            .Left = Cells(Zeile, Spalte).Left
            .Top = Cells(Zeile, Spalte).Top
            .Placement = xlMoveAndSize
            .Name = "Button" & Zeile & Spalte
        End With
    
    ActiveSheet.OLEObjects("Button" & Zeile & Spalte).Object.BackColor = RGB(227, 227, 227)
    ActiveSheet.OLEObjects("Button" & Zeile & Spalte).Object.Caption = "inaktiv"
    
    Next Spalte
    
Next Zeile

Dieses Modul erstellt Umschaltflächen auf einem Arbeitsblatt.
Um jeder Schaltfläche ein Click-Event zuweisen zu können, möchte ich die Namen der Schaltflächen auf "Button gefolgt der Werte der Variablen Zeile und Spalte" ändern. Das ging mit der obigen Zuweisung nicht, in der Click Prozedur erscheint immernoch ToggleButtonX_Click().

1.Wie kann ich direkt auf den Namen des ToggleButton zugreifen und diesen ändern? (einfach ToggleButtonX.Name = ... ging nicht)
2.Was ist der Unterschied zwischen dem OLEObject und dem ToggleButton selbst, bzw. warum ändert der obige Befehl nicht die Eingenschaft Name des ToggleButton ?

Vielen Dank im Voraus!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zugriff auf Name-Eigenschaft (ToggleButton)
 01.08.2017 18:35:11 Levin
NotSolved