Löschen der Eingabe in mehreren Textfelder

[vw.gianni]

Hallo Zusammen,

Kennt jemand eine möglichkeit aus mehreren Textfeldern die Eingabe gleichzeitig zu löschen ?

Gruß

[Glausius]

Hallo,

deine Anfrage und die Infos dazu sind etwas dürftig!
Was für Textfelder sind das, wie und wo sind sie entstanden?

Eine Beispieldatei wäre sehr hilfreich...

[atilla]

Hallo,

wenn es Textboxen in einer Tabelle sind, dann ginge es so:

Code:

Sub TextBoxen_in_Tabelle_leeren()
   Dim i As Long
   For i = 1 To 2
      ActiveSheet.OLEObjects("Textbox" & i).Object.Text = ""
   Next
End Sub

wenn es Textboxen in einer Userform sind dann z.B. so:

Code:

Sub TextBoxen_in_Userform_leeren()
   Dim i As Long
   For i = 1 To 2
      Me.Controls("Textbox" & i).Text = ""
   Next
End Sub

[snb]

Im Arbeitsblatt

Code:

Sub M_snb()
   For each it in sheet1.oleobjects
     if typename(it.object)="TextBox" then it.Object.Text = ""
   Next
End Sub

im Userform

Code:

Private Sub UserForm_Click()
    For Each it In Controls
       If TypeName(it) = "TextBox" Then it.Text = ""
    Next
End Sub