Office: Excelmakro gibt Fehlermeldung

Hallo,
wer weiss Rat?
Das folgende Makro läuft fehlerfrei wenn die txt-Datei bei
Const Eingabedatei namentlich angegeben wird. Es erscheint aber eine Fehlermeldung wenn ich den Dateinamen aus L1 auslesen lassen will und wie in der Kommentarzeile aufgeführt an den Pfad anhänge.

Sub tr_file_laden()

Dim strFolder As String, strName As String, lngRow As Long
strFolder = "E:\Programme\picas\typrating"
If Trim$(strFolder) <> "" Then
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Columns(1).ClearContents
strName = Dir(strFolder & "\*.txt")
Do
lngRow = lngRow + 1
.Cells(lngRow, 1) = Left$(strName, Len(strName) - 4)
strName = Dir
Loop Until strName = ""
End With
Application.ScreenUpdating = True
End If

Cells.Select
Selection.ClearContents
Range("A1").Select

Dim StrDName As String
Dim Textzeile As String
Const Verzeichnis = "E:\Programme\picas\typrating\"
Const Eingabedatei = "FX-3212_FXP1840_070921.txt"
StrDName = [L1]
Range("A1").Select
Open Verzeichnis & Eingabedatei For Input As #1
' Open Verzeichnis & StrDName For Input As #1
Do While Not EOF(1)
Line Input #1, Textzeile
ActiveCell.Value = Textzeile
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:=True, Space:=True, Other:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
ActiveSheet.Columns("A:E").AutoFit


Würde mich freuen wenn jemand den Fehler erkennt.
mfg
Wulf

 

Hallo!

Ich frage mich, was denn noch in L1 stehen soll, wenn du alle Zellinhalte gelöscht hast...

Code:

Cells.Select
Selection.ClearContents 

 

Hallo Schatzi,
schönen Dank, aber leider auch dann nicht.
So geändert und trotzdem nicht.

Sub tr_file_laden()

Dim strFolder As String, strName As String, lngRow As Long
strFolder = "E:\Programme\picas\typrating"
If Trim$(strFolder) <> "" Then
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Columns(1).ClearContents
strName = Dir(strFolder & "\*.txt")
Do
lngRow = lngRow + 1
.Cells(lngRow, 1) = Left$(strName, Len(strName) - 4)
strName = Dir
Loop Until strName = ""
End With
Application.ScreenUpdating = True
End If

Cells.Select
Selection.ClearContents
Range("A1").Select

Dim StrDName As String
Dim Textzeile As String
Const Verzeichnis = "E:\Programme\picas\typrating\"
' Const Eingabedatei = "FX-3212_FXP1840_070921.txt"
Range("L1").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!RC[-5]"
StrDName = [L1]
Range("A1").Select
Open Verzeichnis & StrDName For Input As #1
Do While Not EOF(1)
Line Input #1, Textzeile
ActiveCell.Value = Textzeile
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:=True, Space:=True, Other:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
ActiveSheet.Columns("A:E").AutoFit

 

Hallo!

Ich bin leider auch nicht so der VBA-Spezialist...
Bringt es denn was, wenn du dies

Code:

StrDName = [L1] 

durch dieses hier ersetzt

Code:

StrDName = Range("L1").Text

??

 

Hallo,
nein leider nicht.

 

Hallo Schatzi,
jetzt geht es. Habe leider bei meinen Verschen die Dateiendung nicht mehr dabei gehabt.
Nun klappt es.
Danke
Wulf