VBA - String zerlegen - in Datum konvert
28.02.2020 09:55:58
RK
ich stehe vor dem Problem einen String in ein Datum konvertieren zu müssen.
Der String sieht bespielsweise wie folgt aus:
04U4556; 03T674646; 11C9; 08D676468764
Der Buchstabe verschlüsselt jeweils das Jahr (fix für U = 2017, T = 2016, C = 2019, D = 2020).
Die zwei Ziffern davor geben jeweils den Monat an.
Der Tag spielt keine Rolle bzw. kann immer auf den 1ten gesetzt werden.
Ziel ist es für das erste Beispiel den 01.04.2017 in die Quellzelle (B3) zu schreiben.
Zur Veranschaulichung habe ich eine Datei hochgeladen, wo das angefangene Makro inbegriffen ist.
Leider werde ich nicht fündig, wie ich den String sinnvoll trenne und als Datum zusammenstelle.
Beispiele beziehen sich immer auf Strings die direkt als Datum geschrieben sind (z.B. 1. April 2010).
Über Hilfe wäre ich sehr dankbar. :)
https://www.herber.de/bbs/user/135511.xlsm
Makro:
Sub Konvertierung()
ActiveWorkbook.Unprotect Password:=""
ActiveSheet.Unprotect Password:=""
Set B = 2018
Set C = 2019
Set D = 2020
Set T = 2016
Set U = 2017
Set V = 2018
Dim R As Range
Set R = Range(ZRB.Cells(3, 2), ZRB.Cells(1000, 2))
Z = Application.WorksheetFunction.CountA(R)
For i = 0 To Z
'Konvertierung
Next
ActiveSheet.Protect AllowFormattingCells:=True, Password:=""
ActiveWorkbook.Protect Password:=""
Application.ScreenUpdating = True
End Sub
Anzeige