Office: (Office 2013) Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag

Michael1978-Excel · 25. Oktober 2020

Hallo ihr da draußen,

ich habe einen kleinen VBA-Code, mit dem ich ein Datum (17.05.2020) in Zelle J20 eintrage und darunter bis Zeile J30 immer einen Tag weiter (18.05.2020, 19.05.2020 usw.)

Code:

Private Sub CommandButton1_Click()
Dim i As Long

Worksheets("suche").Range("j20").Value = "17.05.20"

For i = 21 To 30

Worksheets("suche").Cells(i, 10).Value = Worksheets("suche").Cells(i, 10).Offset(-1, 0).Value + 1
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider wird statt des gewünschten Ergebnisses folgende in die Zellen geschrieben: 13.11.66, 14.11.66 usw.

Entferne ich im VBA-Code die Zeile

Code:

Worksheets("suche").Range("j20").Value = "17.05.20"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und gebe in Zelle J20 das Datum manuell ein, dann ist das gewünschte Ergebnis zu sehen.

Kann mir hierzu bitte jemand helfen?

Gruß, Michael

:)

EarlFred · 27. Oktober 2020

Datumswerte bitte also solche behandeln und nicht als Text:
Code:

Option Explicit

Sub test()
Dim i As Long

With Worksheets("suche")
.Cells(20, 10).Value = DateSerial(2020, 5, 17)

For i = 21 To 30
.Cells(i, 10).Value = .Cells(i - 1, 10).Value + 1
Next i
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ohne Schleife:
Code:

With Worksheets("suche")
.Range("J20:J30").Formula = "=Date(2020,5,ROW()-3)"
.Range("J20:J30").Value = .Range("J20:J30").Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Michael1978-Excel · 27. Oktober 2020

Vielen Dank!
Darauf kann ich aufbauen!

Ich schließe das Thema.

Michael

Michael1978-Excel · 6. November 2020

Hallo,

ich muss leider doch noch einmal etwas nachfragen:

Kann ich den Datumswert auch optional gestalten?

Ich würde gerne den Wert aus einer TextBox als Start-Datum nehmen:

Code:

.Cells(20, 10).Value = DateSerial(Suchmaske.TextBox_von.Value)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider kommt jetzt die Meldung, dass DateSerial nicht optional ist.

Könnte mir hierzu bitte noch einmal jemand helfen.

Dankeschön!

PS: Bei mir kann es zurzeit zu 2-3Tagen Verzug bezüglich einer Rückantwort kommen.

Mase · 6. November 2020

Dir fehlt schlicht die Angabe eines erforderlichen Parameters.

https://docs.microsoft.com/de-de/off...erial-function

DateSerial(Wert1, Wert2, Wert3)

EarlFred · 6. November 2020

Leider kommt jetzt die Meldung, dass DateSerial nicht optional ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man Fehlermeldungen genau liest, hilft das in der Regel weiter.

Vielleicht hilft dir DateValue weiter?

Man muss bei solchen TEXT(!)Boxen immer aufpassen wie ein Luchs, dass wirklich ein korrekt interpretierbares Datum (=ZAHL!) eingegeben wird. Das geht in viel zu vielen Fällen schief.

knobbi38 · 6. November 2020

Hallo,

hier eine Funktion, wie man hinreichend eine Datumseingabe überprüfen könnte:
https://www.ms-office-forum.net/foru...84&postcount=8

Ulrich

Office: (Office 2013) Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag

Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag

Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag

Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag

Code unterscheidet manuell eingetragenes Datum von VBA-Eintrag - Similar Threads - Code unterscheidet manuell

Allgemeiner Code

Excel VBA Code

VBA Code für SumIf

Outlook Fehler code 3253

Excel Filter bei VBA berücksichtigen

VBA Code ändern um Werte richtig zu holen

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln