Bestimmte Zeile markieren bzw. löschen

Bild

Betrifft: Bestimmte Zeile markieren bzw. löschen von: SHC
Geschrieben am: 29.03.2005 14:35:29

Also hab ne sehr umfangreiche Liste hier...leider kommen da Zeilen vor die ich löschen will...dürften so ca 3000 sein. also wie kann ich es schaffen das er alle Zeilen in den das Wort Erweiterungen (oder was auch immer) in einer Zelle vorkommt markiert / löscht..(also die Zeile mit dem Wort soll gelöscht werden...nicht nur die Zelle)

bitte helft mir sonst mach ich das noch 4 wochen

Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: Hajo_Zi
Geschrieben am: 29.03.2005 14:37:00

Hallo ???







Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Homepage



Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: Martin Beck
Geschrieben am: 29.03.2005 14:46:58

Hallo ???,

lies Dir diesen Thread komplett durch, da wird erklärt, wie man das macht.

Gruß
Martin Beck


Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: K.Rola
Geschrieben am: 29.03.2005 14:48:21

Hallo,
Option Explicit
Sub Zeile_weg_wenn()
Const SUCHBEGRIFF = "K.Rola"
Dim z As Long, lz As Long, i As Long
z = ActiveSheet.UsedRange.Row
lz = z + ActiveSheet.UsedRange.Rows.Count - 1
For i = lz To z Step -1
  If Application.CountIf(Rows(i), SUCHBEGRIFF) > 0 Then
     Rows(i).Delete
  End If
Next
End Sub


Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde




Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: SHC
Geschrieben am: 30.03.2005 09:31:13

Also wie gesagt bin vollnoob was makros angeht...so hab ich es probiert...geht leider nicht ?
was mach ich falsch

Vielen Dank

MFG SHC



Sub Zeile_weg_wenn()
Const Erweiterung = "K.Rola"
Dim z As Long, lz As Long, i As Long
z = ActiveSheet.UsedRange.Row
lz = z + ActiveSheet.UsedRange.Rows.Count - 1
For i = lz To z Step -1
  If Application.CountIf(Rows(i), Erweiterung) > 0 Then
     Rows(i).Delete
  End If
Next
End Sub



Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: K.Rola
Geschrieben am: 30.03.2005 15:15:26

Hallo,

in dieser Zeile: Const Erweiterung = "K.Rola" musst du statt K.Rola deinen
gesuchten Begriff eingeben.

Gruß K.Rola


Bild


Betrifft: AW: Bestimmte Zeile markieren bzw. löschen von: SHC
Geschrieben am: 01.04.2005 13:31:04

Perfekt geklappt....super danke dir ((euch))


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zeile markieren bzw. löschen"