Zeilen mit Wert >x löschen

Computer: Software & Programmierung Office Software
1

Hallo,
hat jemand ein Makro, mit dem ich alle Zeilen löschen kann, bei denen in Spalte A ein Wert größer „x“ (in meinem Fall 600 000)steht?
Danke
Matthias

2

Hallo Matthias,

schreibe in die erste Zeile (z.B. Zeile 3) einer Hilfsspalte neben Deinen Daten:

=WENN(A3>600000;"";A3)

Dann die Formel kopieren, die Tabelle nach dem Inhalt der Hilfsspalte sortieren. Nun stehen die Zeilen, auf die das Kriterium zutraf, am Ende und können einfach gelöscht werden.

Martin

3

Hallo,
hat jemand ein Makro, mit dem ich alle Zeilen löschen kann,
bei denen in Spalte A ein Wert größer „x“ (in meinem Fall 600

Martin hat dir eine Formel genant, die die Inhalte löscht.
Dasselbe macht dieses Makro:

Option Explicit
Dim Zelle As Range
Sub WegDamit()
Range("A:A").Select
For Each Zelle In Selection
If Zelle.Value \> 600000 Then Zelle.Value = ""
Next Zelle
Range("A1").Select
End Sub

Falls du jedoch die ganze jeweilige Zeile entfernen möchtest, sähe die Sache etwas anders aus:

  1. Innerhalb des Makros ganze Zeilen entfernen
  2. Tabelle sortieren, so dass die leeren ans Ende gehen, dann löschen (mit Makro oder von Hand)
    OK?
    Erich
4

hat jemand ein Makro, mit dem ich alle Zeilen löschen kann,
bei denen in Spalte A ein Wert größer „x“ (in meinem Fall 600
000)steht?

Hi Matthias

Option Explicit
Sub loesch()
Dim zei As Long
For zei = Range("A65536").End(xlUp).Row To 1 Step -1
 If Cells(zei, 1) \> 600000 Then Cells(zei, 1).EntireRow.Delete
Next zei
End Sub

Gruß
Reinhard