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

löschen wenn bedingung wahr ist

Forumthread: löschen wenn bedingung wahr ist

löschen wenn bedingung wahr ist
17.01.2003 12:52:40
ivan
hi ALLE SPEZIAL-PROFIS
habe ein problem wo ich einen richtigen spezial profi brauche!!

ich möchte per vba in spalte D alle alle zahlen automatisch löschen die folgende bedingung erfüllen!

wenn zelle links(C) und zelle rechts(E) leer ist ;dann zelle in spalte c löschen;ansonst nicht löschen.und das runter bis zum letzten eintrag.

Interpret----Song Nr.----Songname
--SPALTE C---SPALTE D----SPALTE E------
--Bob Marley---22---------Jamming
--Bob Marley---23---------No Women no schrei
--------------------25-------------------
--------------------26-------------------
--------------------27-------------------
ich habe erst 1200 eintäge aber ein auto macro sorgt dafür das die spalte D zahlen bis 5000 bekommt.nun möchte ich automatisch die
zahlen die zu viel sind löschen.
bitte um hilfe
webmaster ivan






Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: löschen wenn bedingung wahr ist
17.01.2003 12:55:33
ivan
hi
nochmal kleiner tipp fehler von mir
ich meine natürlich die spalte d da sollen die zahlen gelöscht werden.
Re: löschen wenn bedingung wahr ist
17.01.2003 13:36:50
Steffan
Hallo Ivan,

versuch folgendes Makro:

Sub leer_löschen()
For i = Cells(65536, 4).End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = Empty And Cells(i, 5).Value = Empty Then Rows(i).Delete
Next i
End Sub

Steffan.

Anzeige
Re: löschen wenn bedingung wahr ist
17.01.2003 14:24:10
ivan
hi
danke du bist ein superprofi!!
funktioniert super.
nur es daurt so lange fast 45 sec.
kann ich das noch irgendwie beschleunigen??????
habe noch Application.ScreenUpdating = False eingebaut aber das macht's nicht viel schneller.
Re: löschen wenn bedingung wahr ist
17.01.2003 16:10:08
Steffan
Hi Ivan,

falls die Einträge alle untereinander stehen und sich Leerzeilen nur am Ende befinden:

Sub leer_löschen2()
Dim letzteZeile As Integer, ersteZeile As Integer
letzteZeile = Cells(65536, 4).End(xlUp).Row
If Cells(65536, 3).End(xlUp).Row > Cells(65536, 5).End(xlUp).Row Then _
ersteZeile = Cells(65536, 3).End(xlUp).Row + 1 Else _
ersteZeile = Cells(65536, 5).End(xlUp).Row + 1
Range(Cells(ersteZeile, 4), Cells(letzteZeile, 5)).Delete shift:=xlShiftUp
End Sub


Falls Leerzeilen innerhalb Deiner Liste sind, die ebenfalls gelöscht werden sollen, musst Du noch folgenden Code ergänzen (vor 'End Sub'):
For i = Cells(65536, 4).End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = Empty And Cells(i, 5).Value = Empty Then Rows(i).Delete
Next i

Steffan.

Anzeige
Re: löschen wenn bedingung wahr ist
17.01.2003 17:15:12
ivan
hi staffan
Du bist der Wahre Meister aller User,
genial welchen turbo du da eingebaut hast.
vielen dank alles ok

webmaster ivan

;

Forumthreads zu verwandten Themen

Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
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
Doppelte Inhalte löschen
Oliver

Hallo
in einer Liste von Buchungen befinden sich für einzelne Kostenstellen mehrere Buchungen.
Ich möchte nun aus dieser Liste eine Liste erstellen, in welcher alle Kostenstellen nur einmal vorkommen (also die doppelten Einträge löschen).
Mit dieser Liste will ich später dann die Su...
15.08.2008 09:56:06
Thread-ID: 1002057
4 Beiträge
Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Löschen von Worksheets zwecks Initialisierung
Worksheets

Hallo,
häufig besteht der Bedarf, ein Worksheet vor Programmstart, bis auf die überschriften zu löschen. Grundsätzliche Bedingung ist - kein Select des Sheets darf nötig sein.
Ich benutze hierfür:
Sheets(ARBEITSBLATT).Range(loeschbereich).ClearContents
Leider hat diese Method...
18.08.2008 12:31:09
Thread-ID: 1002549
6 Beiträge
Anzeige
Grafiken in bestimmten Bereich löschen
otto

Hi,
mit folgendem Code lösche ich Grafiken in einem bestimmten Tabellenblatt.
Dim mydocument As Worksheet, s
Workbooks("ABC.xls").Activate
Set mydocument = Worksheets("Lieferant")
For Each s In mydocument.Shapes
On Error Resume Next
Select Case s.Type
Case msoEmb...
29.08.2008 14:40:24
Thread-ID: 1005842
3 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Anzeige
Zeilehöhe einstellen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste die in den Bereich A6:AB500 eine Zeilenhöhe von min 30 erzeugen soll. Dazu hat mir Daniel nachfolgendes Marko geschrieben
Sub Update_Zellenhöhe() Dim Zelle As Range With Range("A6:AB500") .EntireRow.AutoFit For Each Zelle In .Cells If .Entire...
03.09.2008 11:33:57
Thread-ID: 1007056
10 Beiträge
Anzeige
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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