Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Zeilen in USEDRANGE löschen

Forumthread: bestimmte Zeilen in USEDRANGE löschen

bestimmte Zeilen in USEDRANGE löschen
Peter
Guten Tag
Ich möchte in einer Tabelle innerhalb des USEDRANGE alle Zeilen löschen, bei denen weder in Zeile B und I ein Wert enthalten sind.
Wie kann ich das mit VBA anstellen?
Gruss, Peter
Anzeige
ZEILE (!) B und I ? Gruß owT
25.10.2011 18:31:16
Luc:-?
:-?
Aw: Spalte muss es natürlich heißen owT
25.10.2011 19:08:20
Peter
AW: Aw: Spalte muss es natürlich heißen owT
25.10.2011 19:19:24
Peter
Anzeige
AW:Anpassung der Fragestellung:
25.10.2011 21:55:28
Peter
Hallo
Vielleicht war das zuviel des Guten. Die Lösung (mit Folgefrage) könnte wie folgt aussehen:
Angenommen, USEDRANGE umfasst in der Tabelle den Bereich A1:M777.
Ich trage in Spalte N auf den einzelnen Zeilen eine Formel ein, welche abfragt, ob auf den entsprechenden Zeile kein Eintrag vorhanden ist:
N1: =wenn(und(B1="";I1="");"Löschen";"")
...
N777: =wenn(und(B777="";I777="");"Löschen";"")
Nun steht in der Spalte N in jeder Zeile "Löschen", wenn die Zeile gelöscht werden soll. Und jetzt bin ich bei der Folgefrage: Ist Suche nach einer Möglichkeit, alle Zeilen AUF EINMAL zu eliminieren, bei denen in Spalte N "Löschen" steht.
Gruss, Peter
Anzeige
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 21:56:30
Gerd
Hallo Peter,
schaue mal, ob die Richtigen markiert werden.
With ActiveSheet
Intersect(.Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow, .Range("I:I").SpecialCells(xlCellTypeBlanks)).EntireRow.Select
End With
Gruß Gerd
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 22:02:50
Peter
Hallo Gerd
Das hat sich jetzt mit meiner Modifikation überschnitten - die jedoch hinfällig geworden ist.
DEINE Lösung funktioniert wie geschmiert. Jetzt habe ich .Select durch .Delete ersetzt und die Zeilen sind weg.
Vielen Dank!
Peter
Anzeige
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 22:01:15
Josef

Hallo Peter,

Sub leereLoeschen()
  Dim rng As Range
  
  With ActiveSheet
    Set rng = .UsedRange.Offset(0, .UsedRange.Columns.Count).Resize(, 1)
  End With
  
  With rng
    .FormulaR1C1 = "=AND(RC2="""",RC9="""")*1"
    .AutoFilter Field:=1, Criteria1:="1"
    .SpecialCells(xlCellTypeVisible).Offset(1, 0).EntireRow.Delete
    .AutoFilter
    .EntireColumn.Delete
  End With
  
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 22:19:24
Peter
Hallo Sepp
Vielen Dank für diese Lösung.
Beim Austesten hat sich noch folgendes Problem ergeben:
- bei jedem zusammenhängenden "Zeilenblock" wird immer die erste Zeile nicht gelöscht.
- dies obwohl in der hintersten Spalte in der entsprechenden Zeile aus .FormulaR1C1 = ... auch eine 1 steht
Wenn also die Zeilen 2:9; 13:14 und 22:22 zu löschen wäre bleibt von diesen Zeilen
2:2; 13:13 und 22:22
Gruss, Peter
Anzeige
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 22:29:02
Josef

Hallo Peter,
ich hatte .Offset() an der falschen Stelle;-))

Sub leereLoeschen()
  Dim rng As Range
  
  With ActiveSheet
    Set rng = .UsedRange.Offset(0, .UsedRange.Columns.Count).Resize(, 1)
  End With
  
  With rng
    .FormulaR1C1 = "=AND(RC2="""",RC9="""")*1"
    .AutoFilter Field:=1, Criteria1:="1"
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
    .EntireColumn.Delete
  End With
  
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: bestimmte Zeilen in USEDRANGE löschen
25.10.2011 22:34:43
Peter
Hallo Sepp
Vielen Dank
So ist es perfekt!
Gruss, Peter

Forumthreads zu verwandten Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 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
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
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
Anzeige
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
Anzeige
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
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Zeile Löschen wenn aktuelle Spalte leer ist
Lutz

Hallo Excel-Spezialisten,
ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile...
10.07.2009 21:58:59
Thread-ID: 1087780
4 Beiträge
Anzeige
Zeilen löschen, wenn in Spalte A nicht fett?
Selma

Hallo Leute,
ich möchte ab Zeile 1 bis Zeile 5000 folgende Zeilen löschen:
Wenn in Spalte A die Zelle leer ist, dann Zeile löschen
Wenn in Spalte A die Zelle gefüllt ist, aber nicht fett ist, dann die Zeile löschen.
Wie mache das per VBA ?
Besten Dank im Voraus !
VG,
...
28.07.2009 22:58:24
Thread-ID: 1092081
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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