Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1756to1760
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
Inhaltsverzeichnis

Leider nochmal Frage

Leider nochmal Frage
10.05.2020 11:08:16
sigrid
Guten Morgen,
für alle die Muttertag feiern, einen schönen Muttertag !
Ich möchte gern Textboxen in einer Userform füllen.
z.B.
Me.TextBox1 = ActiveSheet.Range("D1")
Me.TextBox2 = ActiveSheet.Range("D2")
Me.TextBox3 = ActiveSheet.Range("D3") ... u.s.w.
allerdings bis Textbox50 und im aktiven Sheet bis Zeile 50
eine Musterschleife würde mich freuen, dann kann ich dies
auch auf meine Label anwenden.
mfg sigrid

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leider nochmal Frage
10.05.2020 11:15:53
GerdL
Moin Sigrid!
Dim Z as Long
For Z = 1 To 50
Me.Controls("TextBox" & Z) = ActiveSheet.Range("D" & Z)
Next Z
Pleib Xund
Gerd
AW: Leider nochmal Frage
10.05.2020 11:18:56
onur

Dim z
For z = 1 To 50
Me.Controls("Textbox" & z) = ActiveSheet.Cells(z, 4)
Next z

AW: Leider nochmal Frage
10.05.2020 11:37:21
sigrid
Hallo Gerd und Onur,
das Funktioniert, allerdings habe ich Schwierigkeiten dies für
andere Textboxen und ab ander Zellen umzusetzen.
Also wenn die Textboxen ab TB30 bis Textbox60 und
die Zellen aus der Spalte F 10 bis F30 gemeint ist.
mfg sigrid
Anzeige
AW: Leider nochmal Frage
10.05.2020 11:39:33
onur
Wie soll das gehen ?
31 Textboxen und 21 Zellen ?
Hallo Onur, mein Fehler... natürlich bis F40
10.05.2020 12:05:32
sigrid
AW: Hallo Onur, mein Fehler... natürlich bis F40
10.05.2020 12:08:54
onur
Dann natürlich so (hättest du auch selbst drauf kommen können):

Dim z
For z = 10 To 40
Me.Controls("Textbox" & z + 20) = ActiveSheet.Cells(z, 4)
Next z

AW: Leider nochmal Frage
10.05.2020 12:15:27
GerdL
Hallo,
deklariere die Laufvariable.
Dim z As Long
Gruß Gerd
Damit sie nicht plötzlich zu einem String wird! ;)
10.05.2020 12:17:15
onur
Danke Onur und Gerd ! -)
10.05.2020 12:18:10
sigrid
Ich bin nicht Bl... aber versteh es nicht, bitte
10.05.2020 12:38:34
sigrid
Hallo zusammen,
irgenwie verstehe ich es nicht.
Habe gerad mal in der anderen UF angewendet klappt aber nicht.
Es sollen die Textboxen von 1 bis TB31 von den Zellen D14 bis D44 gefüllt werden.
For z = 14 To 44
Me.Controls("Textbox" & z) = ActiveSheet.Cells(z, 4)
Next z
gruß sigrid
Anzeige
AW: Ich bin nicht Bl... aber versteh es nicht, bitte
10.05.2020 12:40:35
onur
Mathe ist nicht jedermanns Sache!
For z = 1 To 31
Me.Controls("Textbox" & z) = ActiveSheet.Cells(z+13, 4)
Next z

Oh .... haste RECHT DANKE !!! --)
10.05.2020 12:45:01
sigrid
AW: Oh .... haste RECHT DANKE !!! --)
10.05.2020 12:49:31
onur
Du musst nur auf der einen Seite auf 1 bis 31 und auf der anderen Seite auf 14 bis 44 kommen - wie du es machst ist egal.
Man hätte auch:
For z = 14 To 44
Me.Controls("Textbox" & z-13) = ActiveSheet.Cells(z, 4)
Next z

oder
For z = 0 to 30
Me.Controls("Textbox" & z+1) = ActiveSheet.Cells(z+14, 4)
Next z

nehmen können.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige