Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt

Gruppe

TextBox

Problem

Wie kann ich die Werte aus einer Serie von UserForm-Textfeldern in die Spalte eines Tabellenblattes übertragen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmTextUebertragen

Private Sub cmdUebertragen_Click()
   Dim cnt As Control
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   For Each cnt In Controls
      If TypeName(cnt) = "TextBox" Then
         Cells(iRow, 1).Value = cnt.Text
         iRow = iRow + 1
      End If
   Next cnt
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmTextUebertragen.Show
End Sub