Antes que nada quiero agradecerte de antemano :)
No tengo ninguna experiencia en VBA (solo codifiqué algunas líneas en Python y Java hace unos años), pero me dieron la tarea de crear una macro que crea una nueva hoja donde se almacenan la semana del calendario actual + la semana 3 semanas después en eso. por ejemplo: Steuerliste_neues_System_KW_25-28.xlsx
Actualmente no puedo obtener ni siquiera la semana actual en él ...
Este es mi código actual:
Sub Main() kw_ermitteln End Sub 'Kallenderwoche ermitteln Public Sub kw_ermitteln() 'kw = DINKw("DD.MM.YYYY") kw = DINKw(Range("I1")) Dim kwString As String kwString = CStr(kw) Workbooks.Add ActiveWorkbook.SaveAs Filename:=".../Steuerliste_neues_System_KW_" + kwString + ".xlsx" ActiveWorkbook.Close End Sub 'Function zur ermittlung der KW Function DINKw(dat As Date) As Integer Dim kw As Integer kw = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _ Mod 7) - 3) / 7) + 1 If kw = 0 Then kw = DINKw(DateSerial(Year(dat) - 1, 12, 31)) ElseIf kw = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then kw = 1 End If DINKw = kw End Function
Pero mi problema es que los nuevos datos de Excel se Steuerliste_neues_System_KW_.xlsx
Estoy listo para aprender, así que gracias de nuevo.