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

Zellen suchen und löschen

Forumthread: Zellen suchen und löschen

Zellen suchen und löschen
13.05.2005 13:30:54
Achim
Wer kann helfen?
Ich brauche ein makro bütte
Suche in G7 bis G8000
die Zellen mit der Farbe rot,gelb,grün(bedingt Formatiert) und wenn gefunden dann zeilen löschen.
Danke
Achim H.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen suchen und löschen
13.05.2005 13:49:44
Harald
Hallo Achim,
nach Farben die per bed. Formatierung erzeugt wurden, zu suchen ist nicht ohne.
Daher such lieber nach den Bedingungen.

Sub Suchbegriffelöschen()
Dim Wert1 As String, Wert2 As String, Wert3 As String
Dim i As Integer
Wert1 = erster Suchbegriff
Wert2 = zweiter Suchbegriff
Wert3 = dritter Suchbegriff
For i = 8000 To 7 Step -1
If Cells(i, 7) = Wert1 or cells(i, 7) =Wert2 or cells(i,7) =Wert3 Then
Rows(i).Delete
End If
Next i
End Sub

Gruß
Harald
Anzeige
AW: Zellen suchen und löschen
13.05.2005 13:55:28
bavariabob
Harald,
Du hast da natürlich Recht. Habe ich leider übersehen!
Gruss aus München
AW: Zellen suchen und löschen
13.05.2005 14:03:38
Harald
Servus Bob,
wenn man sowas mal 5 Stunden lang probiert hat, vergißt man das nie wieder ;-)))
Gruß von der Saar
AW: Zellen suchen und löschen
13.05.2005 13:50:50
bavariabob
Hi Achim

Sub farbelöschen()
Dim  i
Application.Screenupdating = False
For i = 8000 To 7 Step -1
If Cells(i, 7).Font.Color = vbRed Or Cells(i, 7).Font.Color = vbYellow Or Cells(i, 7).Font.Color = vbGreen Then
Cells(i, 7).EntireRow.Delete
End If
Next
End Sub

Anzeige
AW: Zellen suchen und löschen
13.05.2005 13:54:46
Thomas
Hallo,
ich habe ein ähnliches Makro grad eben geschrieben, vielleicht hilft es dir etwas weiter.
In dem Makro werden alle Zellen gecleared, die als Wert 0 haben.
For rwIndex = 1 To 500
For colIndex = 5 To 6
With Worksheets("Eingabe").Cells(rwIndex, colIndex)
If .Value = 0 Then .Clear
End With
Next colIndex
Next rwIndex
Gruß,
Thomas
Anzeige
AW: Zellen suchen und löschen
13.05.2005 14:44:20
Florian
Hallo,
ich habs mal probiert. Leider übergeht das Makro manche Felder...weis aber nicht warum - liegt vielleicht am PC. Probiers einfach mal aus.

Sub loeschen()
For i = 7 To 8000
Sheets("Tabelle1").Columns("G").Rows(i).Select
If ActiveCell.Interior.ColorIndex = 3 Then
Rows(i).Delete
ElseIf ActiveCell.Interior.ColorIndex = 4 Then
Rows(i).Delete
ElseIf ActiveCell.Interior.ColorIndex = 6 Then
Rows(i).Delete
End If
Next i
End Sub

Du musst allerdings noch den Tabellenname, sowie die Farben anpassen - habe wahllos Grün-, Rot- und Gelbtöne genommen.
Gruß, Florian
Anzeige
;

Forumthreads zu verwandten Themen

Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Anzeige
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
Nach Zelleninhalt suchen und zurückgeben
Hans

Hallo,
Benötige für ein Makro folgende Funktionen
Suche ab der aktiven Zelle nach oben, die Spalten von B bis E nach folgendem Zelleninhalt durch.
Gesucht werden sollen nur die Zelleninhalte "Mat 01"; "Mat 02" usw. bis "Mat 15".
Wird z.B. als erstes der Wert "Mat 06" gefunden,...
23.10.2008 16:55:00
Thread-ID: 1018748
3 Beiträge
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Werte In Tab 2 suchen und nach Tab 1 kopieren
Peter_weber

Liebe Experten,
versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
Also
- ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
15.04.2009 09:50:31
Thread-ID: 1068812
5 Beiträge
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Werte suchen und anderen Spaltenwert zurück geben
Andre

Hallo alle zusammen,
habe ein Makro, dass in Datei_1 Spalte A Zeile für Zeile eine Übereinstimmung in einer
Datei_2 https://www.herber.de/bbs/user/62397.xls
in Spalte B sucht und wenn eine Übereinstimmung gefunden wurde, dann wird der Zellwert aus Datei 2 https://www.herber.de/bbs/u...
12.06.2009 20:51:05
Thread-ID: 1081180
6 Beiträge
Inhalt In Zellen suchen und kopieren
Rainer

Hallo, ich habe folgendes Problem.
ich habe zwei Arbeitsblätter, in denen alle unsere Kundendaten drin sind.
Ich müsste nun für einen EMail-Newsletter die Namen und EMail-Adressen raussuchen und dann in ein neues Arbeitsblatt oder Sheet einfügen.
Manuell könnte das sehr langwierig...
30.07.2009 19:22:06
Thread-ID: 1092602
3 Beiträge
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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