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
|