Hallo,
z.B. so:
Schleife über die betreffenden Spalten, Formel für die ISOKALENDERWOCHE in eine frei Spalte rechts neben deinen Daten schreiben (im Beispiel Spalte ZZ). Die Daten aus Spalte ZZ kopieren und in der entsprechenden Spalte als Werte einsetzen. Dann weiter mit der nächsten Spalte.
Wie weit dein Datenbereich geht (etc. ??) weiß ich nicht.
Option Explicit
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Fertig")
For i = 11 To 39
Select Case i
Case 11 To 13, 24 To 26, 37 To 39
loLetzte = .Cells(.Rows.Count, i).End(xlUp).Row
.Range(.Cells(1, "ZZ"), .Cells(loLetzte, "ZZ")).FormulaR1C1 = "=ISOWEEKNUM(RC" & i & ")"
.Range(.Cells(1, "ZZ"), .Cells(loLetzte, "ZZ")).Copy
.Cells(1, i).PasteSpecial Paste:=xlPasteValues
.Range(.Cells(1, i), .Cells(loLetzte, i)).NumberFormat = "General"
.Columns("ZZ").ClearContents
Case Else
End Select
Next i
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
|