Bislang schreibt es die Inhalte von A3, A9, A15 usw. in Spalte B und von A5, A11, A17 usw. in Spalte C.
Es wird also immer 6 Zeilen weiter gesprungen.
Zwei Dinge möchte ich ändern.
Zum einen soll künftig nicht jede 6. sondern jede 10. Zeile genommen werden, also A3, A13, A23 usw. bzw. A5, A15, A25 usw.
Außerdem soll zusätzlich in Spalte D A7, A17, A27 usw. geschrieben werden.
Das erste bekomme ich noch hin, Step 6 in Step 10 zu ändern, aber an dem zweiten scheitere ich. Bitte helft mir.
Danke
Jenny
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Long, StartZeile As Long, EndZeile As Long, letzteLeereZeile As Long
Application.EnableEvents = False
With Sheet1
' StartZeile = InputBox("Ab welcher Zeile soll gestartet werden?", "Abfrage1")
StartZeile = 3
ANFANG:
EndZeile = .Cells(Rows.Count, 1).End(xlUp).Row
For i = StartZeile To EndZeile Step 6
If StartZeile = 3 Then
If letzteLeereZeile = 0 Then
letzteLeereZeile = .Cells(Rows.Count, 2).End(xlUp).Row + 1
Else
letzteLeereZeile = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End If
.Cells(letzteLeereZeile, 2).Value = .Cells(i, 1).Value
Else
If StartZeile = 5 Then
If letzteLeereZeile = 0 Then
letzteLeereZeile = .Cells(Rows.Count, 3).End(xlUp).Row + 1
Else
letzteLeereZeile = .Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
.Cells(letzteLeereZeile, 3).Value = .Cells(i, 1).Value
End If
End If
Next i
If StartZeile = 5 Then
.Range(.Cells(1, 1), .Cells(Rows.Count, 1)).Value = ""
Else
StartZeile = 5
letzteLeereZeile = 0
GoTo ANFANG
End If
End With
Application.EnableEvents = True
End Sub