|
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 ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|