VB 4/6- und VBA-Forum - Beitragsübersicht -
Von Nick68
Datum 01. Februar 2018 um 16:35:10
Frage Hallo, ich will CommandButtons zur Laufzeit generieren. Hab dazu ein Klassenmodul erzeugt, damit ich mit dem gleichen Code ansteuern kann.
Die CommandButtons sollen in Abhängigkeit der Zelle eingefügt werden:
With Sheets("Test").OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=Sheets("Kapaplanung").Cells(L_Pos_G, 6).Left + 20, _
Top:=Cells_Top, _
Width:=30, Height:=12)
'Sheets("Kapaplanung").Cells(Cells_Top, 6).Top + 0,
.Name = "Button_CB" & CB_Nr
.Object.Caption = ""
End With
L_Pos_G ist dabei die Zeile, in der der CommandButton positioniert werden soll.
Ich will nachher die Buttons benutzen um die darunterliegenden 5 Zeilen auszublenden. Deshalb muss ich nachher die Zell-Position abrufen. So weit, so gut.
Problem: bei jedem neuen Aufruf und Erzeugung des Buttons, liegt der Button nicht exakt an der Zellposition, sondern, jeder neue rutscht ein bisschen nach unten. So daß nach 5 oder 6 Aufrufen der letzte Button nicht mehr in Reihe z.B. 45 liegt (wo er liegen soll und erzeugt wurde), sondern in Reihe 46.
Was passiert da?
Danke im Voraus.
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
E10: CommandButton zur Laufzeit - Nick68 01. Februar 2018 um 16:35:10

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Excel 2010 (VBA 6)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015