Thema Datum  Von Nutzer Rating
Antwort
20.10.2016 09:06:09 Soeren
Solved
20.10.2016 09:52:51 Gast21762
Solved
20.10.2016 10:05:42 Gast11739
NotSolved
20.10.2016 12:24:30 Soeren
NotSolved
20.10.2016 12:41:09 Gast17228
NotSolved
20.10.2016 12:53:57 Soeren
NotSolved
Rot CSV ab zweiter Zeile nach Excel importieren
21.10.2016 20:09:12 Soeren
NotSolved
21.10.2016 21:06:22 Gast12128
NotSolved
21.10.2016 21:28:39 Soeren
NotSolved
21.10.2016 21:31:46 Gast34914
NotSolved
21.10.2016 21:41:28 Soeren
NotSolved
21.10.2016 21:43:54 Gast46205
NotSolved
21.10.2016 21:55:32 Soeren
NotSolved
21.10.2016 21:56:11 Gast88705
NotSolved
21.10.2016 22:14:34 Gast54181
NotSolved
21.10.2016 22:24:10 Gast87829
NotSolved
21.10.2016 23:02:13 Gast3420
NotSolved
21.10.2016 23:02:14 Gast13888
NotSolved
21.10.2016 23:32:51 Soeren
NotSolved
21.10.2016 22:45:57 Soeren
NotSolved
21.10.2016 22:24:55 Gast7307
NotSolved
21.10.2016 22:39:56 Soeren
NotSolved
21.10.2016 22:42:13 Soeren
NotSolved
21.10.2016 23:01:44 Soeren
NotSolved
22.10.2016 10:43:01 Gast52308
NotSolved
23.10.2016 11:02:53 Soeren
NotSolved
23.10.2016 12:15:25 Gast20296
NotSolved
23.10.2016 16:49:48 Soeren
NotSolved
23.10.2016 18:57:13 Gast67743
NotSolved
23.10.2016 19:22:01 Soeren
NotSolved
23.10.2016 19:29:16 Soeren
NotSolved
23.10.2016 19:30:40 Soeren
NotSolved
23.10.2016 19:42:28 Soeren
NotSolved
23.10.2016 19:49:10 Soeren
NotSolved
23.10.2016 20:09:18 Gast41213
NotSolved
23.10.2016 20:16:08 Soeren
NotSolved
23.10.2016 20:17:13 Soeren
NotSolved
23.10.2016 20:18:08 Soeren
NotSolved
23.10.2016 20:39:02 Gast78227
NotSolved
23.10.2016 21:04:41 Soeren
NotSolved
23.10.2016 21:21:25 Soeren
NotSolved
23.10.2016 22:49:15 Gast40653
NotSolved
23.10.2016 23:01:19 Soeren
NotSolved
24.10.2016 09:42:45 Gast18846
NotSolved
24.10.2016 10:54:39 Soeren
NotSolved
24.10.2016 12:28:23 Soeren
NotSolved
24.10.2016 14:18:15 Soeren
NotSolved
24.10.2016 21:49:01 Gast82902
NotSolved
24.10.2016 22:04:59 Gast58318
NotSolved
24.10.2016 22:41:58 Soeren
NotSolved
24.10.2016 22:44:25 Soeren
NotSolved
24.10.2016 22:58:20 Soeren
Solved

Ansicht des Beitrags:
Von:
Soeren
Datum:
21.10.2016 20:09:12
Views:
951
Rating: Antwort:
  Ja
Thema:
CSV ab zweiter Zeile nach Excel importieren

Hallo nochmal....

ich habe jetzt ziemlich viel probiert und rumgemacht, bekomme es aber einfach nicht hin....spreche eben zu wenig VBA....:-(

Ich möchte noch immer die zweite Zeile einer csv auslesen, so wie es jetzt ist läuft der Code durch, bringt keinen Fehler, trägt aber auch keine Daten in meine Tabelle.... Es wäre prima, wenn ein sprachbegabter programmierer mal einen blick werfen und mir auf die Sprünge helfen könnte...

hier mal der komplette Code...

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
        Sub ReadfromCSVSimple(fname As Variant, Optional fs As String = ";")
 
        Dim hfile     As Integer   ' Filehandle bzw. Dateinummer
        Dim lAnzahl   As Long      ' Zähler über alle Zeilen
        Dim OneLine   As String    ' eine Zeile als String
        Dim myArr     As Variant   ' eine Zeile in Felder getrennt
        Dim myArrRows As Variant   ' Array zum Trennen des csv in mehrere Zeilen
        Dim lnglast   As Long
        Dim zeichen   As Variant
        Dim iCnt      As Integer   'Schleifenzaehler fuer Array.
         
         
         
         
         
        ThisWorkbook.Worksheets("Projektübersicht").Select
         
        lnglast = Cells(Rows.Count, 1).End(xlUp).Row
         
        If IsEmpty(Cells(lnglast, 1)) Then lnglast = Cells(lnglast, 1).End(xlUp).Row
         
        lnglast = lnglast + 1 ' ermittelt die erste freie Zeile
         
        hfile = FreeFile
 
        Open fname For Input As #hfile
                                               
        If OneLine <> "" Then               ' ist die Zeile NICHT leer, dann...
         
        Line Input #hfile, OneLine          ' liest die erste Zeile der csv
         
        Line Input #hfile, OneLine          ' liest die zweite Zeile der csv
                                                  
        If UBound(myArr) > 1 Then
          
         With Worksheets("Projektübersicht")
          
         .Cells(lnglast, 33) = Replace(myArr(15), Chr$(34), vbNullString) 'Firma/ Name
          .Cells(lnglast, 37) = Replace(myArr(17), Chr$(34), vbNullString) ' Straße
           .Cells(lnglast, 35) = Replace(myArr(18), Chr$(34), vbNullString) ' PLZ
            .Cells(lnglast, 36) = Replace(myArr(19), Chr$(34), vbNullString) 'Ort
             .Cells(lnglast, 38) = Replace(myArr(16), Chr$(34), vbNullString) ' Ansprechpartner
              .Cells(lnglast, 39) = Replace(myArr(20), Chr$(34), vbNullString) ' Telefon
               .Cells(lnglast, 40) = Replace(myArr(22), Chr$(34), vbNullString) ' Mail
               '.Cells(lnglast, 9) = Replace(myArr(64 - 54), Chr$(34), vbNullString)  ' Abwicklung über: Firma/ Name
                '.Cells(lnglast, 13) = Replace(myArr(74 - 54), Chr$(34), vbNullString) ' Straße
                 '.Cells(lnglast, 11) = Replace(myArr(2), Chr$(34), vbNullString) ' PLZ:
                 '.Cells(lnglast, 12) = Replace(myArr(76 - 54), Chr$(34), vbNullString) ' Ort
                 '.Cells(lnglast, 8) = Replace(myArr(77 - 54), Chr$(34), vbNullString) ' Ansprechpartner
                 '.Cells(lnglast, 14) = Replace(myArr(78 - 54), Chr$(34), vbNullString) ' Telefon:
                 '.Cells(lnglast, 15) = Replace(myArr(79 - 54), Chr$(34), vbNullString) ' Mail
                  .Cells(lnglast, 3) = Replace(myArr(23), Chr$(34), vbNullString)  ' BV
                  .Cells(lnglast, 7) = Replace(myArr(27), Chr$(34), vbNullString)  ' Straße
                  .Cells(lnglast, 5) = Replace(myArr(28), Chr$(34), vbNullString)  ' PLZ
                  .Cells(lnglast, 6) = Replace(myArr(29), Chr$(34), vbNullString)   'Ort
                  .Cells(lnglast, 16) = Replace(myArr(30), Chr$(34), vbNullString)   'Ansprechpartner
                  .Cells(lnglast, 22) = Replace(myArr(31), Chr$(34), vbNullString)   'Telefon
                 .Cells(lnglast, 23) = Replace(myArr(33), Chr$(34), vbNullString)   'Mail
               '.Cells(lnglast, 42) = Replace(myArr(67 - 54), Chr$(34), vbNullString)    'Wunschtermin
              '.Cells(lnglast, 43) = Replace(myArr(95 - 54), Chr$(34), vbNullString)   'Freitext
               
              .Cells(lnglast, 31) = "Objekt:" & " " & Replace(myArr(34), Chr$(34), vbNullString) _
          & vbCrLf & "Objekthersteller:" & " " & Replace(myArr(35), Chr$(34), vbNullString) _
         & vbCrLf & "Objektalter:" & " " & Replace(myArr(36), Chr$(34), vbNullString) _
        & vbCrLf & "Trägermaterial:" & " " & Replace(myArr(37), Chr$(34), vbNullString) _
       & vbCrLf & "Oberfläche:" & " " & Replace(myArr(38), Chr$(34), vbNullString) _
       & vbCrLf & "Farbsystem-Nr.:" & " " & Replace(myArr(39), Chr$(34), vbNullString) _
        & vbCrLf & "Glanzgrad:" & " " & Replace(myArr(40), Chr$(34), vbNullString) _
         & vbCrLf & "Schadensumfang:" & " " & Replace(myArr(40), Chr$(34), vbNullString) _
          & vbCrLf & "Schadensort:" & " " & Replace(myArr(41), Chr$(34), vbNullString) _
           & vbCrLf & "Schadensursache:" & " " & Replace(myArr(42), Chr$(34), vbNullString) & vbCrLf & "Schadensbeschreibung:" & " " & Replace(myArr(43), Chr$(34), vbNullString)
            
        
             End With
          
             lnglast = lnglast + 1
          
             End If
       
             End If
     
             Close #hfile
   
             Kill fname
 
             End Sub
 
 
 
 
 
    Private Sub CommandButton1_Click()
     
    Dim Dateiname  As Variant
 
 
    Dateiname = Application.GetOpenFilename(filefilter:="Textdateien (*.csv), *.csv")
    
    
    If Dateiname <> "Falsch" Or Dateiname <> False Then
     
    Else
     
    Exit Sub
     
    End If
     
     
    Call ReadfromCSVSimple(Dateiname, ";")
    
    Unload UserForm3
    End Sub
 
 
    Private Sub CommandButton2_Click()
    Unload Me
    UserForm4.Show
    End Sub
 
    Private Sub CommandButton3_Click()
    Unload Me
    End Sub
 
 
Bitte dringend um Hilfe.....

 


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
20.10.2016 09:06:09 Soeren
Solved
20.10.2016 09:52:51 Gast21762
Solved
20.10.2016 10:05:42 Gast11739
NotSolved
20.10.2016 12:24:30 Soeren
NotSolved
20.10.2016 12:41:09 Gast17228
NotSolved
20.10.2016 12:53:57 Soeren
NotSolved
Rot CSV ab zweiter Zeile nach Excel importieren
21.10.2016 20:09:12 Soeren
NotSolved
21.10.2016 21:06:22 Gast12128
NotSolved
21.10.2016 21:28:39 Soeren
NotSolved
21.10.2016 21:31:46 Gast34914
NotSolved
21.10.2016 21:41:28 Soeren
NotSolved
21.10.2016 21:43:54 Gast46205
NotSolved
21.10.2016 21:55:32 Soeren
NotSolved
21.10.2016 21:56:11 Gast88705
NotSolved
21.10.2016 22:14:34 Gast54181
NotSolved
21.10.2016 22:24:10 Gast87829
NotSolved
21.10.2016 23:02:13 Gast3420
NotSolved
21.10.2016 23:02:14 Gast13888
NotSolved
21.10.2016 23:32:51 Soeren
NotSolved
21.10.2016 22:45:57 Soeren
NotSolved
21.10.2016 22:24:55 Gast7307
NotSolved
21.10.2016 22:39:56 Soeren
NotSolved
21.10.2016 22:42:13 Soeren
NotSolved
21.10.2016 23:01:44 Soeren
NotSolved
22.10.2016 10:43:01 Gast52308
NotSolved
23.10.2016 11:02:53 Soeren
NotSolved
23.10.2016 12:15:25 Gast20296
NotSolved
23.10.2016 16:49:48 Soeren
NotSolved
23.10.2016 18:57:13 Gast67743
NotSolved
23.10.2016 19:22:01 Soeren
NotSolved
23.10.2016 19:29:16 Soeren
NotSolved
23.10.2016 19:30:40 Soeren
NotSolved
23.10.2016 19:42:28 Soeren
NotSolved
23.10.2016 19:49:10 Soeren
NotSolved
23.10.2016 20:09:18 Gast41213
NotSolved
23.10.2016 20:16:08 Soeren
NotSolved
23.10.2016 20:17:13 Soeren
NotSolved
23.10.2016 20:18:08 Soeren
NotSolved
23.10.2016 20:39:02 Gast78227
NotSolved
23.10.2016 21:04:41 Soeren
NotSolved
23.10.2016 21:21:25 Soeren
NotSolved
23.10.2016 22:49:15 Gast40653
NotSolved
23.10.2016 23:01:19 Soeren
NotSolved
24.10.2016 09:42:45 Gast18846
NotSolved
24.10.2016 10:54:39 Soeren
NotSolved
24.10.2016 12:28:23 Soeren
NotSolved
24.10.2016 14:18:15 Soeren
NotSolved
24.10.2016 21:49:01 Gast82902
NotSolved
24.10.2016 22:04:59 Gast58318
NotSolved
24.10.2016 22:41:58 Soeren
NotSolved
24.10.2016 22:44:25 Soeren
NotSolved
24.10.2016 22:58:20 Soeren
Solved