Brett vor dem Kopf
29.01.2004 19:02:46
Olaf
momentan habe ich echt ein Brett vor dem Kopf.
Ich habe zwei Funkionen :
Public
Function CreateComboBox(pSheet As Worksheet, pLeft, pTop, pWidth, pHeight) As ComboBox
Dim i
i = pSheet.OLEObjects.Count
pSheet.OLEObjects.Add ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=pLeft, Top:=pTop, Width:=pWidth, Height:=pHeight
Set CreateComboBox = pSheet.OLEObjects.Item(i + 1).Object
End Function
und
Public
Function CreateTextBox(pSheet As Worksheet, pLeft, pTop, pWidth, pHeight) As TextBox
Dim i
i = pSheet.OLEObjects.Count
pSheet.OLEObjects.Add ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=pLeft, Top:=pTop, Width:=pWidth, Height:=pHeight
Set CreateTextBox = pSheet.OLEObjects.Item(i + 1).Object
End Function
Die erste Funktion klappt wunderbar und liefert mir ein ComboBox-Objekt mit dem ich weiterarbeiten kann.
Bei der zweiten Funktion kommt es in der Zeile
Set CreateTextBox = pSheet.OLEObjects.Item(i + 1).Object
zu der Fehlermeldung Typen unverträglich und es kommt zum Abbruch.
Und den Fehler finde ich nicht, ich kann auch nicht vernünftig debuggen, weil hier nicht in den Haltemodus gewechselt werden kann.
Für einen Tipp wäre dankbar.
Gruß, Olaf