Wert suchen und Zeilen oberhalb löschen
21.11.2021 16:07:13
Stephan
ich habe noch eine erneute Herausforderung. Ich habe eine Tabelle der ein Kopf enthalten ist, den ich gerne löschen möchte. Dabei stehen verschiedene Informationen in Spalte A, es gibt auch leere Spalten. Der Kopf endet immer mit der Beschreibung "Ende". Aktuell lösche ich den Kopf manuell. Leider ist die Beschreibung Ende immer in einer anderen Zeile einen Monat 10 anderen 13. Nun suche ich einen Weg das zu Automatisieren. Grüße Stephan
Beispieldatei: https://www.herber.de/bbs/user/149277.xlsm
Sub Kopfzeile_löschen()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1")
Dim i As Long
Do While ws.Range("A2").Offset(i, 0).Value ""
If ws.Range("A2").Offset(i, 0).Value Like "*Ende*" Then
ws.Range("C2").Offset(i, 0).Delete
'End If
End If
i = i - 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
