Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalteninhalt suchen und Zeile löschen

Spalteninhalt suchen und Zeile löschen
22.09.2005 17:43:59
Andrea
Hallo zusammen!
Ich möchte in einer nach Spalte D sortierten Tabelle mit variierender Zeilenanzahl die Zeilen löschen, die in Spalte D einen num-wert kleiner 1 haben.
Kann mir da jemand helfen?
Es grüßt,
Andrea

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 17:57:15
Rene
Hi, das als button oder als macro
willst du die zellen nur cleanen, oder wirklich zeilen komplett löschen?
das makro löscht die zeilen Komplett...

Sub Delete()
i = 1
Do Until Sheets("Sheet3").Cells(i, 4) = ""
If Sheets("Sheet3").Cells(i, 4) < 1 Then
Sheets("Sheet3").Cells(i, 4).Select
ActiveCell.EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub

have fun
lg René
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 18:12:10
Andi
Hi,
wenn ich mich kurz einmischen darf:
Zeilen löschen immer nur von unten nach oben!
Grund ist folgender: angenommen in Zeile 5 trifft das Kriterium zu und sie wird gelöscht, dann rutschen alle Zeilen darunter eins nach oben. Wenn jetzt die frühere Zeile 6 und jetzige Zeile 5 das Kriterium auch erfüllt, wird sie trotzdem nicht gelöscht, weil der Zeilen-Zähler ja beim nächsten Durchlauf schon auf 6 steht und die neue Zeile 5 nicht mehr überprüft wird.
Mein Vorschlag sieht so aus (ungetestet):

Sub loeschen()
dim zeile as integer
with Sheets("Sheet3")
for zeile = .Cells(65536, 4).End(xlUp).Row to 1 step -1
if .cells(zeile,4).value < 1 then rows(zeile).entirerow.delete
next zeile
end with
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
23.09.2005 17:06:15
Andrea
Also irgendwie funktioniert das alles nicht!
Ich habe keine wirkliche Ahnung von VBA. Bitte das zu berücksichtigen.
Die Spalte D ist absteigend sortiert und es sollen die ganzen Zeilen mit Inhalt in Spalte D kleiner 1 gelöscht werden!
LG,
Andrea
AW: Spalteninhalt suchen und Zeile löschen
26.09.2005 09:20:12
Andi
Hi,
genau das macht das Makro ja auch; drück mal Alt+F11, dann bist Du im VBA-Editor. Über Einfügen - Modul erstellst Du ein Standard-Modul und dort kopierst Du den Code hinein und schliesst den VBA-Editor wieder.
Unter Extras - Makro - Makros müsste dann das Makro "löschen" zu finden und auszuführen sein.
Schönen Gruß,
Andi
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 18:04:17
Ralf
Hallo Andrea,

Sub Inhalt_Kleiner_1()
Dim dblLZ#, x#
dblLZ = ActiveSheet.UsedRange.Cells.SpecialCells(xlLastCell).Row
For x = 1 To dblLZ
If CDbl(Range("D" & x)) < 1 Then
Range("D" & x).EntireRow.Delete
dblLZ = dblLZ - 1
x = x - 1
End If
Next x
End Sub

Ciao, Ralf
Nachfrage - Formelprofi
22.09.2005 19:05:28
PeterW
Hallo Andrea,
wie ist Spalte D sortiert, auf- oder absteigend? Gibt es Überschriften - oder anders gefragt in welcher Zeile fangen die Werte an? Ein Formelcrack sollte dann in der Lage sein, die dazu gehörende Zeile zu ermitteln und den gesamten Bereich in einem Rutsch zu löschen.
Gruß
Peter
Anzeige
Ohne Formel - Autofilter
22.09.2005 19:09:18
{Boris}
Hi Peter,
...ausnahmsweise ohne Formel: Autofilter über die Spalte, benutzerdefiniert filtern nach kleiner als 1.
Filterzeilen dann markieren und löschen.
Grüße Boris
AW: Ohne Formel - Autofilter
22.09.2005 19:14:14
PeterW
Hallo Boris,
so einfach kann Excel sein. :-)
Trotzdem die Nachfrage: wie könnte eine Formel aussehen, die in einer aufsteigend sortierten Spalte die Zeile des letzten Wertes kleiner X ermittelt? Wenn du was aus dem Handgelenk hättest.. - wenn nicht auch kein Problem.
Gruß
Peter
AW: Ohne Formel - Autofilter
22.09.2005 19:18:18
{Boris}
Hi Peter,
Werte aufsteigend in Spalte A, Suchwert in C1.
=VERGLEICH(C1;A:A)-ZÄHLENWENN(A:A;C1)
Ergibt die Zeile des nächst kleineren Wertes aus C1.
Grüße Boris
Anzeige
AW: Ohne Formel - Autofilter
22.09.2005 19:34:18
PeterW
Hallo Boris,
jetzt, da ich es sehe, ist es ganz einfach. :-)
Danke und Gruß
Peter

300 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Anzeige
VBA: Zeile Löschen trotz Blattschutz
Mathias

Hallo zusammen!
Ich bräuchte nochmals Hilfe. Habe zwar einige Bausteine gefunden, aber alles nicht das, was ich will.
Ich habe in Excel mehrere Tabellenblätter.
Darin sind einzelne Spalten geschützt
Wenn ich über eine Userform-Formular etwas in die Excel-Tabelle eintragen möchte...
25.08.2009 12:02:31
Thread-ID: 1098366
5 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
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
8
3
18
1
1
4
1
4
2
9
12
15
2
3
5
1
2
2
7
9
1
8
12
9
9