csv-Datei in vorhandene Exceldatei einlesen

[Glausius]

Hallo snb,

ganz so doof, wie du mich darstellen willst, bin ich nicht!

Selbstverständlich habe ich deinen Code-Vorschlag an meine Bedingungen angepasst, aber für einen ordentlichen Programmierer gehört auch, dass die Variablen deklariert sind und nicht irgendwie im Raum schweben.
Soviel habe ich als "VBA-Anfänger" bereits gelernt und gelehrt bekommen...
Option Explicit ist Pflicht und On Error Resum Next tabu! Fehlermeldungen sind zu behandeln und nicht zu unterdrücken!

Und trotz der Anpassung auf die richtigen Dokumente (Sheets("Konvert") anstelle Sheet1) läuft dein Code nicht!

[schauan]

Hallo Günter,

Problem bei snb's code ist der "Unicode text". Nur "Text" sollte funktionieren.

[snb]

aber für einen ordentlichen Programmierer gehört auch, dass die Variablen deklariert sind und nicht irgendwie im Raum schweben.

Das sind nur Märchen (schau mal z.B. 'Python' an).
Nur wenn die 'scope ' Private' oder 'Public' ist sind Deklarationen nicht redundant.


Und: Vielen Dank für deine Vorschläge, wäre auch nett gewesen.

[schauan]

Hallo Günter,

Problem bei snb's code ist der "Unicode text". Nur "Text" sollte funktionieren.

[Glausius]

Hallo André,

danke für die Ergänzung zu snb's-Code, jetzt liest er problemlos ein, aber ich habe nicht die Daten in den Spalten Datum, sondern nur als Standardwerte.
Irgenwie ist es verhext. Klappt das eine, fubnktioniert das andere nicht und umgekehrt!
Na, vielleicht gibt es noch eine Lösung für Beides - die Hoffnung stirbt bekanntlich zu letzt!

[Käpt'n Blaubär]

Hallo Günter,

ich würde nach Einlesen der Datei ein kleines Makro drüberlaufen lassen, sodaß die Spalten
entsprechend meiner Vorstellungen quasi zwangsbeglückt neu formatiert werden.

Das scheint mir die einfachste Lösung für Dein Problem zu sein.

[Glausius]

Hallo Alle, insbesondere Peter,

ich habe nur eine Anpassung an Uwes Code bei meiner Ergänzung vornehmen müssen, es war logisch, dass Excel bei der alten Konstruktion immer dann, wenn es auf eine Zahl gestoßen ist, die in ein Datum umwandeln wollte, weil der Rest der If-Abfrage dann nicht mehr bearbeitet wurde.

Da klar ist, dass nur in den ersten beiden Zellen ein Datum steht, ist der Code so ergänzt worden

Code:

        For j = 0 To UBound(arHilf)
            If IsDate(arHilf(j)) And (j = 0 Or j = 1) Then
                arData(i, j) = CDate(arHilf(j))
            ElseIf IsNumeric(arHilf(j)) Then
                arData(i, j) = CDbl(arHilf(j))
            Else
                arData(i, j) = arHilf(j)
            End If
        Next

und er läuft nun einwandfrei!

[schauan]

Hallo Günter,

ich bleibe mal bei der anderen Version und der Lösung für das Datumsproblem.

Zu Deiner Frage - Zahlen bis Komma 12 versucht Excel bei Eintrag über VBA in ein Datum zu wandeln, jeweils den ersten des Monats.

Wir haben
Zahlen ohne Komma - in Zahl, passt.
Zahlen mit Komma - in Zahl, passt nicht immer.
Datum - soll bleiben, passt nicht

Manchmal hilft eine kleine Logiktabelle. Derzeit werden alle numerischen Daten gewandelt.
Ich möchte aber nur Zahlen wandeln, auch die, die ein Komma enthalten und nicht als Datum interpretiert werden können.
Ich müsste also 3 Bedingungen prüfen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
6	was soll's	Zahl	Zahl mit Komma	Datum
7	ISNUMERIC	T	T	T
8	AND
9	IS NOT DATE	T	F	F
10	OR INSTR ","	F	T	F
11	SUMME	T	T	F
12
13	CDBL	T	T	F

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Code:

Sub CSV_Datei_einlesen()
   Set fdDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fdDialog
       .Filters.Add "CSV-Dateien", "*.CSV", 1
       .Title = "Bitte Datei auswählen"
       .AllowMultiSelect = False
       If .Show = -1 Then
           strDatei = .SelectedItems(1)
       Else
           Exit Sub
       End If
   End With
   Set objTextFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDatei, 1, False)
   strInhalt = objTextFile.ReadAll
   objTextFile.Close
   varErgebnis = Split(strInhalt, vbCrLf)
   icnt = UBound(Split(varErgebnis(0), ";")) 'Fuer flexible Anzahl Datenspalten
   ReDim ardata(0 To UBound(varErgebnis), 0 To icnt)
   For i = 0 To UBound(varErgebnis)
       arHilf = Split(varErgebnis(i), ";")
       If UBound(arHilf) = icnt Then   'aus 15 wurde 16 und aus 16 icnt
           For j = 0 To icnt ' und auch hier ersetzt icnt die 16 die 15
               'und dann pruefen wir mal etwas mehr
               If IsNumeric(arHilf(j)) And (Not IsDate(arHilf(j)) Or InStr(arHilf(j), ",") > 0) Then
                   ardata(i, j) = CDbl(arHilf(j))
               Else
                   ardata(i, j) = arHilf(j)
               End If
           Next
       End If
   Next
   Sheets("Konvert").Range("A1").Resize(UBound(ardata, 1) + 1, UBound(ardata, 2) + 1) = ardata
End Sub

[Glausius]

Hallo André,

DAS ist die komplette Lösung - fantastisch!
Meine Lösung wandelte nur ein Datum, wenn es in einer bestimmten Zelle steht, deine Lösung erstellt dann ein Datum aus der Zelle, wenn es ein Datum ist in welcher Zelle es auch in dem Arry steht - Klasse Lösung
Danke! Jetzt bin ich unabhängig und kann an meinem Projekt weiter!

Wünsche dir ein schönes Wochenende - bei uns schneit es gerade.

[Kuwer]

Hallo Günter,

wie sieht es denn damit aus?

Option Explicit

Sub CSV_Datei_einlesen_Uwe_2()
 Dim strDatei As String
 strDatei = Application.GetOpenFilename("CSV-Dateien (*.csv), *.csv")
 If Not CVar(strDatei) = False Then
   Application.ScreenUpdating = False
   With Workbooks.Open(Filename:=strDatei, Local:=True)
     .Sheets(1).Cells.Copy ThisWorkbook.Sheets("Konvert").Cells(1)
     .Close False
   End With
   Application.ScreenUpdating = True
 End If
End Sub

Gruß Uwe