Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Andere Schreibweise

Betrifft: Andere Schreibweise von: Jockel
Geschrieben am: 19.08.2014 09:59:34

Hallo,
Habe mal eine generelle Frage:
habe auf einer Userform so an die 100 Textboxen. Wenn ich die nun alle leeren will, müsste ich beispielswise 100 mal schreiben.

TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
usw.

Kann man das irgend wie kürzen und einfach die Textboxn ansteuern, indem man irgend wie VON 14 BIS 100 schreibt ?

Danke
Jockel

  

Betrifft: AW: Andere Schreibweise von: Matthias L
Geschrieben am: 19.08.2014 10:10:28

Hallo

so?

Dim obj As Object
For Each obj In Me.Controls
  If TypeName(obj) = "TextBox" Then obj.Value = ""
Next
Gruß Matthias


  

Betrifft: AW: Andere Schreibweise von: Daniel
Geschrieben am: 19.08.2014 10:14:01

Hi

Über die Controls-Auflistung kannst Du die TextBoxen mit einen Textstring ansprechen und dann eine schleifen erstellen:

For i = 14 to 100
    me.controls("Textbox" & i).value = ""
Next
Gruß Daniel


  

Betrifft: AW: Andere Schreibweise von: Rudi Maintaire
Geschrieben am: 19.08.2014 10:14:29

Hallo,
for i = 14 to 100
controls("TextBox" &i) = ""
next i

Gruß
Rudi


  

Betrifft: Danke allen, passt .. owT von: Jockel
Geschrieben am: 19.08.2014 11:01:06




 

Beiträge aus den Excel-Beispielen zum Thema "Andere Schreibweise"