Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
336to340
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
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile mit bestimmtem Inhalt komplett köschen

Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 13:37:42
TF
Hallo,

wie kann ich erreichen, daß alle Zeilen, bei denen in Spalte B : "Auftragsliste"
steht und Spalte E leer ist, automatisch gelöscht werden?

Ich finde keinen Befehl hierfür!

Danke vorab.

TF

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 13:50:04
Steffen
Hallo TF,

möchtest du dieses Vorhaben über einen VBA-Code (saubere, aufwendigere Lösung) gelöst haben oder nur über Formeln (umständlichere Lösung) direkt in der Tabelle.

Tschau
Steffen
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 13:54:27
TF
Wenn möglich über VBA - da ich andere Dinge auch schon über VBA anpassen lasse!
Wäre super!

TF
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:03:10
Jessica
Hallo TF,

Damit gehts eventuell die 100 austauschen gegen die Anzahl deiner Zeilen.

Gruß,
Jessica


Sub zeilen_loeschen()
For i = 1 To 100
If Cells(i, 2).Value = "Auftragsliste" Then
Cells(i, 5).Value = ""
End If
Next
End Sub

Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:16:37
WernerB.
Hallo ???,

in diesem Forum bitte mit Real(Vor)namen auftreten; siehe auch Forums-FAQ! Danke!

Was hältst Du hiervon:

Sub ZeilenKiller()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 2).Value = "Auftragsliste" And _
Cells(i, 5).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:28:48
TF (Tom Fuchs) ist eigentlich hier bekannt
Hallo Werner und Jessica,

habe beidesd probiert - leider kein Erfolg. Hier nochmal genauere Angaben:

- Tabelle mit 650 Zeilen
- Es soll j e d e Zeile komplett gelöscht werden, wenn in Spalte B "Auftragsliste" steht und wenn g l e i c h z e i t i g die Spalte E leer ist!

Leider konnte ich mit Euren Vorschlägen das erwünschte Resultat noch nicht erzielen- oder ich mache etwas falsch??!!

Bitte nochmal kurze Rückinfo.

danke

Tom (TF)
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:35:15
Jessica
Hallo Tom,

das hier funktioniert....

Hab das vorhin falsch verstanden

Gruß
Jessica


Sub zeilen_loeschen()
For i = 1 To 100
If Cells(i, 2).Value = "Auftragsliste" And Cells(i, 5).Value = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:43:17
Tom
Hi Jessica,

funktioniert - aber: ich muß das Makro zwei bis dreimal laufen lassen, damit a l l e vollständig weg sind. Beim ersten Durchgang werden von Bsp 8 Stück nur 3 gelöscht. Beim zweiten wieder 3 Stück und mit dem letzten Durchgang sind alle weg.

Kann man das auf einen Schub machen?

Tom
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:46:09
Andi_H
Hi Tom, misch mich hier einfach mal ein:


Sub zeilen_loeschen()
For i = 1000 To 1 Step - 1
If Cells(i, 2).Value = "Auftragsliste" And Cells(i, 5).Value = "" Then
Rows(i).Delete
End If
Next
End Sub


gruß

andi
Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 14:54:06
Tom
Super jetzt paßt es!

Vielen Dank an Euch alle!!!

Wenn wir aber gerade beim lösche sind: Gibt es noch einen Befehl der mir alle Zeilen ab Zeile 150 löscht, wenn in Spalte A nichts steht??

wäre super nett, wenn ich das abschließend auch noch gelöst bekommen würde.

Gruß

Tom
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 15:10:25
Andi_H
hi nochmal:

etwa so, wenn alle zellen in Spalte a leer sind wird alles ab Zeile 150 gelöscht:


Sub löschen()
Dim i, x As Long
x = 0
For i = 1 To 65536
If Not IsEmpty(Cells(i, 1)) Then x = x + 1
Next
If x = 0 Then Rows("150:65536").Delete
End Sub


Gruß
ANdi
Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 15:17:38
WernerB.
Hallo Tom,

das nachstehende Makro funktioniert bei mir unter folgender Bedingung:
In der letzten Zeile mit Inhalt muss die Spalte A auch einen Inhalt haben, andernfalls muss unterhalb der letzten Zeile mit Inhalt eine Zelle der Spalte A mit einem Inhalt versehen werden, der nach der Löschaktion wieder entfernt werden kann.
Das Makro wirkt zwischen der letzten Zeile in der die Spalte A einen Inhalt hat aufwärts bis zur Zeile 150 (einschließlich).

Sub ZeilenKiller2()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
If laR < 150 Then laR = 150
For i = laR To 150 Step -1
If Cells(i, 1).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß WernerB.
Anzeige
AW: Zeile mit bestimmtem Inhalt komplett köschen
14.11.2003 15:24:34
WernerB.
Hallo Tom,

dass mein Lösungsvorschlag bei Dir nicht funktioniert, ist mir ein Rätsel.
Ich habe das Makro getestet, bevor ich es hier gepostet habe.
Jetzt habe ich es aus meinem Beitrag wieder herauskopiert und wieder getestet - ohne Beanstandungen.
Auch wenn Dein Problem zwischenzeitlich gelöst scheint - vielleicht bist Du ja so freundlich und klärst mich noch auf, was denn bei Dir nicht funktioniert?

Gruß WernerB.

299 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Letzten Zeilenwert
Andre´

Hallo alle zusammen,
wie kann ich den letzten Zeilenwert der 2.Zeile in einer MSGBox angeben also: 11.11.2008
(dazwischen sind leere Zellen)
Tabelle1

 ABCDEFG1wee  dfgh   2trtrt  recht  11.11.20083Uhuu  Prod &n...
18.11.2008 22:31:00
Thread-ID: 1025804
10 Beiträge
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge

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
9
2
10
3
1
4
2
9
1
7
3
2
5
4
5
7
3
9
1
2
1
6
3
2
5