Herbers Excel-Forum - das Archiv

Bereich auf Inhalt prüfen

Bild

Betrifft: Bereich auf Inhalt prüfen
von: Hartmut_M

Geschrieben am: 10.03.2005 12:53:03
Hallo, ich möchte in einem bestimmten Bereich (C3:S370) alle Zelleninhalte löschen die nicht gleich "UR" oder "GL" sind. Kann mir jemand sagen, wie ich dies am besten bewerkstellige?
Vielen Dank im Voraus.
Hartmut
Bild

Betrifft: AW: Bereich auf Inhalt prüfen
von: c0bRa

Geschrieben am: 10.03.2005 12:58:57
hallo...
ungetestet würd ich sagen:
Sub Bereichloeschen()
dim i as range
for each i in Range("c3:S370")
if i.value <> "UR" and i.value <> "GL" then i.ClearContents
next
End Sub


Das Forum lebt auch von Rückmeldungen...
c0bRa
Bild

Betrifft: AW: Bereich auf Inhalt prüfen
von: Hartmut_M
Geschrieben am: 10.03.2005 13:04:47
Hallo, vielen Dank Euch Beiden.
Genau diese Befehle habe ich gesucht.
Hartmut
Bild

Betrifft: AW: Bereich auf Inhalt prüfen
von: Uduuh
Geschrieben am: 10.03.2005 13:00:43
Hallo,
for each c in Range("C3:s370").Cells
If not(c="UR" or c="GL") Then c.Clearcontents
next c
Gruß aus'm Pott
Udo

 Bild
Excel-Beispiele zum Thema "Bereich auf Inhalt prüfen"
Leerzeichen aus einem Bereich löschen Befindet sich die aktive Zelle in einem bestimmten Bereich?
Mehrbereichsauswahl auf eine Seite drucken. Spalten einer Mehrbereichsauswahl ausblenden.
Bereich mit Maximalwert markieren Benannten Bereich erweitern
Bereich in RefEdit-Element eingeben und auslesen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Letzter Wert aus einem Bereich Bereiche bei Mehrfachauswahl prüfen