Hallo Zusammen,
ich möchte die Kalenderwoche aus dem Datum aus Spalte G in Spalte H widergeben.
Den Code, den ich verwende, sucht jedoch alle Zeilen ab. Ich möchte, um Zeit zu sparen, nur die aktive Zeile ansprechen.
Könnt ihr mir dabei helfen?
Sub kw()
Dim zelle As Range
Dim z As Integer
For Each zelle In Worksheets(1).Range("G:G").Cells
If IsDate(zelle.Value) = True Then
Worksheets(1).Cells(zelle.Row, 8).Value = WorksheetFunction.WeekNum(zelle.Value, 1)
End If
Next zelle
End Sub
Vielen Dank schon im voraus.
Gruß
Florian