Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - filtern und löschen

VBA - filtern und löschen
14.08.2003 14:27:22
Frank
Hallo
ich hab leider nicht viel Zeit und kann daher auch nicht intensiv im archiv suchen. Mit VBA fange ich gerade an (hoffentlich ist die Excel-CD von Herbs bald im Briefkasten :))
Wäre nett wenn mir jemand meinen Fehler sagt.
Ich habe eine tabelle bei der in Spalte R die einzelnen Felder nur teilweise belegt sind.
Ich möchte ab Zeile 7 alle Zeilen löschen, bei denen in spalte R der Wert LO steht.
Mein Makro hängt sich immer nach dem ersten löschen auf

Sub loeschen()
dim i as long
Worksheets ("tabelle1").activate
Range("r7").select
for i 0 1 to 1500 step 1
If cells(i,18) = "LO" then
rows(i).EntireRow.Delete
end If
Next i
End Sub

danke im voraus
frank

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - filtern und löschen
14.08.2003 14:33:21
Koenig W.
Hallo Frank
zwei Sachen fallen mir auf, das Eine ist ein Schreibfehler bei Schleife muss es = und nicht 0 heissen.
Das zweite ist prinzipieller,
Du musst immer von unten nach oben löschen, da beim löschen die andern Zellen nachrutschen und dann das i nicht mehr stimmt.
In Deinem Beispiel also For i = 1500 to 1 Step -1
Dann hauts hin.
Gruss Wilhelm

AW: VBA - filtern und löschen
14.08.2003 14:35:20
Koenig W.
Nachtrag !!
Du willst ja nur bis Zeile 7 als For i = 1500 to 7 Step -1
Das Selektieren der Zelle kannst Du Dir sparen, man kann Zellen auch manipulieren ohne darauf zu sitzen :-))
Gruss Wilhelm

AW: VBA - filtern und löschen
14.08.2003 14:39:05
Paul
Du könntest es auch ohne Makro schaffen, indem du einfach die Zellen in deinem Sheet sortieren lässt nach der entsprechenden Spalte und dann einfach die löschst, die deinem Kriterium entsprechen.

Anzeige
AW: VBA - filtern und löschen
14.08.2003 14:34:40
WernerB.
Hallo Frank,
beim Löschen von Zeilen mittels einer Schleife sollte man sich immer von unten nach oben durcharbeiten.

Sub Loeschen()
Dim i As Long, laR As Long
Worksheets("Tabelle1").Activate
laR = Cells(Rows.Count, 18).End(xlUp).Row
For i = laR To 7 Step -1
If Cells(i, 18) = "LO" Then Rows(i).EntireRow.Delete
Next i
End Sub

Viel Erfolg wünscht
WernerB.

AW: VBA - filtern und löschen
14.08.2003 14:37:01
Stephan
Hi Frank !
Dein Code ist fast in Ordung. Versuchs mal so:

Sub loeschen()
Dim i As Integer
Worksheets("Tabelle1").Activate
For i = 1 To 1500
If Cells(i, 18).Value = "LO" Then
Rows(i).Delete
i = 1 + 1
End If
Next i
End Sub


Anzeige
AW: VBA - filtern und löschen Verbesserung
14.08.2003 14:38:06
Stephan

Sub loeschen()
Dim i As Integer
Worksheets("Tabelle1").Activate
For i = 7 To 1500
If Cells(i, 18).Value = "LO" Then
Rows(i).Delete
i = 1 + 1
End If
Next i
End Sub


danke
14.08.2003 14:57:52
Frank
Danke
eine Frage und 3 funktionierende Alternativen - ging ja superschnell
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige