Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm Textfelder hochzählen

UserForm Textfelder hochzählen
17.06.2003 15:15:53
Felix Staab
Hallo,

ich suche eine Möglichkeit, die es mir ermöglicht in einer UserForm mehrere Textfelder mit einem Click auf einen Button auf "0" zu setzten.

Also statt:
UserForm1.TextBox1.Text = "0"
UserForm1.TextBox2.Text = "0"
...

Möchte ich gerne:
For i = 1 to 80
UserForm1.TextBox+i.Text = "0"

Über eine baldige Antwort wäre ich sehr dankbar.
Beste Grüße

Felix Staab

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserForm Textfelder hochzählen
17.06.2003 15:20:20
ANdreas

Hallo Felix,

hierbei werden alle Textboxen auf 0 gesetzt:
Hoffe das hilft weiter,
Andreas

Re: UserForm Textfelder hochzählen
17.06.2003 15:27:59
Thomas Risi

Hallo Felix

Hier meine Version ...


Option Explicit

Dim TextBoxes As New Collection

' Alles auf "0" setzen
'
Private Sub CommandButton1_Click()
    
    Dim item As MSForms.TextBox
    
    For Each item In TextBoxes
        item.Text = "0"
    Next item
    
End Sub

' Beim Initialisieren wird die Collection erstellt
'
Private Sub UserForm_Initialize()
    
    Dim item As Object
    
    For Each item In UserForm1.Controls
        If TypeOf item Is MSForms.TextBox Then
            TextBoxes.Add item
        End If
    Next item
    
End Sub


     Code eingefügt mit Syntaxhighlighter 2.1

Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige