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

UserForm Textfelder hochzählen

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten Themen

Kriterien in Query aus Exceltabelle
Joachim

Hallo zusammen,
ich hab heute entdeckt, dass ich mit dem Query direkt auf meine Oracle-DB komme. Mal wieder was neues gelernt.
Ich habe die Abfrage im Query mit Kriterien gebastelt und übergebe das Ergebnis nach Excel. Alles wunderschön. Nur sehr statisch.
Ich möchte aber per VBA:
20.11.2008 15:52:00
Thread-ID: 1026469
2 Beiträge
Öffnen einer xlt - Vorlage per Hyperlink
Alfons

Hallo Zusammen
Ich hab da ein Problem.
Ich hab ein Excel - Menue erstellt und möchte in diesem Menue Kollegen
xlt Vorlagen zur Verfügung stellen.
Auf einem Tabellenblatt öffnet sich die Vorlage wie gewollt, so dass beim Speichern
das "Speichern unter ...." Menue erscheint.<...
17.12.2008 09:31:00
Thread-ID: 1033522
3 Beiträge
Minisymbolleiste Excel 2007
Susanne

Hallo,
selbst wenn ich das Häkchen bei den Excel-Optionen aus mache, erscheint diese Minisymbolleiste bei einem Rechtsklick auf eine Markierung - zusätzlich zum herkömmlichen Rechtsklick-Menü. Wie wird man die los?
18.01.2009 05:50:00
Thread-ID: 1041046
7 Beiträge
Dateiinhalt mit Hyperlinks in Excel ausgeben
PaMa

Guten Tag zusammen
Ich hoffe, Ihr VBA - Profis könnt mich hier bei meiner aktuellen Problemstellung unterstützen.
Und zwar hab ich folgendes vor:
in einer Excel - Arbeitsmappe hab ich einen Knopf
Wenn ich auf diesen Knopf klicke so soll folgendes geschehen:
- Der Dateiinhalt...
23.01.2009 07:15:00
Thread-ID: 1042795
4 Beiträge
Anzeige
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 Beiträge
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Text:Hyperlink makro zuweisen
Tobias

Ahoi allerseits,
Ich möchte einem text ein sortierungs-makro zuweisen.
Ich könnte jetzt ein textfeld aufziehen, so gings mit rechtermaustaste-zuweisen ganz einfach
kann ich es aber auch direkt auf den text legen?
sozusagen ein hyperlink zum makro ?
besten dank,
tobias
23.02.2009 20:08:37
Thread-ID: 1053274
4 Beiträge
wieso geht das nicht?
reto

Private Sub Label18_Click() If Label18_Click.Value > Label1_Click.Caption Then Label18_Click.Caption = 24 End If End Sub
Vielen Dank für die Hilfe!
Gruss Reto
24.03.2009 15:15:56
Thread-ID: 1063373
21 Beiträge
Info in Symbolleiste oder Extrafenster
Oliver

Hallo.
Wie kann ich, zum Beispiel die Spalte und Reihe, in einer Symbolleiste oder einem Extrafenster (sollte immer im Vordergrund sein - als Info!!) mir anzeigen lassen?
Danke
Oliver
20.04.2009 13:22:22
Thread-ID: 1069799
17 Beiträge
Ausgabeverknüpfung, wie geht das?
hroth

Hallo Excel-Freunde
Ich arbeite auf einem Mac (Mac OS X, Excel 2004). Auf dem Eingabeformular für dieses Forum ist die Excel-Version 2004 für den Max nicht aufgeführt. Daher meine ergänzenden Informationen!
Ich arbeite an einem Reservationssystem für ein Hotel. Dabei habe ich eine Arbei...
23.05.2009 19:03:32
Thread-ID: 1076883
2 Beiträge
kleines Syntaxproblem
Jörg

Guten Abend zu später Stunde!
wenn die Tabellenblätter FG0, FG1, FG2 usw heißen, hole ich mir von da einen bestimmten Wert mit zB der simplen Formel =FG0!E2 ins Blatt xyz
Jetzt ist in Blatt xyz in Zelle B2 dieser Blattname mit noch was dran vorhanden, zB FG0Meier
Nun will ich mich a...
22.06.2009 23:30:21
Thread-ID: 1083626
4 Beiträge
Anzeige
VBA: GoalSeek mit Schätzwert --Wie geht das?
Gho-Reg

Private Sub CommandButton2_Click() 'C39 = Ergebnisrendite 'C15 = Zielrendite 'F28 = hochkontierte Gewinnmarge Range("C39").GoalSeek Goal:=Range("C15"), ChangingCell:=Range("F28") End Sub
Das ist mein derzeitiger code. Der funktioniert auch problemlos. Nur durch die Beschränkung der Näher...
26.06.2009 22:57:57
Thread-ID: 1084667
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige