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
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
Blau CSV ab zweiter Zeile nach Excel importieren
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 23:01:44
Views:
905
Rating: Antwort:
  Ja
Thema:
CSV ab zweiter Zeile nach Excel importieren

Hey Du,

wenn ich es so hier schreibe....scheint es zu funktionieren, nur passt die Zuordnung absolut nicht überein und schreibt auch keine Umlaute....????

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
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
  
Input #hfile, OneLine          ' liest die erste Zeile der csv
           
Input #hfile, OneLine          ' liest die zweite Zeile der csv
  
Close #hfile
  
Kill fname
                                                 
If OneLine <> "" Then               ' ist die Zeile NICHT leer, dann...
           
        myArr = Split(OneLine, ";"'###################  ANPASSEN !!!!!!!!!!!!!!!!!!!!!! ###########################
                                                    
        If UBound(myArr) > 60 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  'MyArray > 43
         
End If 'OneLIne leer
         
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
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
Blau CSV ab zweiter Zeile nach Excel importieren
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