Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen wenn in Spalte A der Wert 0 ist

Zeilen löschen wenn in Spalte A der Wert 0 ist
01.02.2008 17:12:00
Martin
Hallo Leute!
Ich hab schon das nächste Problem...
Ich habe eine Tabelle. In dieser stehen verschiedenste Zahlenwerte. Ich möchte nun mittels einem Makro die ganze Zeile löschen , wenn in Spalte A der der Wert 0 steht.
Wie kann ich das realisieren?
Danke schon mal im Vorraus.
lg
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn in Spalte A der Wert 0 ist
01.02.2008 17:24:28
Beverly
Hi Martin,
versuche es so:

Sub zeilen_loeschen()
Dim RaZeile As Range, loZeile As Integer
Dim raZelle As Range
Set raZelle = Columns(1).Find(what:=0, LookAt:=xlWhole)
If raZelle Is Nothing Then Exit Sub
loZeile = 0
Do While raZelle.Row > loZeile
loZeile = raZelle.Row
If Not RaZeile Is Nothing Then
Set RaZeile = Union(RaZeile, Rows(raZelle.Row))
Else
Set RaZeile = Rows(raZelle.Row)
End If
Set raZelle = Columns(1).FindNext(raZelle)
Loop
RaZeile.Delete
Set RaZeile = Nothing
End Sub



Anzeige
AW: Zeilen löschen wenn in Spalte A der Wert 0 ist
01.02.2008 19:48:20
Daniel
Hi
ich finde zum Löschen diesen Code optimal:
Sub Löschen2()

Columns(1).Insert
With Range("A1:A" & Cells(65536, 2).End(xlUp).Row)
.FormulaR1C1 = "=if(RC2=0,true,row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
.EntireColumn.Delete
End With
End Sub


Ist wenig Code, läuft superschnell und funktioniert auch mit sehr grossen Tabellen (auch bei 60.000 Zeilen) in der gleichen geschwindigkeit
Gruß, Daniel

Anzeige
AW: Zeilen löschen wenn in Spalte A der Wert 0 ist
01.02.2008 20:25:05
Martin
Danke euch zweien!
Beide Lösungen funktionieren Perfekt!!! Genau das hab ich gebraucht!
Vielen Dank für eure Hilfe
lg
Martin

273 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Zeile einfügen wenn bestimmter Wert vorhanden
Bernhard

Hallo zusammen,
das Forum hat mir schon oft bei meiner Recherche geholfen, jetzt habe ich mal eine Frage.
Ich habe eine Tabelle in der in der Spalte A in verschiedenen Zeilen das wort "Ergebnis" steht.
Wie kann ich jeweils unter dieser Zeile eine Leerzeile einfügen.
Ich hoffe da...
28.11.2008 13:12:00
Thread-ID: 1028680
5 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Makro läuft nicht. Zeile löschen wenn...
Christoph

Hallo,
ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
01.07.2009 13:38:55
Thread-ID: 1085695
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
4
7
3
7
4
3
7
9
4
3
6
8
10
3
8
3
15
11
3
8
4
3
1