nur zur Info, die Frage ist eine Folge dieses Themas: https://www.herber.de/forum/archiv/1692to1696/t1692672.htm#1692672
ist von diesem aber unabhängig zu betrachten (d.h. ich freu mich auch über Hilfe von anderen als neopa)
ich hab für diese Fragestellung meine Orginaldatei sukzessive gelöscht:
https://www.herber.de/bbs/user/129809.xlsm
Es geht um folgendes:
1) ich will mit einem Button einen Kalender erstellen
dieser soll folgendermaßen aussehen: In Zeile 5 soll ab Spalte D in jeder Spalte ein Datum stehen zwischen Startdatum (definiert durch zelle D2) und Enddatum (definiert durch Zelle D3) mit einer Spaltenzahl die vorgegeben ist durch den Abstand zwischen Start- und Endatum
2) mit einem 2ten Button soll dieser Kalender wieder gelöscht werden können
3) mit einem dritten Button soll der Kalender gefüllt werden mit:
a) den Formeln aus D6:D11
b) die bedingte Fomatierung aus D5 soll übernommen werden für den Kalenderbereich
Da ich zwar n VBA Grundkurs besucht habe im Studium (vor 4 Jahren) habe ich ein gewisses eingerostetes Grundverständnis... fange ansonsten aber bei 0 an.
Google hat schon ein bisschen geholfen. Jetzt hoffe ich Hilfe von euch zu bekommen beim Rest.
zu1)
Google hat mir da schon was geliefert, was ich jetzt noch modifizieren muss:
Sub create_calender()
'Definitionen
Const C_ADR_FROM = "D2" 'Zelle Start Datum
Const C_ADR_TO = "D3" 'Zelle End Datum
Const C_ADR_TARGET = "5" 'Zielzeile
'Informationen auslesen
Dim ws As Worksheet: Set ws = ActiveSheet
Dim fromDate As Date: fromDate = ws.Range(C_ADR_FROM).Value
Dim toDate As Date: toDate = ws.Range(C_ADR_TO).Value
'Anzahl Tage bestimmen
Dim cntDays As Long: cntDays = DateDiff("d", fromDate, toDate) + 1
'Start Datum übernehmen
ws.Range(C_ADR_TARGET & 1).Value = fromDate
'ZielRange definieren
Dim target As Range: Set target = ws.Range(C_ADR_TARGET & "1", C_ADR_TARGET & cntDays)
'Range mit Datum füllen
target.DataSeries , xlChronological, xlDay
End Sub
die Modifikation ist: dass das Datum nicht in einer Spalte erzeugt werden soll, sondern in einer Zeile, ab E5.
Da komm ich schon an meine Grenzen.
Zu2) da hab ich was gefunden was funktioniert:
Sub Schaltfläche5_Klicken()
Range(Cells(lngLastRow + 5, 5), Cells(lngLastRow + 200, 850)).ClearContents
End Sub
zu3)da hab ich noch gar keine Idee.
kann mir wer helfen?
Mfg
Tilman