Inhaltsverzeichnis
Die folgende Subroutine löscht jede Zeile in einem Bereich, in dem der Wert in Spalte A mit einem vorgeschriebenen Textstück beginnt:
| 12345678910111213 | Sub Delete_Rows(Data_range als Bereich, Text als String)Dim Row_Counter As IntegerFor Row_Counter = Data_range.Rows.Count To 1 Step -1Wenn Data_range nichts ist, dannAbo beendenEnde WennWenn UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) ThenData_range.Cells(Row_Counter, 1).EntireRow.DeleteEnde WennNächster Row_CounterEnd Sub |
Zum Beispiel Delete_Rows(Sheets("Sheet1").Range("A1:E23"",Hund") löscht alle Zeilen im Bereich A1:E23, in denen der Wert in Spalte A mit dem Wort "Hund" beginnt. Beachten Sie die Die Verwendung von Ucase bedeutet, dass die Formeln die Groß-/Kleinschreibung INSENSITIVE sind, dh Zellen, die mit DOG, Dog, DoG oder dog beginnen, werden alle gelöscht.
Dies:
Wird werden:
