|
Also ich habe in meinem Excelsheet einen Bereich, der das Datum fortlaufend für den Monat darstellt. Ich habe für die Automatisierung VBA Code geschrieben, der ausgehend von einem Quelldatum die folgenden Zellen automatisch füllt:
In Worksheet_Change
Set SourceRange = ActiveSheet.Range("B4")
Set fillRange = ActiveSheet.Range("B4:B34")
SourceRange.AutoFill fillRange
Funktioniert wunderbar, wenn ich Quell-Zelle B4 per Hand beschreibe. Die folgenden Tage werden inkrementiert -> so möchte ich es.
Setze ich allerdings den Zellwert von B4 per Code in Worksheet_Change
tempStr = "B4"
Range(tempStr).Value = Format("01.08.2014", "Short Date")
so werden zwar auch die folgenden Zelle automatisch gefüllt, jedoch wird nicht mehr die Tageszahl inkrementiert, sondern die Jahreszahl. Das möchte ich allerdings nicht.
Hab schon die AutoFill Funktion mit allen möglichen Typen als Argument verändert, aber die Tage werden nicht inkrementiert.
Weiß nicht mehr weiter. Wer kann helfen?
|