Hallo,
als Ausgangsbasis habe ich eine .txt datein in welcher Zeilenweise Personen aufgelistet sind welche sich zu einem bestimmten Datum eingeschrieben haben.
Beispiel:
Mein Problem ist folgendes.
Ich möchte eine eindeutige ID anhand des Einschreibedatums errechnen. Diese soll wie folgt aussehen: YYYYMMTT001 und +1 wenn mehrere am gleichen Tag eingeschrieben wurden.
In der Art:
Kann mir da jemand helfen?
Vielen Dank
als Ausgangsbasis habe ich eine .txt datein in welcher Zeilenweise Personen aufgelistet sind welche sich zu einem bestimmten Datum eingeschrieben haben.
Beispiel:
Diese lese ich erfolgreich ein und ich kann die Daten auch schon in eine Tabelle reinschreiben.Name;Vorname;Einschreibdatum;email
ThisWorkbook.Sheets(1).Range("E" & rowCounter).value = Name
ThisWorkbook.Sheets(1).Range("F" & rowCounter).value = email
ThisWorkbook.Sheets(1).Range("G" & rowCounter).value = ""
ThisWorkbook.Sheets(1).Range("H" & rowCounter).value = ""
ThisWorkbook.Sheets(1).Range("I" & rowCounter).value = ID
Mein Problem ist folgendes.
Ich möchte eine eindeutige ID anhand des Einschreibedatums errechnen. Diese soll wie folgt aussehen: YYYYMMTT001 und +1 wenn mehrere am gleichen Tag eingeschrieben wurden.
In der Art:
Der MatchcodeCounter soll nach oben zählen wenn schon ein Eintrag da ist.Dim matchcode As Long
matchcode = Format((InscrDate), "yyyymmdd")
Dim MatchcodeCounter As Long
MatchcodeCounter = CStr(Format("1", "000"))
Debug.Print (matchcode & Format(MatchcodeCounter, "000"))
Kann mir da jemand helfen?
Vielen Dank