Hallo,
da musst du doch nur die Formel entsprechend anpassen.
Sub KW()
Dim loLetzte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("DateLounch")
For i = 12 To 194 Step 13
Select Case i
Case 12 To 13, 25 To 26, 38 To 39, 51 To 52, 64 To 65, 77 To 78, 90 To 91, 103 To 104, 116 To 117, 129 To 130, _
142 To 143, 155 To 156, 168 To 169, 181 To 182, 194 To 195
loLetzte = .Cells(.Rows.Count, i).End(xlUp).Row
.Range(.Cells(10, "GP"), .Cells(loLetzte, "GP")).FormulaR1C1 = "=IF(RC" & i & "<>"""",ISOWEEKNUM(RC" & i & "),"""")"
.Range(.Cells(10, "GP"), .Cells(loLetzte, "GP")).Copy
.Cells(10, i).PasteSpecial Paste:=xlPasteValues
.Range(.Cells(1, i), .Cells(loLetzte, i)).NumberFormat = "General"
.Columns("GP").ClearContents
Case Else
End Select
Next i
End With
Application.CutCopyMode = False
End Sub
Und warum
For i = 12 To 149
Dein Datenbestand geht doch wohl bis Spalte 195
Gruß Werner
|