Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datumscode entspricht nicht dem Datum
zurück: Schreibgeschützte Datei wird woanders gespeichert... weiter: Was für Profis VBA Makro erweiterung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
KochiKoch
VBA-Einsteiger


Verfasst am:
01. Feb 2012, 15:30
Rufname:

Datumscode entspricht nicht dem Datum - Datumscode entspricht nicht dem Datum

Nach oben
       Version: Office 2007

Hallo liebe Experten,

ich benötige mal bitte wieder Eure Hilfe.

Ich habe eine Userform, über die ich unter anderem ein Datum in die Spalte B eintragen lasse (Ersetzen von xxx mit dem Datum). Dieses Datum nutze ich wiederum in der Spalte A im Rahmen einer Verkettung. Die Verkettung dient als Basis für verschiedenste Verknüpfungen (SVerweise).

Das Merkwürdige bei der Datumseingabe ist, dass mein in die Userform eingetragens Datum (17.01.2012) auch als solches in der Spalte B angezeigt wird. Sobald ich das Datumsformat jedoch in "Standard" ändere, erhalte ich den 5-stelligen Code für das Datum 4 Jahre und 1 Tag früher (sprich: 39463 = 16.01.2008 anstelle 40925 = 17.01.2012).
Woran liegt das? Kann mir bitte einer weiterhelfen? Liegt das an der Userform (siehe unten)? Steh leider aufm Schlauch.

Danke vorab für Eure Bemühungen.

Vg KochiKoch



Code:
Private Sub cmdOK_Click()
       
    Dim dat As Date
   
    dat = Lieferdatum.Value
    dat = Format(dat, "dd.mm.yyyy")
   
        Cells.Replace What:="xxx", Replacement:=dat, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:="www", Replacement:=CarNumber.Text, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
    Sheets("Produktionsübersicht").Select
        Cells.Replace What:="xxx", Replacement:=dat, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:="www", Replacement:=CarNumber.Text, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
    Sheets("Auftragsübersicht").Select
        Cells.Replace What:="xxx", Replacement:=dat, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:="www", Replacement:=CarNumber.Text, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:="yyy", Replacement:=BTCL.Text, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
    Unload Me
   
End Sub
Grüßli
joo mei, 's langt


Verfasst am:
01. Feb 2012, 15:57
Rufname:


AW: Datumscode entspricht nicht dem Datum - AW: Datumscode entspricht nicht dem Datum

Nach oben
       Version: Office 2007

Hi,

an Replace und Änderung des Formats auf Standard liegt es nicht.

Das kann nur an LIEFERDATUM.value liegen.
Ist das ein Textfeld der Userform, des Tabellenblattes?
Ist das ggfs. irgendwie unbeabsichtigt berechnet worden / was passiert bei vollständiger Referenzierung zB. ME.LIEFERDATUM.value worksksheet(...).Lieferdatum.value?

Grüßli

_________________
eine Weisheit aus der "Funkerei", die ich auch immer anwenden sollte ( frommer Wunsch ):"erst denken, dann drücken, dann sprechen!"
Gast



Verfasst am:
01. Feb 2012, 17:01
Rufname:

AW: Datumscode entspricht nicht dem Datum - AW: Datumscode entspricht nicht dem Datum

Nach oben
       Version: Office 2007

Hi Grüßli,

ja, es ist eine Textbox der Userform.

Das Mekro zieht sich daraus das eingetragene Datum und soll es ja eigentlich in die Datumsform überführen.

Wie meinst Du das exakt mit der vollständigen Referenzierung?
"ME.LIEFERDATUM.value worksheet("Auftragsübersicht").Lieferdatum.value" - diesen Term nimmt VBA nicht an - Ist die vR wirklich so relevant? Das Makro kann und wird nur in dem vorgesehenen Tabellenblatt gestartet!
Grüßli
joo mei, 's langt


Verfasst am:
01. Feb 2012, 18:02
Rufname:


AW: Datumscode entspricht nicht dem Datum - AW: Datumscode entspricht nicht dem Datum

Nach oben
       Version: Office 2007

Hi,

ne, das waren Alternativen, weil ich ja keine Glaskugel besitze, in der ich deine Daten sehe.

Ich habe es bei mir nachgebaut und deinen Code sowohl
mit
dat = "17.01.2012"
als auch mit
dat = cdate("17.12.2012")

getestet.
Es funzten beide Varianten einwandfrei.

Deine Textbox Lieferdatum liefert natürlich TEXT (String) zurück.
Teste deinen Code mal im Einzelschrittmodus und schaue dir an, was dir

me.lieferdatum.value zurückliefert, bevor du es in die Tabelle einträgst.
Hast du eventuell in den Zellen, in denen mit replace etwas verändert wird, ein Ereignismakro WORKSHEET_CHANGE?

Grüßli

_________________
eine Weisheit aus der "Funkerei", die ich auch immer anwenden sollte ( frommer Wunsch ):"erst denken, dann drücken, dann sprechen!"
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: wenn Formel mit Datum von - bis 6 Kathy 1688 02. Mai 2005, 09:17
Kathy wenn Formel mit Datum von - bis
Keine neuen Beiträge Excel Formeln: Datum u. Uhrzeit per Tastenkombi 4 EmJay 2644 29. März 2005, 12:57
hennes7 Datum u. Uhrzeit per Tastenkombi
Keine neuen Beiträge Excel Formeln: Datum bei 90 Tage Fristüberschreitung einfärben 7 Inge 1807 21. März 2005, 14:14
Inge Datum bei 90 Tage Fristüberschreitung einfärben
Keine neuen Beiträge Excel Formeln: Datum Konvertieren 3 palath 2225 22. Feb 2005, 19:17
Günni Datum Konvertieren
Keine neuen Beiträge Excel Formeln: Wert und Datum verknüpfen 3 Helle67 3021 11. Jan 2005, 18:23
Helle67 Wert und Datum verknüpfen
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung, verknüpft mit Datum 2 MichaelP 2643 11. Jan 2005, 10:48
MichaP Bedingte Formatierung, verknüpft mit Datum
Keine neuen Beiträge Excel Formeln: Suche Formel, welche Spalte nur bis zum akt. Datum berechnet 7 Sveny 1609 04. Jan 2005, 21:45
Sveny Suche Formel, welche Spalte nur bis zum akt. Datum berechnet
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: Datum soll sich nicht aktualisieren (Excel XP) 1 FrankW 3830 01. Dez 2004, 12:52
ae Datum soll sich nicht aktualisieren (Excel XP)
Keine neuen Beiträge Excel Formeln: Wert mit aktuellstem Datum verwenden 3 coupi 2294 14. Okt 2004, 19:38
Coupi Wert mit aktuellstem Datum verwenden
Keine neuen Beiträge Excel Formeln: Datum vor 1900 7 Petschi 1518 15. Aug 2004, 15:55
Thomas Ramel Datum vor 1900
Keine neuen Beiträge Excel Formeln: Felder ausfüllen nur bis aktuellem Datum 4 Salazar 906 12. Aug 2004, 15:53
fl618 Felder ausfüllen nur bis aktuellem Datum
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project