Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Löschen / nach einem bestimmten Text

Löschen / nach einem bestimmten Text
02.09.2003 12:38:20
dfbak
Hallo,

ich habe folgendes Problem,
habe eine tabelle

mit folgende angaben diversen Zahlen
dann kommt das Wort Zusammenfassung (Spalte A)dieses und danach alle Zeilen löschen.

REP129747 xxxx
REP129747 xxxx
REP130196 xxxx
REP130196 xxxx
REP130279 xxxx
REP130279
Zusammenfassung
4711 abc
815 dfsdf
9874 sdfs
1234 sdfs
2454 sdfsd
Vielen Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen / nach einem bestimmten Text
02.09.2003 12:53:04
sergiesam
Hi,

versuch das:

Sub AbZusammenfassungLöschen()
Dim c As Range
Set c = Cells.Find("Zusammenfassung")
If Not c Is Nothing Then
Range(c, c.End(xlDown)).ClearContents
End If
End Sub


Gruß aus Linz,
Sam
AW: Löschen / nach einem bestimmten Text
02.09.2003 13:11:04
dfbak
Danke

es funktiert, löscht aber nur die Zellen in der selben spalte, ich möchte die ganze Zeile gelöscht haben, die tabelle ist mehrere Spalten lang
Danke
AW: Löschen / nach einem bestimmten Text
02.09.2003 13:17:41
sergiesam
Hi,

ja, du brauchst nur den befehl zum Löschen ein Zeile einfügen:

(Sicherheitskopie!)


Sub AbZusammenfassungLöschen()
Dim c As Range
Set c = Cells.Find("Zusammenfassung")
If Not c Is Nothing Then
Range(c, c.End(xlDown)).EntireRow.Delete
End If
End Sub


Gruß,
sam

ps. Immer auf die Antwort antworten, damit ein durchgehender Dialog entsteht!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige