das unten aufgeführte Makro wurde von mir nun dahingehend abgeändert, dass es eigentlich per Mausklick den *.txt File auswählen sollte, der in das aktuelle Worksheet eingefügt werden soll. Nur leider tut sich gar nichts. Was mache ich falsch?
Sub main()
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False 'Beschleunigt Programm!
SaveColNdx = ActiveCell.Column ' Abfrage z.Zt markierten Zelle
RowNdx = ActiveCell.Row
FName = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub
Gruß Joachim