Selektives Löschen von Zellinhalten

Guten Morgen, liebe Fachleute,
bei einem neuen "kleinen" Problem hoffe ich auf Eure Hilfe:
in den Spalten I und J meiner Datei möchte ich den Zellinhalt immer dann löschen,
wenn in der 2. bzw. 3. Spalte links davon, also Spalte G, der dortige Zellinhalt das Wort "anzeigen" NICHT beeinhaltet.
Oder auch anders ausgedrückt:
wenn in Zelle G die Länge des Zellinhaltes gleich 15 Stellen ist, dann lösche in der gleichen Zeile die Zellinhalte von Zelle I und J

	G	H	I	J
1	Nummer(Text)	leere Zelle!	Wert1	Wert2
2	218 086 0817 62		-5.100,05	356,85
3	218 086 0817 62 anzeigen		-5.270,26	5.897,20
4	218 086 0858 62		564,23	102,3
5	218 086 0858 62 anzeigen		-3.440,47	102,3
6	218 088 0005 62		-12,52	587,23
7	218 088 0005 62		4.578,25	13,45
8	218 088 0005 62		-68,56	-3.654,58
9	218 088 0005 62 anzeigen		-3.946,75	54,20
10	218 088 0179 62		10,53	879,56
11	218 088 0179 62		-6.589,56	45,63
12	218 088 0179 62 anzeigen		-2.785,83	487,56
13	218 088 0195 62		-235,87	67,62
14	218 088 0195 62 anzeigen		-2.977,22	4.589,75
15	218 089 0103 62		-658,97	56,89
16	218 089 0103 62		-12,87	4.568,65
17	218 089 0103 62		-5.698,50	1.256,54
18	218 089 0103 62		835,67	45,68
19	218 089 0103 62		-56,98	-4.587,60
20	218 089 0103 62 anzeigen		-5.830,67	45,63
21	218 089 0137 62		-698,65	67,95
22	218 089 0137 62 anzeigen		-2.572,43	1,02
23	218 089 0152 62		-896,65	687,56
24	218 089 0152 62 anzeigen		-3.641,91	102,31
25	218 089 0251 62		45,32	3.679,28
26	218 089 0251 62		-7.895,64	68,37
27	218 089 0251 62 anzeigen		-5.944,16	92,65
28	218 089 0301 62		-659,87	-19,65
29	218 089 0301 62 anzeigen		-4.597,37	89,57

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Zur Veranschaulichung kleine Musterdatei anbei:
https://www.herber.de/bbs/user/37894.xls
Über eure Hilfe -ob formelbasiert oder VBA-codiert- würde ich mich sehr freuen, vielen Dank vorab. LG, Isolde

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hola, Erich,
danke für den Code, der mir ja nun genau jene Zellen "cleart", die ich zu behalten gedachte ;-)
Mit kleiner Änderung bei Range und Criteria1 funktioniert's:
Sub LoeschenMitFilter() With Range("G1") .AutoFilter .AutoFilter Field:=1, Criteria1:="<>**anzeigen", Operator:=xlAnd Range(Rows("2:2"), Selection.End(xlDown)).ClearContents .AutoFilter End With End Sub
Also vielen herzlichen Dank für die Mühe.
Wie schreibt man in VBA:
wenn in Zelle G Inhalt = 15 Zeichen, dann gehe eine Zelle nach rechts und lösche Inhalt,
gehe noch eine Zelle nach rechts und lösche Inhalt, gehe in Zelle G der nächsten Zeile, prüfe dort, ob Inhalt = 15 Zeichen, mache das solange, bis in Zelle Gn nix mehr steht ?
Für Ideen dankbar!
Grüsse, Isolde

Sub Löschen_wenn_15_Zeichen() Dim Zelle As Range Set Zelle = Range("G1") 'Startzelle Do If Len(Zelle.Value) = 15 Then Range(Zelle.Offset(0, 1), Zelle.Offset(0, 2)).ClearContents Set Zelle = Zelle.Offset(1, 0) Loop Until Zelle.Value = "" End Sub

Sub LoeschenMitFilter() With Range("A1") .AutoFilter .AutoFilter Field:=1, Criteria1:="<>*anzeigen", Operator:=xlAnd Range(Rows("2:2"), Rows("2:2").End(xlDown)).ClearContents .AutoFilter End With End Sub Sub LoescheBeiLen15() Dim lngLast As Long, lngZ As Long lngLast = Cells(Rows.Count, 7).End(xlUp).Row ' letzte Ueile in G For lngZ = 1 To lngLast ' oder >= 15 ? lösche in H und I If Len(Cells(lngZ, 7)) = 15 Then Range(Cells(lngZ, 8), Cells(lngZ, 9)).ClearContents Next lngZ End Sub

Beliebteste Forumthreads (12 Monate)

Selektives Löschen von Zellinhalten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread