Textbox1.value bis Textbox40.value über schleife ändern

[Norbert Wilke]

Hallo NG,

ich habe 40 Textboxen zur eingabe von Daten in einem UserForm.
bei Änderung möchte ich einer Zelle den Wert zuweisen.

for i = 1 to 40
str= "TextBox" & i
str.value=range("A1").value
next i

funktioniert nicht.
Wenn ich str als objekt definiere kommt eine Fehlermeldung

weiß zufällig jemand, wie ich das realisieren kann ??

Norbert Wilke

[Bernd Held]

Hallo Norbert,

probier mal, ob Du folgende beiden Makros verwenden kannst.

Private Sub CommandButton1_Click()
Dim tb
Sheets("Tabelle1").Activate
Range("A1").Select
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next tb
End Sub

Private Sub CommandButton2_Click()
Dim tb
Sheets("Tabelle1").Activate
Range("A1").Select
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then ActiveCell.Value = tb.Text
ActiveCell.Offset(1, 0).Select
Next tb
End Sub

Viele Grüße
Bernd
--------------------------------------------------------
Die MacHero EXCEL Homepage unter anderem
mit meinem Excel-VBA-Kompendium (Excel97/2000),
700 Makros für die Praxis Schritt für Schritt erklärt
unter http://members.aol.com/Machero
--------------------------------------------------------

--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de

[Karl-Heinz Wachler]

"Norbert Wilke" <webm...@brenne.de> schrieb im Newsbeitrag news:u#48Xrp3AHA.2016@tkmsftngp03...

> Hallo NG,
>
> ich habe 40 Textboxen zur eingabe von Daten in einem UserForm.
> bei Änderung möchte ich einer Zelle den Wert zuweisen.
>
> for i = 1 to 40
> str= "TextBox" & i
> str.value=range("A1").value
> next i
>
> funktioniert nicht.

Controls("TextBox" &i).value = range("A1").value

MfG
Karl-Heinz

Optimierung mit genetischen Algorithmen
und Excel-AddIn:
http://www.k-hw.de