Thema Datum  Von Nutzer Rating
Antwort
15.08.2011 13:04:59 Ros
NotSolved
15.08.2011 15:26:27 Holger
NotSolved
15.08.2011 15:59:26 Ros
NotSolved
16.08.2011 08:13:05 Ros
NotSolved
16.08.2011 10:26:49 Ros
NotSolved
Blau txt export spaltenweise
 16.08.2011 12:30:00 Ros
NotSolved
25.08.2011 16:43:14 Dekor
NotSolved
26.08.2011 07:16:06 Ros
NotSolved

Ansicht des Beitrags:
Von:
Ros		 Datum:
16.08.2011 12:30:00		 Views:
1047		 Rating:
     
Antwort:
  Ja
Thema:
txt export spaltenweise

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.08.2011 13:04:59 Ros
NotSolved
15.08.2011 15:26:27 Holger
NotSolved
15.08.2011 15:59:26 Ros
NotSolved
16.08.2011 08:13:05 Ros
NotSolved
16.08.2011 10:26:49 Ros
NotSolved
Blau txt export spaltenweise
 16.08.2011 12:30:00 Ros
NotSolved
25.08.2011 16:43:14 Dekor
NotSolved
26.08.2011 07:16:06 Ros
NotSolved