Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Format(Now) auf Gestern setzten VBA


Betrifft: Format(Now) auf Gestern setzten VBA von: Lisa
Geschrieben am: 15.07.2018 13:14:53

Guten Morgen,

ich habe eine kurze Frage zu einem VBA Problem.
Wie kann ich den Code so abändern, dass das Datum von gestern, vorgestern usw. in die Zelle geschrieben wird?

Vielen Dank und LG

Lisa

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then _
    Worksheets("Datum").Range("B10") = Format(Now(), "dd.mm.yyyy")
If CheckBox1.Value = False Then
    Range("B10") = ""
End If

End Sub

  

Betrifft: AW: Format(Now) auf Gestern setzten VBA von: Hajo_Zi
Geschrieben am: 15.07.2018 13:19:59

Du schreibst kein Datum in die Zelle sondern Text.
Format(Now()-1, "dd.mm.yyyy")


GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: AW: Format(Now) auf Gestern setzten VBA von: Lisa
Geschrieben am: 15.07.2018 13:24:06

Hallo Hajo,

ich hätte schwören können, dass ich genau das eben ausprobiert habe mit dem folgenden Ergebnis 15072018 statt 14.07.2018.
Jetzt geht es :D
Werde die -1 wohl aus Versehen an die falsche Stelle gesetzt haben.

Vielen Dank und Gruß

Lisa


  

Betrifft: AW: Format(Now) auf Gestern setzten VBA von: Hajo_Zi
Geschrieben am: 15.07.2018 13:33:00

und mit Datum, nicht Text der aussieht wie Datum.

Option Explicit

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then _
        Worksheets("Datum").Range("B10") = Now() - 1
        Worksheets("Datum").Range("B10").NumberFormat = "dd.mm.yyyy"
    If CheckBox1.Value = False Then
        Range("B10") = ""
    End If
End Sub
Gruß Hajo


  

Betrifft: AW: Format(Now) auf Gestern setzten VBA von: Lisa
Geschrieben am: 15.07.2018 13:48:47

Vielen Dank.

Gruß Lisa


  

Betrifft: AW: Format(Now) auf Gestern setzten VBA von: snb
Geschrieben am: 15.07.2018 17:00:24

Es gibt 'Date' in VBA:

sheets("Datum").Range("B10") = Date - 1