Datum automatisch einfügen

[staff007]

Hi Leutz,

ich suche nach einer Lösung wie ich in einer Spalte das Datum automatisch setze.
Beispiel Spalte A1- 01.11.2017 Dann soll automatisch bis zur Spalte A30 das Datum 30.11.2017 gesetzt werden(immer aktueller Monat nur)
Bei dem Dezember dann bis A31 dann 31.12.2017.
Ziel soll es sein das ich nur den Anfangsmonat immer setze und der Rest automatisch gesetzt wird ohne mit der Maus dies "runterzuziehen".

ist das möglich?


Danke im Voraus.

[WillWissen]

Hi,

so:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	01.02.2016
2	02.02.2016
3	03.02.2016
4	04.02.2016
5	05.02.2016
6	06.02.2016
7	07.02.2016
8	08.02.2016
9	09.02.2016
10	10.02.2016
11	11.02.2016
12	12.02.2016
13	13.02.2016
14	14.02.2016
15	15.02.2016
16	16.02.2016
17	17.02.2016
18	18.02.2016
19	19.02.2016
20	20.02.2016
21	21.02.2016
22	22.02.2016
23	23.02.2016
24	24.02.2016
25	25.02.2016
26	26.02.2016
27	27.02.2016
28	28.02.2016
29	29.02.2016
30
31

Zelle	Formel
A2	=A1+1
A29	=WENN(A28="";"";WENN(A28=MONATSENDE($A$1;0);"";A28+1))
A30	=WENN(A29="";"";WENN(A29=MONATSENDE($A$1;0);"";A29+1))
A31	=WENN(A30="";"";WENN(A30=MONATSENDE($A$1;0);"";A30+1))

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.5.3) erstellt. ©Gerd alias Bamberg

[Kuwer]

Hallo,

füge in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$A$1" Then

    On Error Resume Next

    Application.EnableEvents = False

    Target.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, _

    Step:=1, Stop:=DateSerial(Year(Date), Month(Date) + 1, 0), Trend:=False

    Application.EnableEvents = True

    On Error GoTo 0

  End If

End Sub

Gruß Uwe

[staff007]

Super hat gefunzt vielen Dank Leute