Gruppe
Allgemein
Problem
In Spalte C habe ich in unregelmäßigen Abständen Überschriften angebracht. Wie kann ich diese in Spalte D in den jeweils relevanten Bereich übernehmen?
StandardModule: basMain
Sub Bearbeiten()
Dim iRowL As Integer, iCounter As Integer, iWeek As Integer
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
For iCounter = 1 To iRowL
If Cells(iCounter, 2) = "Woche" Then
iWeek = Cells(iCounter, 3)
iCounter = iCounter + 1
End If
If Not IsEmpty(Cells(iCounter, 3)) Then
Cells(iCounter, 4) = iWeek
End If
Next iCounter
End Sub