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
Rot txt export spaltenweise
16.08.2011 10:26:49 Ros
NotSolved
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 10:26:49
Views:
1046
Rating: Antwort:
  Ja
Thema:
txt export spaltenweise

Ein problem habe ich dann doch noch:

er soll im case 4 diese Funktion aufrufen und ausführen:

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
Sub Umwand_schreib()
 
Dim Datei_2 As Variant
Dim FF As Integer
Dim strZeile As String
Dim lngZeile As Long
Dim ZeileB As Long
Dim blLeer As Boolean
Dim Zeile_write As Integer
Dim Spalte_read As Integer
Dim Spalte_write As Integer
Dim Zeile_l As Integer
Dim WertZelle As String
Dim LängeZelle As String
 
    Zeile_write = 55
     
    If Tabelle1.CheckBox4 = True Then Spalte_read = 6                                                                                                                                           
    If Tabelle1.CheckBox4 = True Then Spalte_write = 6                                                                                                                                            
    If Tabelle1.CheckBox5 = True Then Spalte_read = 7                                                                                                                                              
    If Tabelle1.CheckBox5 = True Then Spalte_write = 7                                                                                                                                               
 
        For Zeile_l = 4 To 47                                                                                                                                                                                             
           WertZelle = Cells(Zeile_l, Spalte_read).Value
           LängeZelle = Len(WertZelle)
           If LängeZelle > 0 Then
              For i = 1 To LängeZelle
                Cells(Zeile_write, Spalte_write).Value = "ChrW(" & AscW(Mid(WertZelle, i, 1)) & ")"                                                                                              
                Zeile_write = Zeile_write + 1
              Next
           Else
                Cells(Zeile_write, Spalte_write).Value = """..."""                                                                                                                                                 
                MsgBox "Die Spalte: " & Spalte_write & " in Zeile: " & Zeile_l & " enthält keinen Wert" & vbCrLf _
                & "Export nicht komplett!!!", vbCritical, "+++ Warning +++ Warning +++ Warning +++"                                                                                        
                Zeile_write = Zeile_write + 1
           End If
           Zeile_write = Zeile_write + 1
        Next                                                                                                                                                                                                                     
              
    If Datei_2 = False Then Exit Sub
    FF = FreeFile()
    Open Datei_2 For Output As #FF
     
    ZeileB = 4                                                                                                                                                                                                                
    strZeile = Cells(ZeileB, 2).text & " = "
 
    If Tabelle1.CheckBox4 = True Then Spalte_write = 6                                                                                                                                                  
    If Tabelle1.CheckBox5 = True Then Spalte_write = 7                                                                                                                                                 
 
        For lngZeile = 55 To Cells(Rows.Count, Spalte_write).End(xlUp).row                                                                                                                           
           If IsEmpty(Cells(lngZeile, Spalte_write)) Then
              If blLeer = True Then                                                                           
                 ZeileB = ZeileB + 1
                 Print #FF, "    " & Left(strZeile, Len(strZeile) - 3)
                 strZeile = Cells(ZeileB, 2).text & " = "
                 blLeer = False
              End If
           Else
              strZeile = strZeile & Cells(lngZeile, Spalte_write).text & " & "
              blLeer = True
           End If
        Next
         
        Debug.Print IngZeile
 
   Print #FF, "    " & Left(strZeile, Len(strZeile) - 3)                                                                                                                                                           
   Print #FF, "End Sub"
 
   Close #FF                                                                  
    
   zeigen = Shell("C:\Program Files (x86)\Notepad++" & "\notepad++.exe " & Datei_2, 1)                                                                                                   
    
    Range("F55:G1000").Select                                                                                                                                                                                      
    Selection.Clear                                                                                                                                                                                                     
    Range("A1").Select
 
 
 
E

 


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:



  • 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
Rot txt export spaltenweise
16.08.2011 10:26:49 Ros
NotSolved
16.08.2011 12:30:00 Ros
NotSolved
25.08.2011 16:43:14 Dekor
NotSolved
26.08.2011 07:16:06 Ros
NotSolved