Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile Löschen bei bestimmtem Inhalt in Spalte A

Zeile Löschen bei bestimmtem Inhalt in Spalte A
25.02.2004 09:38:37
Elmar
Hallo Experten,
ich habe ein Problem mit Löschen nach Bedingung und habe auch in der Recherche nichts gefunden bzw. kann es nicht anpassen.
Ich möchte in meiner Tabelle mit Namen E71 die Spalte A nach Text durchsuchen und zwar immer nach dem Wort "Antwort".
Steht dieses Wort in irgend einer der ca. 54000 benutzen Zeilen in Spalte A (außer in der Zeile 1 und 2!!), so soll die ganze Zeile gelöscht werden.
Die Tabelle verändert sich ständig, deshalb versuch mit einem Makro.
Hat mir jemand einen Vorschlag mittels Makro?
Ich wäre sehr dankbar
Grüße
Elmar

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile Löschen bei bestimmtem Inhalt in Spalte A
25.02.2004 09:47:20
AndreasS
Morgen,


Sub Werte_Löschen()
Dim iRow%
Dim i$
i = "Antwort"
Application.ScreenUpdating = False
With Worksheets("E71").Range("A3:A54000")
Set c = .Find(i, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Set c = .FindNext(c)
c.EntireRow.Delete
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Application.ScreenUpdating = True
End Sub

Gruß Andreas
AW: Zeile Löschen bei bestimmtem Inhalt in Spalte A
25.02.2004 09:58:13
AndreasS
Hi,
sorry das Makro von meinem vorherigen Beitrag läuft nicht wirklich...
Heute scheint nicht mein Tag zu sein :-)
Das läuft:

Sub Suchgegriffelöschen()
Dim Wert As String
Dim i As Integer
Wert = "Antwort"
If Wert = "" Then Exit Sub
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 1) = Wert Then Rows(i).Delete
Next
End Sub

Gruß Andreas
Anzeige
AW: Zeile Löschen bei bestimmtem Inhalt in Spalte A
25.02.2004 10:04:36
Elmar
Hi Andreas,
klappt prächtig Dein zweites Makro.
Danke
Grüße
Elmar
Danke für die Rückmeldung :-)
25.02.2004 10:07:49
AndreasS
Gruß Andreas

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige