Hallo Leute,
habe schon sehr viele Informationen aus eurem super Forum gezogen, jedoch komme ich momentan bei meinem Projekt nicht mehr weiter, bzw. es fehlt am Verständnis. Ich hoffe von euch kann mir jemand helfen.
Ich erstelle mit dem folgenden Code dynamische Checkboxen und Comboboxen:
Blöde Frage, aber wie lange Dauert es, bis das Objekt im Arbeitsblatt von Excel erscheint? Natürlich nicht in Sekunden, aber ist das Objekt nicht vorhanden, wenn die Zeile mit OLEObject.Add abgearbeitet ist?
Warum funktioniert es so:
und so nicht:
Es kommt dann eine Fehlermeldung dass er das Objekt mit dem oben vergebenen Namen nicht finden kann.
Ich kann irgendwie nicht glauben, dass Excel so lange braucht.
Kann mir mal jemand die Abläufe erklären?
Vielen Dank für eure Antworten
Grüße Mr.Pfiff
habe schon sehr viele Informationen aus eurem super Forum gezogen, jedoch komme ich momentan bei meinem Projekt nicht mehr weiter, bzw. es fehlt am Verständnis. Ich hoffe von euch kann mir jemand helfen.
Ich erstelle mit dem folgenden Code dynamische Checkboxen und Comboboxen:
Blöde Frage, aber wie lange Dauert es, bis das Objekt im Arbeitsblatt von Excel erscheint? Natürlich nicht in Sekunden, aber ist das Objekt nicht vorhanden, wenn die Zeile mit OLEObject.Add abgearbeitet ist?
Warum funktioniert es so:
Visual Basic-Quellcode
- Sub CheckBoxesRefresh(startposleft As Integer, startpostop As Integer, infosheet As String, descriptioncolumn As String, shortnamecolumn As String)
- Dim ToRow As Long
- Dim LastRow As Long
- Dim offset As Integer
- Dim cb As OLEObject
- offset = 0
- LastRow = Sheets(infosheet).Range(descriptioncolumn + "65536").End(xlUp).Row
- For ToRow = 2 To LastRow
- Set cb = Sheet1.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
- DisplayAsIcon:=False, Left:=startposleft, Top:=startpostop + offset, width:=100, Height:=18)
- cb.Object.Caption = Sheets(infosheet).Range(descriptioncolumn & ToRow).Value
- cb.name = RT_PREFIX & "DynamicCheckbox" & (ToRow - 1)
- offset = offset + 18
- Next
- Application.OnTime Time + TimeSerial(0, 0, 1), "Sheet1.dynCheckboxFunction"
- End Sub
und so nicht:
Es kommt dann eine Fehlermeldung dass er das Objekt mit dem oben vergebenen Namen nicht finden kann.
Ich kann irgendwie nicht glauben, dass Excel so lange braucht.
Kann mir mal jemand die Abläufe erklären?
Vielen Dank für eure Antworten
Grüße Mr.Pfiff