alle zeilen mi "1" in spalte "c" löschen

Forumthread: alle zeilen mi "1" in spalte "c" löschen

29.10.2004 02:18:12

robag

Hallo liebe Helfer,
ich brauche ein makro, dass mir alle zeilen löscht wenn in Zelle c.. eine 1 steht. Der Entscheidungsbereich beginnt in Zelle A4 bis E4 und soll bis zum Ende des Blattes gehen. Wichtig ist, dass die Spalten nach E nicht mit in die Entscheidung mit einbezogen werden sollen (z.B. in F4 oder F1000 darf eine 1 stehen).

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: alle zeilen mi "1" in spalte "c" löschen

=Peter=
AW: bitte noch eine kleine Hilfe

29.10.2004 20:52:47

robag

AW: alle zeilen mi "1" in spalte "c" löschen

=Peter=

Hallo,
ich habe hier ein Makro von Thomas Ramel gefunden. Bei diesem Makro werden alle Zeilen gelöscht in denen in Spalte A eine '1' steht. Wenn du in folgenden Zeilen die '1' durch eine '3' (=Spalte C) ersetzt hast du zumindest mal einen Ansatz auf dem du aufbauen kannst:
If Cells(letzteZeile, 1) = 1 Then
Cells(letzteZeile, 1).EntireRow.Delete
Public


Sub Zeilenloeschen()
'Autor: Thomas Ramel
'Wenn in Spalte A eine '1' steht wird diese Zeile gelöscht
Dim letzteZeile As Long
If ActiveSheet.Range("A65335") <> "" Then
letzteZeile = 65335
Else
letzteZeile = ActiveSheet.Range("A65335").End(xlUp).Row + 1
End If
Do
letzteZeile = letzteZeile - 1
If Cells(letzteZeile, 1) = 1 Then
Cells(letzteZeile, 1).EntireRow.Delete
End If
Loop Until letzteZeile = 1
End Sub

Gruss
Peter

AW: bitte noch eine kleine Hilfe

29.10.2004 20:52:47

robag

Erst einmal vielen Dank. Ich habe den code etwas verändert und er brachte auch gute Ergebnisse. Nunn wollte ich den code noch etwas verändern, die Zeile soll jetzt gelöscht werden wenn der Wert in C kleiner als 3 ist. Das funktioniert auch aber leider werden die ersten 3 Zeilen auch gelöscht, weil sie leer und somit kleiner als 3 sind.
&ltpre&gt
Sub kleiner_3_entfernen()
'Wenn in Spalte C ein Wert kleiner 3 steht, wird diese Zeile gelöscht
Dim letzteZeile As Long
If ActiveSheet.Range("A65335") &lt&gt "" Then
letzteZeile = 65335
Else
letzteZeile = ActiveSheet.Range("A65335").End(xlUp).Row + 1
End If
Do
letzteZeile = letzteZeile - 1
If Cells(letzteZeile, 3) &lt 3 Then
Cells(letzteZeile, 3).EntireRow.Delete
End If
Loop Until letzteZeile = 1
End Sub&lt/pre&gt
Wie kann ich den Bereich so eingrenzen, dass der Bereich erst in der Zeile 4 beginnt?
Wenn ich schreibe
If ActiveSheet.Range("A65335") &lt&gt "" Then
kommt der Fehler Laufzeitfehler 13 Typen unverträglich

Beliebteste Forumthreads (12 Monate)

alle zeilen mi "1" in spalte "c" löschen

Forumthread: alle zeilen mi "1" in spalte "c" löschen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread