Userform verdwijnt na delete actie in vba

[jantoedeledoki]

Hallo

Dim sheetnr As Byte
sheetnr = Sheets.Count - 3
     
    Set p_wbBook = ActiveWorkbook
    Set p_wsSheet = p_wbBook.ActiveSheet
     
    With p_wsSheet
        .Unprotect Password:="xxxxxxxx"
        Sheets("1").Copy Before:=Sheets("Extra")
        ActiveSheet.Name = sheetnr + 1

        mergedrangeA6.Locked = False
        mergedrangeH6.Locked = False
[COLOR="#0000FF"]ActiveSheet.OLEObjects("TextBox10").Delete[/COLOR]

        ActiveSheet.Range("H6").Value = "='1'!H6"
        ActiveSheet.Range("A6").Value = "='1'!A6"
        Call Module3.HeleItem1Wissen
        


    End With
ActiveSheet.Range("A21").Select
End Sub

Bovenstaande code is een klein stukje uit een vrij complex bestand, waarin een Userform zichtbaar is wat geactiveerd is door

UserForm10.Show vbModeless
UserForm10.Left = 520
UserForm10.Top = 30

Alles werkt prima (het kopieeren van sheet 1), totdat ik het stukje blauwe code toevoeg.
Het kopieeren van sheet 1 werkt nog prima, alleen is het Userform verdwenen en verschijnt pas weer als ik een willekeurig ander worksheet selecteer.
Ik ben al dagen aan het proberen, maar krijg het niet voor elkaar om zonder fysiek ingrijpen het Userform weer zichtbaar te krijgen.

Het doel is om de tekst in A6 en H6 alleen in Sheet 1 te kunnen aanpassen. Deze wordt ingevoerd met TextBox10 en TextBox11 (met Linked Cell) op Sheet 1.
TextBox10 en 11 gebruik ik om gebruik te kunnen maken van Got_Focus en Lost_Focus.

 

[HSV]

[COLOR=#0000ff]ActiveSheet.OLEObjects("TextBox10").[/COLOR][COLOR=#ff0000]object[/COLOR][COLOR=#0000ff].Delete[/COLOR]

 

[jantoedeledoki]

Dit geeft een Run-time error '438':
Object doesn't support this property or method.

Het verwijderen van de TextBox werkt met 'mijn' code overigens wél gewoon. Het probleem is dat mijn Userform verdijnt en niet meer terugkomt.

 

[HSV]

Volgens mij is 'delete' geen onderdeel in deze, en wordt bv. zo gebruikt.
ActiveSheet.OLEObjects("TextBox10").object.text = "tekst"

Tijd misschien voor een bestandje.

 

[HSV]

Ik vermoed dat de textbox niet eens gekopieerd wordt, dus niet aanwezig kan het ook niet worden verwijderd.

 

[jantoedeledoki]

Tekstbox wordt wel degelijk meegekopieerd.
Maar als het goed is zit er nu een uitgekleed bestandje bij.

 

[HSV]

Het bestand is een .xls extensie, dus je verwacht Excel 1997-2003 of eerder.
Helaas zie ik de textboxen niet in zowel Excel 2003 als 2007.
Is het misschien gemaakt in Excel 2010 of later?, dan kan ik je niet verder helpen.

 

[jantoedeledoki]

Is inderdaad 2010.
Maar niet zien wil nog niet zeggen dat ze er niet zijn.
Ondertussen opgelost met .visible=false.