Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1052to1056
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
Inhaltsverzeichnis

löschen von Zeilen im Intervall

löschen von Zeilen im Intervall
20.02.2009 14:46:00
Zeilen
Hi,
dieses Makro soll in Spalte 1 überall die Zeilen löschen in den ein Wert von 0-1200 steht, klappt aber nicht. An was könnte das liegen?

Sub sauber()
Dim z As Long, lZ As Long
lZ = Sheets("tabelle1").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("tabelle1")
If Cells(z, 1).Value Like ["0 - 1200"] Then .Rows(z).Delete
End Sub


Gruß
Maris

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

Betreff
Datum
Anwender
Anzeige
AW: löschen von Zeilen im Intervall
20.02.2009 14:49:00
Zeilen
Hallo Maris,

Option Explicit
Sub sauber()
Dim z As Long, lZ As Long
lZ = Sheets("tabelle1").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With Sheets("tabelle1")
If Cells(z, 1) > 0 And Cells(z, 1) 



AW: löschen von Zeilen im Intervall
20.02.2009 16:07:00
Zeilen
Hallo Hajo,
danke für deine Hilfe, jetzt löscht er wunderbar, jedoch habe ich gemerkt das ich auch höre werte in der Spalte habe und Datumswerte, erhöhe ich jetzt das intervall dann löscht er mir auch das Datum... kann man das irgendwie umgehen? Also das nur die reinen Zahlenwerte gelöscht werden (ich weiß Datum ist auch ein Zahlenwert, aber ein anderes Format). Die Zahlen sind Standardformat
Gruß
Maris
Anzeige
AW: löschen von Zeilen im Intervall
20.02.2009 17:13:00
Zeilen
.
AW: Bedingtes Löschen von Zeilen
20.02.2009 19:24:00
Zeilen
Hi Maris,
probier mal diese beiden Varianten:

Option Explicit
Sub sauber() ' langsam
Dim zz As Long
With Sheets("tabelle1")
For zz = .Cells(.Rows.Count, 2).End(xlUp).Row To 1 Step -1
If .Cells(zz, 1).Value > 0 And .Cells(zz, 1).Value  0 And .Value 

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige