Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBoxes-Texte in Textdateien speichern

Gruppe

TextExport

Problem

Aus UserForm-TextBoxes sollen Texte in Textdateien gespeichert werden, deren Name in Abhängigkeit einer Optionsfeldauswahl erfolgt.

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

ClassModule: frmRubriken

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iOption As Integer
   Dim sPath As String, sFile As String
   sPath = Application.DefaultFilePath & "\"
   For iOption = 1 To 4
      If Controls("OptionButton" & iOption) Then
         Exit For
      End If
   Next iOption
   Select Case iOption
      Case 1: sFile = "TextOptionEins.txt"
      Case 2: sFile = "TextOptionZwei.txt"
      Case 3: sFile = "TextOptionDrei.txt"
      Case 4: sFile = "TextOptionVier.txt"
   End Select
   Close
   Open sPath & sFile For Output As #1
   For iOption = 1 To 4
      Print #1, Controls("TextBox" & iOption).Text
   Next iOption
   Close
   MsgBox "Die Datei wurde angelegt:" & vbLf & sPath & sFile
   Unload Me
End Sub
StandardModule: Modul1

Sub CallForm()
   frmRubriken.Show
End Sub