VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt

Gruppe

Dialog

Bereich

TextBox

Thema

Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox