Makros in Excel

[Jägermeister]

Sers@all

Bräuchte dringend zu folgendem Problem eine Lösung:

Ich muss aus ca 4500 Zeilen nur die Zeilen herauslöschen bei denen in der Spalte A ein bestimmter Wert steht!!

Für Hilfe im voraus vielen Dank!!!

MfG Jägermeister

[Gast]

verschoben in VB / VBS...

[Goos]

mhm...ok und wo genau hast du dein Problem?

Goos

[Jägermeister]

Ich bilde mir ein dass es dafür ein Makro sein muss...

Ich könnte ja auch Suchen und die Zeilen per Hand löschen aber wie gesagt bei ein paar tausend Zeilen ist das mühselig

[Goos]

naja versuchs halt ma damit:

Private Sub loeschen()

Dim a As Integer

a = 1

While (Not Sheets("tabelle2").Cells(a, 1) = "")

    If Sheets("tabelle2").Cells(a, 1) = "7" Then ' die 7ner Zeilen loeschen

        Rows(a).Select

        Selection.Delete Shift:=xlUp

    End If

a = a + 1

Wend

End Sub[/PHP]

Goos