ich möchte aus einer Textdatei Daten in Excel übertragen. Diese Daten sollen ohne Sonderzeichen und Formate übertragen werden.
Die Berechnungen sollen automatisch ausgeführt werden, und das Alter soll noch errechnet werden.
Einen Teil habe ich schon zusammengestellt.
Danke in Voraus!!
https://www.herber.de/bbs/user/83484.xlsm
_
Sub DatensaetzeLesen()
ThisWorkbook.Worksheets("Tabelle2").Activate
Dim Alter As Single
Dim letzte As Long
Dim i As Long
Dim Steuersatz As Double
Dim Zelle As Range
letzte = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.UsedRange.ClearFormats
'der Tabellenbereich sollte sich automatisch anpassen
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$7"), , xlYes).Name = "Personal"
On Error GoTo Fehler
Open ThisWorkbook.Path & "\eindaten.txt" For Input As 1
i = 1
Do Until EOF(1)
Line Input #1, Zeile
T = Split(Zeile, ";")
For k = 0 To UBound(T)
Cells(i, k + 1).Value = T(k)
Next k
i = i + 1
Loop
For i = 2 To letzte
Select Case Cells(i, 5)
Case Is