Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"," geht verloren......

"," geht verloren......
06.05.2007 11:20:06
Uwe
Schönen Sonntag an Alle,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "," geht verloren......
06.05.2007 11:24:00
Josef
Hallo Uwe,
probier mal statt

Input #1



Line Input #1


Gruß Sepp

AW: "," geht verloren......
06.05.2007 12:00:11
Uwe
Hallo Sepp,
1000 Dank!!!! Jetzt gehts richtig.
Kann ich endlich schlafen gehen :-)
Nochmals Dank und eine schönen Sonntag.
Gruß Uwe
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige