Private Sub CommandButton5_Click()
 
'falls die Zieldatei noch nicht vorhanden ist,
'wird sie erstellt
Dim Datei As String, Text As String
Dim zeigen
 
On Error GoTo Fehler
 
'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"
 
Open Datei For Output As #1            'Zieldatei öffnen
 
Dim ctl As Control
Dim tb As MSForms.TextBox
Dim checkb As MSForms.CheckBox
Dim combob As MSForms.ComboBox
Dim zeile As Integer
Dim spalte As Integer
zeile = 1
spalte = 1
Dim ueberpruefen As Boolean
ueberpruefen = True
    While ueberpruefen
    If Application.CountA(Sheets("Arbeitsberichte").Rows(zeile)) = 0 Then
        For Each ctl In UserForm1.Controls
            With ctl
                Select Case TypeName(ctl)
                    Case "TextBox"
                        Set tb = ctl
                        Print #1, tb.Value; ";";
                        Sheets("Arbeitsberichte").Cells(zeile, spalte).Value = _
                          tb.Value
                    Case "CheckBox"
                        Set checkb = ctl
                        If checkb Then
                            Print #1, checkb.Caption; ";";
                            Sheets("Arbeitsberichte").Cells(zeile, _
                              spalte).Value = checkb.Value
                        End If
                    Case "ComboBox"
                        Set combob = ctl
                        Print #1, combob.Value; ";";
                        Sheets("Arbeitsberichte").Cells(zeile, spalte).Value = _
                          combob.Value
                End Select
            End With
            spalte = spalte + 1
        Next ctl
        ueberpruefen = False
    Else
        zeile = zeile + 1
    End If
    Wend
 
 
Close #1    'Zieldatei schließen
 
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
 
Exit Sub