Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Fortlaufendes Datum per VBA
Normale Version: Fortlaufendes Datum per VBA
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Basti5

25.10.2018, 07:08
Hallo liebe VBA Freunde,

ich habe mal wieder ein Problem und komme nicht weiter.

Ich eine Button kreieren, der Datumangaben ausgibt. 

Wenn z.B. in der Zelle B1 November 2018 steht, soll in der Spalte A  nach dem Klick auf den Button, die Daten vom 01.11.2018 bis zum 30.11.18 stehen.

Wird die Zelle B1 in Dezember 2018 geändert soll in Spalte A (nach Button klick) 01.12.18 bis 31.12.18 stehen usw usw.

das Ganze auf ca. 50 Jahre.

Ich bekomme aber höchsten immer das gleiche Datum hin.

Hat hier jemand eine Idee?

Viele Grüße

Basti.

MisterBurns

25.10.2018, 07:23
Zitat:Hat hier jemand eine Idee?
Ja. Zeig mal das, was du bisher erreicht hast in Form einer Beispielmappe. Dann muss man nicht bei Null anfangen.

Zitat:Ich eine Button kreieren
Wirklich?  :63:

BoskoBiati

25.10.2018, 08:13
Hi, 

da reicht doch eine einfache Formel:



=wenn(monat($b$1+spalte(a1))<>monat($b$1);"";b$1+spalte(a1))

Flotter Feger

25.10.2018, 08:25
Hallo,

eine Formel reicht nicht ganz ... aber es geht alleine mit Formeln ... Sleepy

BoskoBiati

25.10.2018, 08:31
Hi Sabina, 


natürlich reicht da eine Formel.

=wenn(monat($b$1+spalte(a1)-1)<>monat($b$1);"";b$1+spalte(a1)-1)

Flotter Feger

25.10.2018, 08:41
Hallo Edgar,

... wenn schon dann doch bitte ZEILE()  :21: 

=WENN(MONAT($B$1+ZEILE(A1)-1)<>MONAT($B$1);"";B$1+ZEILE(A1)-1)

... und es sind 31 Formeln :20: [/klugscheißmodus]

Werner.M

25.10.2018, 12:31
Hallo,

nur weil es mich interessiert hat par VBA

Monat und Jahr steht in B1, Datumsausgabe in Spalte A ab A1

Code:
Sub Test()
Dim loAnzahl As Long, loMonat As Long, i As Long

Columns(1).ClearContents
loMonat = Month(CDate("1." & Left(Trim(Cells(1, 2)), 3) & "." & Right(Trim(Cells(1, 2)), 4)))
Cells(1, 1) = DateSerial(Right(Trim(Cells(1, 2)), 4), loMonat, 1)
loAnzahl = Day(WorksheetFunction.EoMonth(Cells(1, 1), 0))

For i = 2 To loAnzahl
   Cells(i, 1) = Cells(i - 1, 1) + 1
Next i
End Sub


Gruß Werner

Basti5

25.10.2018, 13:09
Hi Werner,

der Code Funktioniert sogar aber es nur Oktober angezeigt.

Wenn sich B2 aber z.B. in November oder Dezember oder in Januar 2019 usw. ändert 
sollen sich auch die Daten in A ändern.

Wie bekommt man das hin?

VG 

Basti

Basti5

25.10.2018, 13:14
Doch funzt - B1 war falsch formatiert Smile

Vielen Dank
Clever-Excel-Forum > Office-Anwendungen > Excel > Fortlaufendes Datum per VBA