• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestand werkt wel onder windows 7 maar niet onder windows 10

Status
Niet open voor verdere reacties.
Terzijde:

Om een systeemkaart te maken, gebruik

Code:
Private Sub LB_00_Click()
    For i = 0 To 10
      Sheets("Systeemkaart").OLEObjects("TB_" & format(j,"00")).Object.Text = LB_00.Column(i)
    Next
Edn sub

In plaats van

Code:
Private Sub LB_00_Click()
    For i = 0 To 10
      Me("TB_0" & j).Value = LB_00.Column(i)
    Next
T_08.Value = LB_00.Column(9)
T_09.Value = LB_00.Column(10)
T_10.Value = LB_00.Column(11)
    With Sheets("Systeemkaart")
        .OLEObjects("TB_00").Object.Text = T_00.Value
        .OLEObjects("TB_01").Object.Text = T_01.Value
        .OLEObjects("TB_02").Object.Text = T_02.Value
        .OLEObjects("TB_03").Object.Text = T_03.Value
        .OLEObjects("TB_04").Object.Text = T_04.Value
        .OLEObjects("TB_05").Object.Text = T_05.Value
        .OLEObjects("TB_06").Object.Text = T_06.Value
        .OLEObjects("TB_07").Object.Text = T_07.Value
        .OLEObjects("TB_08").Object.Text = T_08.Value
        .OLEObjects("TB_09").Object.Text = T_09.Value
        .OLEObjects("TB_10").Object.Text = T_10.Value
    End With
End Sub
 
E.e.a. uitgezocht. Office 16 geinstalleerd. Dit leverde niet het gewenste resultaat. Het probleem bleef. Vervolgens excel gestart in de veilige modus. Na opstarten kwam de beveiligingswaarschuwing: Bepaalde actieve inhoud is uitgeschakeld. Deze inhoud inschakelen ? Wat schetst mijn verbazing: Na inschakeling werkte het document zoals het hoort te werken. Dus, vermoedelijk heeft het te maken met de bevieliging in windows .
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan