Line Input in verschiedene Zellen
17.11.2020 09:28:11
Levi
ich versuche hier schon lange ein Problem zu lösen, schaffe es jedoch nicht.
Ich möchte eine .txt Datei mit Line Input einlesen, was auch funktioniert. Jetzt möchte ich jedoch das sobald das Symbol "(" am Zeilenbeginn vorkommt, eine neue Zelle angefangen wird.
Hier mein Code:
Option Explicit
Sub InEineZelleEinlesen()
Dim a As String, r1 As Range
Dim QuellDatei As String
Dim i As Long
'Dateipfad festlegen
QuellDatei = "C:\Users\FQXM87S\Desktop\excel tests\Test.txt"
'Dateipfad als Zeileninput festlegen
Open QuellDatei For Input As #1
'Tabelle und Feld auswählen welches bearbeitet werden soll
'Schleife bis Ende der Datei
i = 1
While Not EOF(1)
'Werte aus Datei auf a schreiben (Zeilenweise)
Line Input #1, a
'Ausgewählte Zeile mit Zelleninhalt und Inhalt aus a überschreiben und Zeilenumbruch einfügen
If Left(Cells(i, "A"), 1) = "(" Then
Cells(i, 1).EntireRow.Insert
i = i + 1
End If
i = i + 1
Set r1 = Worksheets("einlesen").Range("A1")
r1 = r1 & a & vbLf
Wend
Close #1
End Sub
Was logischerweise nicht funktioniert ist die If-Schleife.
Wenn mir jemand helfen könnte wäre das echt klasse.
Gruß