Hallo,
Ich nochmal mit jetzt doch einam kleinen fehler.
Excel macht mit dem Iso-Kalenderwochen-Operator aus jeder leeren Zeile eine KW 52..
Wenn die Zeilen am Ende keine Daten beinhalten wird es ja automatiosch umgangen aber fehlt ein Datum zwischendrin wird es nun automatisch überall 52.
Wie kann ich das noch umgehen?
Jetziger Code :
Sub KW()
Dim loLetzte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("DateLounch")
For i = 12 To 159
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 = "=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
Liebe Grüße
|