Office: VBA aus Formel wird Datum

moin moin,
Ich habe mal wieder ein Problem, aber für euch sicherlich ein Klacks.
Und zwar habe ich nachfolgend ein Code ,der nach dem die Formel berechnet wurde, die Formel in eine Zahl (Wert) umwandelt, also die Formel verschwindet und nur der Wert bleibt erhalten. Das läuft super, aber nun bräuchte ich ein Code, der aus Formel ein Datum macht (Format:TT.MM.JJJJ).
Das Ergebnis der Formel ist ja ein Datum nur leider erkennt dieser Code das nicht, nehme an weil er im Moment nur für Zahlen dient.
Also ist mein Problem quasi den unteren Code für ein Datum tauglich zu machen.

MfG Martin
und danke für eure Bemühungen!!!!!!

Code:

Private Sub Worksheet_Calculate()

    Dim objCell As Range
    For Each objCell In Range("D5:BA600")
        If objCell.HasFormula Then _
            If IsNumeric(objCell.Text) Then _
            If Fix(objCell.Value) = objCell.Value Then _
            objCell.Value = objCell.Value
    Next
End Sub

 

achso was ich vergessen hatte.
Die beiden Prozeduren sind in ein Worksheet, nur das mit dem Datum ist im Bereich von BD5:DA600

hoffe ihr kriegt es hin
danke

 

die Überprüfun ob Datum versuche es mit Isdate()
Ich bin mir da aber nicht sicher da Excel jeden numerischen Wert in ein Datum übersetzen kann.

 

hmmmm da zeigt mir excel ein Fehler an weil ich nicht 2mal die gleiche Prozedur in ein Worksheet nehmen kann.
wie kann ich denn die beiden Codes zusammenfügen?

sry bin nicht gerade ein Experte was VBA angeht.

 

ich sehe nur einen Code.

Code:

rivate Sub Worksheet_Calculate() 

    Dim objCell As Range 
    For Each objCell In Range("D5:BA600") 
        If objCell.HasFormula Then  
            If IsNumeric(objCell.Text) Then 
            If Fix(objCell.Value) = objCell.Value Then _ 
            objCell.Value = objCell.Value
 elseIf Isdate(objCell.Text) Then 
' mache dies
End if
End if
    Next 
End Sub

 

oh ne da hab ich mich undeutlich ausgedrückt.

Also im Bereich D5-BA600 soll der Code so bleiben

aber zusätzlich brache ich einen ähnlichen Code für den Bereich BD5-DA600
(der die Formel ins Datum umwandelt)

die beiden sollen in ein Worksheet stehen.
ich hoffe ich habe mich jetzt besser ausgedrückt.

mfg

 

dann mache 2 For Next Schleifen.

 

danke sehr erstmal ich versuche mich mal an der sCHLEIFE.
melde mich falls ich es hingekriegt habe.
und um das datum zu kriegen nehme ich nun einfach anstatt isnumeric, is date? und der rest kann so bleiben, oder muss ich noch etwas verändern?

 

Nein, meine Einwand hast Du aber gelesen?

 

ja sry hatte ich überlesen konnte den Code so lassen musste nur die Range ändern.
habe somit den Code

Code:

Private Sub Worksheet_Calculate()
    Dim objCell As Range
    For Each objCell In Range("D5:BA600")
        If objCell.HasFormula Then _
            If IsNumeric(objCell.Text) Then _
            If Fix(objCell.Value) = objCell.Value Then _
            objCell.Value = objCell.Value
    Next
End Sub

und den code

Code:

Private Sub Worksheet_Calculate()
    Dim objCell As Range
    For Each objCell In Range("BD5:DA600")
        If objCell.HasFormula Then _
            If IsNumeric(objCell.Text) Then _
            If Fix(objCell.Value) = objCell.Value Then _
            objCell.Value = objCell.Value
    Next
End Sub

nun krieg ich die aber nicht zusammen gefügt bin echt zu dumm dafür. kannste mir da bitte aus der patsche helfen???

danke mfg Martin

 

Danke sehr

super habe es doch noch hingekriegt nach langem testen, danke sehr.