jeweil. Tagesdatum in Pulldown - VBA

Hallo,
in einem Pulldownmenü würde ich gerne das jeweils aktuelle Tagesdatum erscheinen lassen. Nur wenn es aktiviert wurde, soll das jeweilige Datum, an dem das Pulldownmenü in der jeweiligen Zelle aktiviert wurde und gespeichert wurde, bestehen bleiben. Anbei ein Auszug aus meinem Code zur Datumseinstellung. Das Problem ist, dass momentan immer nur das Datum erscheint, an dem das Tabellenblatt generiert wurde bzw. abgespeichert wurde. Was mache ich da falsch? Auch hier wäre ich für eine Hilfestellung aus dem Forum sehr dankbar.
Herzliche Grüße
Wolfgang
'Für Pulldown die erforderlichen Daten in W1 bis W 2 schreiben, danach in O3 bis Q 200


Sub Nur_ein_Datum()
Range("W1").Value = "Ja" & " " & Date
Range("W2").Value = "Nein" & " " & Date
Range("W1:W2").Select
Selection.Font.ColorIndex = 2
Range("O3:Q200").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$W$1:$W$2"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Auweia"
.InputMessage = ""
.ErrorMessage = _
"Hier können Sie bitte nur das Listenfeld mit den Vorgaben nutzen."
.ShowInput = True
.ShowError = True
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Wolfgang!
Lösche den Code aus der Tabelle und kopiere diesen Code in das Modul "DieseArbeitsmappe".

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim strList As String
Dim rng As Range

If Not Sh.Name = "Start" And Not Sh.Name = "Daten" Then
  Set rng = Sh.Range("O2:Q200")
  rng.Validation.Delete

  If Target.Count > 1 Then Exit Sub

  If Not Intersect(Target, rng) Is Nothing Then
    strList = "Ja " & Date & Chr(44) & "Nein " & Date
    With Target.Validation
      .Add Type:=xlValidateList, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, _
        Formula1:=strList
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = "Auweia"
      .InputMessage = ""
      .ErrorMessage = _
        "Hier können Sie bitte nur das Listenfeld mit den Vorgaben nutzen."
      .ShowInput = True
      .ShowError = True
    End With
    'Application.SendKeys "%{DOWN}"
  End If
  Set rng = Nothing
End If
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

jeweil. Tagesdatum in Pulldown - VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

jeweil. Tagesdatum in Pulldown - VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread