Hallo also das was obe n steht habe ich gelöst...

ich habe deinen Code ein wenig angepasst, hab jetzt aber das problem, dass die spalte der letzten aktivierten Checkbox immer doppelt ausgegeben wird, was natürlich falsch ist...

kannst du ja mal meinen Code angucken und auf fehlersuche gehen...Danke

Sub CommandButton1_Click()

Dim Datei As Variant
Dim Zeile As Double
Dim vari As String
Dim txt As String
Dim spalte As Double
Dim zeigen


Datei = Application.GetSaveAsFilename("transl_report.txt", "txt-Datei,*.txt", , "Speichern des Reports")

If Datei = False Then Exit Sub
Open Datei For Output As #1

For i = 1 To 3

Select Case i

Case 1
     
    If Tabelle1.CheckBox1 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox1 = True Then Print #1, "' "
    If Tabelle1.CheckBox1 = True Then Print #1, "'               G E R M A N "
    If Tabelle1.CheckBox1 = True Then Print #1, "' "
    If Tabelle1.CheckBox1 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox1 = True Then Print #1, "' Last Change: "; (DateAdd("m", 1, Date))
    If Tabelle1.CheckBox1 = True Then Print #1, "' Created by macro version 1.0, DJ "
    If Tabelle1.CheckBox1 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox1 = True Then Print #1, "Sub lang_deutsch()"
    If Tabelle1.CheckBox1 = True Then spalte = 3 Else GoTo weiter

Case 2

    If Tabelle1.CheckBox2 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox2 = True Then Print #1, "' "
    If Tabelle1.CheckBox2 = True Then Print #1, "'               E N G L I S H "
    If Tabelle1.CheckBox2 = True Then Print #1, "' "
    If Tabelle1.CheckBox2 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox2 = True Then Print #1, "' Last Change: "; (DateAdd("m", 1, Date))
    If Tabelle1.CheckBox2 = True Then Print #1, "' Created by macro version 1.0, DJ "
    If Tabelle1.CheckBox2 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox2 = True Then Print #1, "Sub lang_english()"
    If Tabelle1.CheckBox2 = True Then spalte = 4 Else GoTo weiter

Case 3

    If Tabelle1.CheckBox3 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox3 = True Then Print #1, "' "
    If Tabelle1.CheckBox3 = True Then Print #1, "'               F R E N C H "
    If Tabelle1.CheckBox3 = True Then Print #1, "' "
    If Tabelle1.CheckBox3 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox3 = True Then Print #1, "' Last Change: "; (DateAdd("m", 1, Date))
    If Tabelle1.CheckBox3 = True Then Print #1, "' Created by macro version 1.0, DJ "
    If Tabelle1.CheckBox3 = True Then Print #1, "' *****************************************************************************"
    If Tabelle1.CheckBox3 = True Then Print #1, "Sub lang_french()"
    If Tabelle1.CheckBox3 = True Then spalte = 5 Else GoTo weiter


Case Else

End Select

    For Zeile = 4 To 47

   vari = Cells(Zeile, 2) & " = "

        If Cells(Zeile, spalte) = "" Then
            MsgBox "Die Spalte: " & spalte & " in Zeile: " & Zeile & " enthält keinen Wert" & vbCrLf _
            & "Export nicht komplett!!!", vbCritical, "+++ Warning +++ Warning +++ Warning +++"                                                                                          'gibt Fehlermeldung aus wenn zelle leer
        End If

    txt = "    " & vari & """" & Cells(Zeile, spalte) & """"                                                                                                                                                     'schreibanordnung

    Print #1, txt                                                                                                                                                                                                              'schreibt txt

    Next Zeile
    
    Print #1, "End Sub" & vbCrLf

weiter:

Next i
         
    'zeigen = Shell("C:\Program Files (x86)\Notepad++" & "\notepad++.exe " & Datei, 1)                                                                                                       'öffnet geschriebenes file mit notepad
 
    Exit Sub
 
    End Sub