Guten Tag zusammen,
habe hier im Forum schon einige gute Lösungen für meine Excelprobleme gefunden, jedoch für mein aktuelles Problem leider nicht.
Habe eine sehr große Datei ( die täglich aktualisiert wird. Die Daten werden per Makro übertragen, Datum (08.07.2015) Monat (7) und Jahr (2015) nachträglich in die Spalten H - I - J eingetragen. Nun möchte ich in Spalte K die Kalenderwoche zum Datum in Spalte H berechnen lassen. Leider ist meine Lösung so langsam, dass ich den Vorgang immer über den Taskmanager abbrechen muss.
Habt ihr hier vielleicht eine bessere Lösung?
Hier ein Auszug aus meinem Code:
Heute = Range("Start_xxxxx!B20")
dValue = dValue - 1
Do
dValue = dValue + 1
Range("H" & dValue) = Heute 'Tag
Range("I" & dValue) = Mid(Heute, 4, 2) 'Monat
Range("J" & dValue) = Right(Heute, 4) 'Jahr
Loop While Cells(dValue, 1) "" 'bis Leerzeile
Range("H" & dValue) = "" 'letzte Zeile entfernen
Range("I" & dValue) = ""
Range("J" & dValue) = ""
End If
Next i
Dim zelle As Range
For Each zelle In Worksheets("xxxxxx").Range("H:H").Cells
If IsDate(zelle.Value) = True Then
Worksheets("xxxxxx").Cells(zelle.Row, 11).Value = WorksheetFunction.WeekNum(zelle.Value, 1)
End If
Next zelle