Wie löscht man Zeilen oberhalb der aktiven Zelle oder eines bestimmten Textes in Excel?
Wenn Sie ein großes Arbeitsblatt mit zahlreichen Zeilen haben und nur alle Zeilen oberhalb der aktiven Zelle oder eines bestimmten Textes löschen möchten – wie geht das am besten? Zwar können Sie die Zeilen manuell auswählen, mit der rechten Maustaste klicken und im Kontextmenü „Löschen“ wählen, doch ich zeige Ihnen effizientere VBA-Codes, mit denen Sie Zeilen oberhalb im Handumdrehen entfernen können. Sollten Sie interessiert sein, lesen Sie bitte die folgenden Details.
Zeilen löschen oberhalb mit VBA-Codes
Zeilen löschen oberhalb mit VBA-Codes
Hier stelle ich Ihnen zwei VBA-Codes vor: Einer löscht die Zeile direkt oberhalb der aktiven (ausgewählten) Zelle, der andere entfernt alle Zeilen oberhalb eines festgelegten Textes.
1. Wählen Sie eine Zelle aus, oberhalb derer Sie Zeilen löschen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Skript ein.
VBA: Zeilen löschen oberhalb der aktiven Zelle
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Drücken Sie die Taste F5, und die Zeilen oberhalb der aktiven Zelle werden entfernt. Siehe Screenshot:
Wenn Sie Zeilen oberhalb eines festgelegten Textes löschen möchten, können Sie den folgenden VBA-Code verwenden.
VBA: Zeilen löschen oberhalb des festgelegten Textes
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Hinweis:
1. Im Code ist Total Group der Text, den Sie suchen möchten; Sie können ihn nach Bedarf anpassen.
2. Befindet sich der gesuchte Text bereits in der ersten Zeile, erscheint eine Dialogmeldung, die Sie darauf hinweist.
3. Wird der festgelegte Text im Arbeitsblatt nicht gefunden, erscheint eine Dialogmeldung, die Sie wie unten dargestellt benachrichtigt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins