diese Frage, ist eine Folge von diesem Thema:
https://www.herber.de/cgi-bin/callthread.pl?index=1692984#1692984
in dieser Datei findet Ihr das Projekt (stark gekürzt):
https://www.herber.de/bbs/user/129888.xlsm
ich leere mit dem button "Kalender löschen" einen großen Bereich (der fordere Bereich A1 bis E200 darf nicht gelöscht werden)
mit dem Button "Kalender erstellen" erzeuge ich einen Kalender (danke für den Code MM)
mit dem dritten Button "Kalender füllen" möchte ich den Zellinhalt aus E6 bis E200 kopieren und in die erzeugten Kalenderzellen einfügen.
meine erste Idee war es, die zuvor verwendete targetfunktion als Zielzellen zu verwenden. das hat aber nicht funktioniert.
Aktuell versuche ich mit einer If Schleife die zellen zu kopieren:
Sub fill_calender()
Dim ws As Worksheet
Dim fromDate As Long, toDate As Long, cntDays As Long
Dim target As Range
Dim C_TargetRow As Long
Dim n As Long
Dim d As Long, m As Long, y As Long, col As Long, newd As Long
Set ws = ActiveSheet
ws.Select
C_TargetRow = 6
n = 6
fromDate = ws.Range(C_From_Date).Value
toDate = ws.Range(C_To_Date).Value
cntDays = toDate - fromDate + 1
ws.Cells(C_TargetRow, 6).Value = fromDate
If Cells(C_TargetRow, n).Value "" Then
Range("E6").Copy _
Destination:=Cells(C_TargetRow, n)
n = n + 1
End If
End Sub
Das funktioniert aber auch nicht recht.kann mir wer helfen?
Hinweis: ich kopier erst mal nur eine zelle, versuche im nächsten schritt dann die anderen Zellen zu integrieren in den code.
Danke
Tilman