Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überschriften aus Spalte C in Spalte D in den relevanten Bereich

Gruppe

Kopieren

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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