Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

TextDatei in Excel
#1
Hallo,
folgendes Problem, ich habe eine Textdatei bekommen( im Anhang habt ihr ein Beispiel für 2 Mitarbeiter aber ohne Name oder Personalnummer).
Diese soll ich in Excel importieren und die Namen der Mitarbeiter sowie die Zahl der vom Anwesend Konto ausgeben.
Die Liste enthält knapp 800 Mitarbeiter.
Kann mir jemand helfen wie ich das mit der Formatierung hinbekomme und danach noch die Suche nach den Namen und Anwesend Konto.
Ich hoffe ihr könnt mein Problem etwas nachvollziehen.
Vielen Dank für eure Hilfe!


Angehängte Dateien
.txt   BeispielDatei.txt (Größe: 9,07 KB / Downloads: 15)
Antwortento top
#2
Hallo,

ein Blick in die Txt-Datei reichte. Trotzdem die Frage:

Welche Daten werden benötigt?

- alle, in einem bestimmte Format
- wenige

Vermutlich kann man mit viel VBA Einsatz die Aufgabe lösen.

mfg
Antwortento top
#3
Hallo,
aus der Datei brauch ich den Namen des Mitarbeiters und das Anwesend Konto.
Liebe Grüße
Antwortento top
#4
Wie z.B. ?

Code:
Sub M_snb()
    MsgBox Application.Trim(Replace(Join(Filter(Split(Replace(Replace(Replace(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\beispieldatei.txt").readall, Chr(175), ""), "Abteilung" & vbCrLf & vbCrLf, vbCrLf & "~"), "Tg", "Tg~"), vbCrLf), "~"), vbLf), "~", ""))
End Sub
NB. Pfad der Datei (hier "G:\OF\" ) bitte erst anpassen.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste