Office: (Office 2016) VBA Replace - Ich weiß mir keinen Rat mehr....

Liebe Forumsnutzer und VBA Profis,

ich stehe vor einem für mich leider schier unlösbaren Problem.

Ich habe eine kleine VBA Lösung bei der Daten aus einem anderen Excel Sheet als Werte importiert werden. Dann werden sämtliche Werte in Spalte "J" auf Datum umgestellt. Nun ergeben sich aber Werte die ein "0" enthalten. Und diese "0"-Werte in Spalte J möchte ich gerne alle ersetzen durch eine Funktion die ein Datum setzt. Dieses Datum soll sich aus dem letzten Tag des Monats (Zur Erleichterung 28.) und dem jeweiligen Werte aus Spalte "F" ("07.2020") zusammensetzt.

Soweit bin ich gekommen:

Code:

Dim inh As Date
Dim z As Long
Dim rngZelle As Range

 'Spalte J wird auf Datumsformat umgestellt´
    z = 2
    Do While Cells(z, 1) <> ""
       inh = Range("J" & z)
       Range("J" & z) = inh
       z = z + 1
    Loop
    
 ' Hier werden die Werte 00:00:00 aus Spalte "J" entfernt
    For Each rngZelle In Range("J2:J99000")
    rngZelle.Value = Replace(rngZelle.Value, "0", "28"  & Range(rngZelle; 6), 1, 1, vbBinaryCompare)
    Next rngZelle

Sicherlich nicht gut programmiert. Meine Probleme sind

1. Alle "0" (Bsp: 05.07.2019 = 285.287.22819) in den Daten werden geändert und nicht nur die Zellen die lediglich die "0" enthalten
2. Das Thema mit dem Monat/ Jahr aus Spalte "F" geht gar nicht.

Vielen Dank für die Hilfe

Sebastian

 

Man kann in einem Format keinen Wert "replacen" (weder in Excel noch in VBA). Beide erkennen nämlich im Wert keinen 28. Der Monatstag muss über eine Datumsfunktion ermittelt werden. Dann fügst Du ihm fehlende Tage hinzu oder ziehst welche ab. Und dann schreibst Du das neue Datum zurück in die Datumseriennummer, die dann Zellinhalt ist und über ein Datumsformat das für Dich lesbare und verständliche Datum zeigt.

In VBA kommt leider hinzu, dass Datumsoperationen in vielen Fällen umständlicher sind, als in Excel.