15 txtboxen leeg maken op werkblad

[Relleboer]

Ik wil van 15 textboxen op een werkblad de inhoud wissen. Graag had ik het gezien in een lus maar krijg het niet voor elkaar. Op een userform krijg ik het wel voor elkaar maar niet op een werkblad. iemand een idee

 

[gast0667]

Heb je een voorbeeld bestand met code ?

 

[Relleboer]

Zet een aantal textboxen op een werkblad en je hebt een bestandje. de code die ik hanteer voor userforms is

Private Sub CommandButton1_Click()
Dim Cntr As MSForms.Control

For Each Cntr In controls
With Cntr
If Not .Value = "" Then
.Value = Empty
End If
End With
Next
End Sub

Deze code werkt voor userform controls. Maar ik wil de code graag aangepast hebben dat hij de textboxen op een worksheet l leeg maakt maar dat krijg ik niet voor elkaar

 

[gast0667]

Zet een aantal textboxen op een werkblad en je hebt een bestandje. de code die ik hanteer voor userforms is

Private Sub CommandButton1_Click()
Dim Cntr As MSForms.Control

For Each Cntr In controls
With Cntr
If Not .Value = "" Then
.Value = Empty
End If
End With
Next
End Sub

Deze code werkt voor userform controls. Maar ik wil de code graag aangepast hebben dat hij de textboxen op een worksheet l leeg maakt maar dat krijg ik niet voor elkaar

Heb je onderstaand al geprobeerd?:
Als het goed is hebben al je tekstboxen een naam.
misschien iets las "Texstbox.value = Empty" ?

(tja, lukt mij niet om de bedoeling eruit te halen zonder bestandje )

Hoor het wel.

 

[eric cirkel]

Probeer dit eens

Dim Obj As Control
For Each Obj In Controls
If TypeName(Obj) = "TextBox" Then
Obj = Empty
End If
Next Obj


Gr eric

 

[ReneDirks]

Je kunt hiervoor niet het controls object gebruiken omdat een sheet geen controls heeft. De textboxen zijn embedded ole controls.
Je kunt ze wel zo benaderen:

Sheet1.OLEObjects

 

[eric cirkel]

Je heb gelijk rene, ik heb ff niet opzitten letten.

zal zoiets moeten worden

Dim Sh As OLEObject
For Each Sh In ActiveSheet.OLEObjects
If TypeName(Sh.Object) = "TextBox" Then
Sh.Object.Value = ""
End If
Next Sh


gr Eric

 

[Relleboer]

Dank u dat was precies wat ik zocht.