Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
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
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox über Variable befüllen und zurückschreiben

TextBox über Variable befüllen und zurückschreiben
10.04.2018 15:01:48
Rudi
Liebe Excelkönner,
ich habe mir ein Formular zusammengebaut das über 100 Textboxen enthält. Ich befülle dies aus einem Tabellenblatt aus der aktiven Zeile.
TextBox1 = Cells(ActiveCell.Row, 181)
TextBox2 = Cells(ActiveCell.Row, 182)
TextBox3 = Cells(ActiveCell.Row, 183)
TextBox4 = Cells(ActiveCell.Row, 184)
TextBox5 = Cells(ActiveCell.Row, 185)
TextBox6 = Cells(ActiveCell.Row, 186)
TextBox7 = Cells(ActiveCell.Row, 187)
TextBox8 = Cells(ActiveCell.Row, 188)
TextBox9 = Cells(ActiveCell.Row, 189)
TextBox10 = Cells(ActiveCell.Row, 190)
usw.
danach kann ich Änderungen vornehmen und schreibe die Daten wieder zurück
Cells(ActiveCell.Row, 181) = TextBox1
Cells(ActiveCell.Row, 182) = TextBox2
Cells(ActiveCell.Row, 183) = TextBox3
Cells(ActiveCell.Row, 184) = TextBox4
Cells(ActiveCell.Row, 185) = TextBox5
Cells(ActiveCell.Row, 186) = TextBox6
Cells(ActiveCell.Row, 187) = TextBox7
Cells(ActiveCell.Row, 188) = TextBox8
Cells(ActiveCell.Row, 189) = TextBox9
Cells(ActiveCell.Row, 190) = TextBox10
Nachteil bei der Sache ist, dass das bei den vielen Textboxen einige Zeit dauert bis die Daten zurück auf das Tabellenblatt geschrieben wurden.
Denke das es auch einfacher über eine Textbox-Variable und einer Schleife gehen müsste, habe es aber leider nicht hinbekommen.
Freue mich über einen Lösungsansatz, danke.
Rudi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox über Variable befüllen und zurücksch
10.04.2018 15:25:53
Daniel
Hi
Schleifen kann man schon verwenden, wenn die Zellen nebeneinander liegen und die TextBoxen entsprechend benannt sind:
zum Einlesen der Werte in die TextBoxen (Code passend für dein Beispiel) 
For i = 1 to 10
me.controls("TextBox" & i).Text = Cells(ActiveCell.Row, 180 + i)
Next
das Rückschreiben der Werte könntest du genauso machen, ist aber nicht schneller, nur der Code ist kürzer.
Das Rückschreiben lässt sich beschleunigen, in dem man die Werte zuerst in ein 2-Dimensionales Array schreibt und dann das Array als ganzes in die Tabelle übergibt: 
dim Arr(1 to 1, 1 to 10)
for i = 1 to 10
Arr(1, i) = me.controls("TextBox" & i).Text
Next
Cells(ActiveCell.Row, 181).Resize(Ubound(Arr, 2).Value = Arr
Gruß Daniel
Anzeige
AW: TextBox über Variable befüllen und zurücksch
11.04.2018 08:34:07
Rudi
Danke Daniel und Rudi für die Hilfe, werde es gleich ausprobieren
Schöne Grüße vom Bodensee
Rudi
TextBox über Variable befüllen und zurückschreiben
10.04.2018 15:31:13
Rudi
Hallo,
wenn das so schön in der Reihe ist
1. 
r=activecell.row
for i=1 to 10  'anpassen
controls("TextBox" &i)=cells(r,i+180)
next i
2. 
dim arr(1 to 10) 'anpassen
for i=1 to 10   'anpassen
arr(i)=controls("TextBox" &i)
next i
cells(activecell.row,181).resize(,ubound(arr))=arr
Gruß
Rudi

300 Forumthreads zu ähnlichen Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
9
5
2
22
13
6
4
4
7
9
4
3
8
3
6
1
5
4
1
2
3
4