folgendes Problem:
Ich habe eine Excel mit mehreren Überschrifts-zeilen und diesen untergeordneten Zeilen.
Mein Makro soll jede Zeile nach der Überschrift durchsuchen, und wenn in dieser Zeile an bestimmter Stelle ein "-" gefunden wird sollen die untergeordneten Zeilen gelöscht werden.
Mit absoluten Bezügen hat das auch geklappt, allerdings verschieben sich ja die Zeilen je nachdem was in den vorangegangenen Schritten gelöscht wurde.
Ich bräuchte also ein Stück Code, das wenn eine bestimmte Überschrift gefunden wurde, diese Zeile als aktive Zeile markiert und ausgehend von dieser einen bestimmten, relativen, darauffolgenden Bereich markiert und löscht.
Ich hoffe ich habe euch nicht zu sehr verwirrt :D
anbei noch mein Code:
Sub ZeilenLöschen()
Dim i As Integer
For i = 4 To 200
If Cells(i, 2) = "Geschäfts-KPIs" Then
If Cells(i, 6).Value = "-" Then
'Soweit funktioniert der Code wie gewünscht,
'hier fehlt mir der relative Bezug'
Selection.Delete Shift:=xlUp
End If
End If
Next
End Sub
Vielen Dank schonmal für die Hilfe!