Clever-Excel-Forum

Hallo Zusammen,

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

Gruß

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

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

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

vw.gianni

Glausius

atilla

snb