• 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.

Tekstvak leeg maken door macro

Status
Niet open voor verdere reacties.
A

arvie76

Gebruiker
Lid geworden
14 sep 2016
Berichten
84
Hoi,

Il wil graag dat het tekstvak wat op het tweede tabblad staat leeg wordt gemaakt zodra ik de macro actieveer. De cellen op het eerst blad leeg maken is me gelukt.
 

Bijlagen

  • clearvelden.xlsm
    16,5 KB · Weergaven: 47
Even een macro opnemen en dan kom je een heel eind.

Code: 
Sheets("Blad2").Shapes.Range(Array("TextBox 1")).TextFrame2.TextRange.Characters.Text = ""
 
In een Nederlandstalig versie zal dat niet gaan met "Textbox 1', die heet hierin 'Textvak 1'.

Hernoem de Textvak of geef de het nummer op zoals hier.
Code: 
Sheets("Blad2").Shapes(1).TextEffect.Text = ""
 
deze werkt prima in de NL-versie:

Code: 
Blad2.Shapes("Textbox 1").TextFrame.Characters.Text = ""
 
Hier niet @SjonR,

Foutmelding: Het item met de opgegeven naam is niet gevonden. Excel 2007.
Dus niet compatibel voor alle versies.
 
Laatst bewerkt:
ja, dan zal de versie bepalend zijn. Ik heb 2016.
 
Nee is niet versie bepalend. Het zijn, denk ik, de taalinstellingen in Windows. De macro heb ik opgenomen in XL-2010 met de taalinstelling op Nederlands. Als ik het bestand hier open in XL-2016 met de taalinstelling op Engels heet het toch 'Tekstvak 1'. De wondere wereld van Microsoft:d
 
Dan doen we het daar maar mee.
Ik heb geen vergelijkingsmateriaal. :thumb:
 
Thnx iedereen voor input

Met de oplossing van VenA ben ik stuk verder gekomen en werkt gekregen.
 
Lijkt mij niet de beste keuze maar wat werkt dat werkt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan