|
Hallo zusammen,
ich möchte über einen Command Button erst bestimmte OLEObjects löschen dann aber im gleichen Zug neue erstellen.
Leider werden die Comboboxen immer falsch angeordnet, wenn die beiden Methoden auf einen Button lege.
Auf zwei unterschiedlichen Button funktioniert alles wie gewünscht, es wäre aber sehr von Vorteil, wenn es über einen Button funktionieren würde.
Methoden:
1 2 3 4 5 6 7 8 9 10 11 | Sub Steuerelemente_loeschen()
Dim myShapes As OLEObject
For Each myShapes In Tabelle1.OLEObjects
If StrComp(myShapes.Name, "CommandButton1", vbTextCompare) <> 0 And StrComp(myShapes.Name, "CommandButton2", vbTextCompare) <> 0 And StrComp(myShapes.Name, "CommandButton3", vbTextCompare) <> 0 Then
myShapes.Delete
Else
End If
Next
End Sub
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub Dropdown_Boxen_erstellen()
Dim top_comboboxAttribute As Integer
top_comboboxAttribute = 150
Do While top_comboboxAttribute <= 355
Tabelle1.OLEObjects.Add ClassType:="Forms.ComboBox.1", _
Left:=450, _
Top:=top_comboboxAttribute, _
Width:=210, _
Height:=18
top_comboboxAttribute = top_comboboxAttribute + 45
Loop
End Sub
|
Command Button 1 + 2 = funktioniert
1 2 3 | Private Sub CommandButton1_Click()
Steuerelemente_loeschen
End Sub
|
1 2 3 | Private Sub CommandButton2_Click()
Dropdown_Boxen_erstellen
End Sub
|
Command Button 3 = funktioniert nicht
1 2 3 4 | Private Sub CommandButton3_Click()
Steuerelemente_loeschen
Dropdown_Boxen_erstellen
End Sub
|
Hat hier jemand vielleicht eine Idee, wie ich meine zwei Methoden über einen Command Button ausführen kann und die Dropboxen dann auch in richtiger Reihenfolge angeordnet werden?
Weiß hier leider nicht mehr weiter, wäre sehr verbunden, wenn mir hier jemand helfen könnte.
Viele Grüße und vielen Dank
Eric
|