Datum aus Zelle in Dropdown übernehmen
02.01.2013 13:43:34
Matze,Matthias
habe doch glatt 2 Anliegen an Euch
1.
Aus Blatt Setup Zelle J8 (Format Zahl) soll der Wert in die Zellen
B10:B40 als Jahreszahl hinten angestellt werden. Die Zellen B10:B40 sind über
Datengültigkeit defeniert.
Folgender Code funktioniert, aber leider immer nur mit der aktuellen Jahreszahl
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngIndex As Long, lngDay As Long
Dim strTmp As String
Call SchutzWeg
If Target.Address(0, 0) = "J8" Then
If IsNumeric(Target) Then
For lngIndex = 1 To 12
strTmp = ""
For lngDay = 1 To Day(DateSerial(Target, lngIndex + 1, 0))
strTmp = strTmp & Format(DateSerial(Target, lngIndex, lngDay), "dd.MM") & ","
Next
With Sheets(Format(DateSerial(1, lngIndex, 1), "MMMM")).Range("B10:B40").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=Left(strTmp, Len(strTmp) - 1)
End With
Next
End If
End If
End Sub
2.
wenn das noch möglich ist eine Sortierung der Zellen B10:B40
hier meine Musterdatei mit einem Monatsbaltt
https://www.herber.de/bbs/user/83220.xlsm
Gruß Matze