Txt-Auslesen geht nur im Einzelschritt
10.12.2020 10:26:04
Nina
Ich habe mal wieder ein kleines Problem mit meinem Makro:
Ich versuche eine txt-Datei einzulesen (hat zwischen 200 - 1000 Zeilen) und die eingelesenen Daten auf verschiedene Tabellenblätter zu verteilen.
Die Zeilen in der txt-Datei sind so aufgebaut:z.B. 5 (Prüfziffer) 45 (Ident-Nummer) "Text der mich interessiert" also = 5 45 "Text"
Die Identnummer ist einmalig und ich verwende sie als dann als Zeilennummer und sie definiert auch, auf welches Tabellenblatt der Text soll.
Das Problem ist jetzt, dass mein Makro funktioniert, solange ich es im Einzelschritt durchgehe, aber sobald ich es einfach "laufen" lasse, ist es bereits nach einer Sekunde angeblich fertig und hat keine einzige Zeile aus dem txt übernommen.
Kann mir vielleicht jemand sagen, wo mein Fehler liegt?
Private Sub cmdImport_Click()
Dim x As String
Dim Filenum As Integer
Dim AnzahlLEN As Integer
Dim Start As Integer
Dim Nummer As Integer
Dim Posnr As String
Dim Zeile As Integer
Dim arrSplitStrings1() As String
Dim Text As String
If DateiNameTXT = "" Or txtMappeTXT = "" Then
MsgBox ("Bitte wählen Sie eine gültige Datei aus!")
Exit Sub
End If
Filenum = FreeFile()
Open MappeTXT For Input Access Read As #Filenum
Do While Not EOF(Filenum)
Line Input #Filenum, x
AnzahlLEN = Len(x) 'Länge der gesamten Zeile
Start = AnzahlLEN - 2 'Erste Zahl und Leerzeichen sollen abgeschnitten werden
Posnr = Right(x, Start)
arrSplitStrings1 = Split(Posnr, " ")
Nummer = arrSplitStrings1(0)
Text = Replace(Posnr, Nummer, "")
Text = Replace(Text, Chr(34), "")
Text = Trim(Text)
If Nummer 1000 And Nummer 2000 And Nummer 3000 And Nummer 4000 And Nummer 7000 And Nummer 8000 And Nummer Nina