Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Textboxen

mehrere Textboxen
17.08.2003 12:17:09
Harry_W
Hallo
Habe in einer Userform ca 30 Textboxen.
Da ich nicht für alle Textboxen den gleichen Ablauf schreiben will, meine Frage :
Kann ich die Zahl hinter den Textboxen nicht als Variable ansprechen und dann
in einer For next Schleife abarbeiten ?
a = Left(TextBox1.Value, Len(TextBox1.Value = " "))
If a <> "0,00 h" Then
Sheets(f).Cells(i, 4) = a * 1
End If
Hoffe ihr könnt mir helfen.
mfg
Harry_W

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Textboxen
17.08.2003 12:22:46
Hajo_Zi
Hallo Harry
Du hättest doch mal schreiben was Du willst. Es gibt viele Ereignisse, die anderen Code brauchen
For InI=1 to 10
Controls("Textbox" & InI).VisibleTrue
Next InI
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
AW: mehrere Textboxen
17.08.2003 12:52:26
Harry_W
Hallo Hajo
Tut mir Leid wenn ich es schlecht erklärt habe.
Ich will alle 30 Textboxen nacheinander abfragen und den Wert in eine bestimmte Zelle
eintragen.
Da ich nicht 30 x das gleiche schreiben muß, wollte ich die Zahl hinter Textbox in eine Variable schreiben.
zB so
For Az = 1 to 30
a = Left(Textbox(Az).Value, Len(Textbox(Az).Value=" "))
If a <> "0,00 h" Then
Sheets(f).Cells(i,Az+3)= a *1
End if
next Az
mfg
Harry_W

AW: mehrere Textboxen
17.08.2003 12:55:02
Hajo_Zi
Hallo Harry
dann habe ich ja den richtigen Ansatz gepostet.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
AW: mehrere Textboxen
17.08.2003 13:18:59
Harry_W
Hallo Hajo
Leider kann ich deinen Ansatz nicht umsetzen.
Könntest du mir noch einmal helfen ?
mfg
Harry_W

AW: mehrere Textboxen
17.08.2003 13:25:59
Hajo_Zi
Hallo Harry
schreibe bei der Eigenschaft Tag der Textbox die Spalte ein

Sub CommandButton_Click()
Dim InI As Integer
For InI = 1 To 10
Cells(12, Controls("Textbox" & InI).Tag) = Controls("Textbox" & InI)
Next InI
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
Sorry,...
17.08.2003 13:29:38
Ramses
Hallo Hajo,
dachte du wärst beim Essen :-))
Gruss Rainer

AW: mehrere Textboxen
17.08.2003 13:28:48
Ramses
Hallo,
Der Aufbau sollte prinzipiell so sein:
For Az = 1 To 30
If Me.Controls("Textbox" & Az) <> "" Then
Sheets("Tabelle1").Cells(i, Az + 3) = CDbl(Me.Controls("Textbox" & Az))
End If
Next Az
Gruss Rainer

AW: mehrere Textboxen
17.08.2003 14:44:57
Harry_W
Hallo Hajo und Rainer
Habe mich für den Code von Hajo entschieden.
Funktioniert perfekt !
vielen Dank an euch beide
mfg
Harry_W

Danke für die Rückmeldung oT
17.08.2003 14:46:08
Hajo_Zi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige