Hallo Ros,

hab mal nen bischen aufgeräumt...

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
   Print #1, "' *****************************************************************************"
   Print #1, "' "
   Select Case i
      Case 1
         If Tabelle1.CheckBox1 = True Then 
            Print #1, "'               G E R M A N "
            spalte = 3 
         Else 
            GoTo weiter
         End If

      Case 2
         If Tabelle1.CheckBox2 = True Then 
            Print #1, "'               E N G L I S H "
            spalte = 4 
         Else 
            GoTo weiter
         End If
 
      Case 3
         If Tabelle1.CheckBox3 = True Then 
            Print #1, "'               F R E N C H "
            spalte = 5 
         Else 
            GoTo weiter
         End IF
   End Select

   Print #1, "' "
   Print #1, "' *****************************************************************************"
   Print #1, "' Last Change: "; (DateAdd("m", 1, Date))
   Print #1, "' Created by macro version 1.0, DJ "
   Print #1, "' *****************************************************************************"
   Print #1, "Sub lang_deutsch()"

   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:
   'zeigen = Shell("C:\Program Files (x86)\Notepad++" & "\notepad++.exe " & Datei, 1)                                                                                                       'öffnet geschriebenes file mit notepad
   Exit Sub
  
End Sub

Gruß