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
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
Rot CSV ab zweiter Zeile nach Excel importieren
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:
Gast3420
Datum:
21.10.2016 23:02:13
Views:
929
Rating: Antwort:
  Ja
Thema:
CSV ab zweiter Zeile nach Excel importieren

Dannmal das probieren. Das Löschenist auskommentiert, Dafür kommtnach dem Lesen eine messagebox die den INhalt mal anzeigt. Prüfe den mal. Hatte das wie unten bei mir getestet und da klappt es. VG

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
126
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. Bei vielen Daten Long nehmen
Dim inhalt
  
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
    
inhalt = Input(LOF(hfile), hfile)        ' liest alles ein
   
Close #hfile
  msgbox inhalt
'Kill fname
'nur eine Zeile
If UBound(Split(inhalt, vbCrLf)) = 0 Then Exit Sub
'die zweite zeile
OneLine = Split(inhalt, vbCrLf)(1)
                                                   
If OneLine <> "" Then               ' ist die Zeile NICHT leer, dann...
             
        myArr = Split(OneLine, ";"'###################  ANPASSEN !!!!!!!!!!!!!!!!!!!!!! ###########################
                                                      
        If UBound(myArr) > 42 Then 'es gibt also 44 Einträge geben , 0 und dan bis 43 = 44, Minimum sind 43
              
            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
       
       
     
       
   
    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

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
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
Rot CSV ab zweiter Zeile nach Excel importieren
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