Gruppe
Extern
Problem
Aus UserForm-TextBoxes sollen Texte in Textdateien gespeichert werden, deren Name in Abhängigkeit einer Optionsfeldauswahl erfolgt.
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