Private Sub BT_Update_Click() ' der Button Update wird aktiviert
    wb_name = ActiveWorkbook.Name ' da name der excel-tab nicht statisch
 
    filepath = "L:\work\proj\object pool\expose\txt importieren\export.txt"
    Workbooks.OpenText Filename:=filepath, Origin:=xlWindows, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _
    Space:=False, Other:=False, OtherChar:=""       '.txt importieren, nach 
    ' semikolons getrennt
 
    ActiveWorkbook.Sheets("export").Cells.Select ' zu sortierende zellen 
    ' markieren
 
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
End Sub