habe eine Funktion welche mir aus der Kalenderwoche das richtige Datum macht.
Die KW muss man aber in den Code schreiben, ich würde gerne eine Zahl aus einer Zelle entnehmen in der z.B. "Week: 2" steht.
Ich bekomms aber nicht hin, könnt ihr mir sagen wie das geht ?
Hier original Code:
Sub Datum_in_Zellen()
Dim vDate As Date
Dim vDate2 As Date
vDate = Datum_KW(52, 2015)
vDate2 = vDate + 6
ActiveWorkbook.Sheets("Vorlage").Cells(1, 1).Value = vDate & " " & "-" & " " & vDate2
End Sub
Die dick markierte 52 soll also mit dem Wert aus der Zelle ersetzt werden, habe versucht eine Variable zu erstellen die nur die Zahl dann verwendet.
(ein kläglicher Anfänger Versuch)
Ein Versuch ging so:
Dim i
Dim k
Dim Week
For i = 0 To 51
Week = ActiveWorkbook.Sheets("Vorlage").Cells(1, 4)
If Week = "Week :" & i Then
Week = i
End If
Next i
Ging natürlich nicht, mit Strip habe ich es auch Versucht, aber das ging auch nicht.Muss dazu allerdings sagen dass ich Strip noch nie verwendet habe und sicherlich etwas falsch gemacht habe