Office: (Office 2007) TextBoxen aus Userform auslesen (oder so )

Hallo zusammen,

ich suche eine Möglichkeit mehrere TextBoxen aus einer Userform auszulesen
und die Inhalte ( durch Kommata getrennt ) in einer Spalte im ArbeitsBlatt
auszugeben.

Also er soll die Boxen durchsuchen und deren Inhalt in die Spalte schreiben.

"Inhalt1 , Inhalt2 , usw. .... "

Da ich Anfänger bin kann ich mir zwar vorstellen wie es gehen sollte, aber ich komm nicht drauf

"Denke" Range("H2") = TextBoxX +1 *rolleyes.gif*

Vielen Dank für eure Hilfe !

:)

 

Hallo ?,

« Gruß Sepp »

 

mir ist nicht klar was u mit Deinem Code willst.
Range("H2") = Controls("TextBox" &Ini +1)

 

Vielen Dank ersteinmal !

Ich möchte ( weil ich Arbeitsfaul bin *wink.gif* & Damit es bei jedem Kollegen gleich aussieht ) - die Userform aufrufen, dort in die TextBoxen Einträge vornehmen - und die Sellen dann auf dem Arbeitsblatt in einer Reihe aufgezählt werden.

@ Josef e

An die Möglichkeit hab ich zuerst gedacht, aber es kann ja sein das nicht alle Boxen ausgefüllt sind - dann würde ja z.B.
das rauskommen : Text1 , Text2 , Text3 , , , , , , ,

Und das wollte ich nicht !

Danke

 

Es setzt etwas Fleissarbeit voraus, aber sonst..

Private Sub CommandButton1_Click()

Dim s

If UserForm1.TextBox1.Value "" Then
If s = "" Then
s = UserForm1.TextBox1.Value
Else
s = s + ", " + UserForm1.TextBox1.Value
End If
End If

If UserForm1.TextBox2.Value "" Then
If s = "" Then
s = UserForm2.TextBox1.Value
Else
s = s + ", " + UserForm1.TextBox2.Value
End If
End If

If UserForm1.TextBox3.Value "" Then
If s = "" Then
s = UserForm1.TextBox3.Value
Else
s = s + ", " + UserForm1.TextBox3.Value
End If
End If

Cells(1, 1).Value = s

UserForm1.Hide

End Sub

 

Hallo ?,

du musst halt genauer beschreiben was du willst.

Private Sub CommandButton1_Click()
Dim strTmp As String, lngIndex As Long

For lngIndex = 1 To 10 'Anzahl der TB's anpassen!
If Me.Controls("TextBox" & CStr(lngIndex)).Value <> "" Then
strTmp = strTmp & Me.Controls("TextBox" & CStr(lngIndex)).Value & ", "
End If
Next

If Len(strTmp) Then
Cells(1, 1).Value = Left(strTmp, Len(strTmp) - 2)
End If


End Sub





« Gruß Sepp »