"," geht verloren......
06.05.2007 11:20:06
Uwe
habe hier im Forum mal folgenden Code gefunden.......
Private Sub CommandButton1_Click()
'Hilfsvariable für Anzahl Datensätze
Dim Text1 As String
'Variablen für den Array nötig
Dim TxtLines As Long, i As Long
Dim TextArr As Variant
Dim ReadFile As String
'Dialog öffnen auf Basis von *.txt, *.log oder *.dat Files
ReadFile = Application.GetOpenFilename("txt Files (*.txt; *.log; *.dat),")
'Schliessen einer geöffneten Datei
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Open ReadFile For Input As #1
'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
'Zähler auf 0 setzen
TxtLines = 0
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, Text1 ' Hilfsvariable zum einlesen verwenden
' Zähler hochzählen
TxtLines = TxtLines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open ReadFile For Input As #1 ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim TextArr(TxtLines)
'Einlesen der Dateien in das Array
For i = 1 To TxtLines
Input #1, TextArr(i)
Next i
Close #1
'Daten in aktuelles Sheet schreiben
For i = 1 To TxtLines
Cells(i, 1) = TextArr(i)
Next i
End Sub
....nun funktioniert der soweit....jedoch nimmt er bei z.b. einem Betrag ...
"K O R R E K T U R E N .................................... EUR -1.627,00"
...das Komma weg und schreibt die verbleibende 00 in die nächste Zeile. Benötigt wird aber die ganze Zahl, oder besser gesagt der ganze Text mit den Zahlen in einer Zelle.
leider hab ich schon die ganze Nacht durch versucht das in den Griff zu bekommen, aber ohne Erfolg.
Für Hilfe bedank ich mich schon mal im Vorraus!
Gruß Uwe