Das Archiv des Excel-Forums

Werte ersetzen !

Bild

Betrifft: Werte ersetzen !
von: Florian

Geschrieben am: 13.10.2003 15:03:03

Hallo,

folgende Frage: Ich würde gerne Werte, die in einer Spalte einen vorgegebenen Wert nicht erfüllen, diese mit dem "MUßwert" ersetzen.
Wie geht das?

Vielen Dank, Florian
Bild


Betrifft: AW: Werte ersetzen !
von: ChrisL
Geschrieben am: 13.10.2003 15:12:55

Hi Florian

Dim Zelle as Range

For each zelle in activesheet.range("A1:A100")
if zelle < 100 then zelle = "Musswert"
next zelle


Gruss
Chris


Bild


Betrifft: AW: Werte ersetzen !
von: Jan
Geschrieben am: 13.10.2003 15:24:31

Kann ich den "For Each" Befehl auch benutzen, wenn ich nciht den Wert, sondern die Feldfarbe (mit With Selection.Interior
.ColorIndex = 4
End With)
ändern möchte?


Bild


Betrifft: AW: Werte ersetzen !
von: ChrisL
Geschrieben am: 13.10.2003 15:42:50

probieren geht über studieren... Zelle.Interior.ColorIndex = 4 usw.

Nachstehendes Beispiel habe ich für einen anderen Beitrag geschrieben...

Option Explicit



Sub färben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("A1:A20, K1:K20")
If IsNumeric(Zelle) Then
With Zelle.Interior
.ColorIndex = Farbe(Zelle)
.Pattern = xlSolid
End With
End If
Next Zelle
End Sub






Function Farbe(Wert As Variant) As Byte
Select Case Wert
Case 1: Farbe = 3
Case 2: Farbe = 2
Case 3: Farbe = 6
Case Else: Farbe = 17
End Select
End Function




Gruss
Chris


 Bild

Excel-Beispiele zum Thema " Werte ersetzen !"

Einige Zeilen in einer sequentiellen Datei ersetzen download Alle #DIV/0!-Fehlerwerte in Tabelle durch 0 ersetzen download
Zellkontextmenü durch Jahreskalender ersetzen download Suchen in 2. Tabelle und Ersetzen der Quelldaten download
Tabellen vergleichen und Zeilen ersetzen download Errechneten Wert durch nächsthöheren ersetzen download
Wert aus Gültigkeitsliste durch eine Zahl ersetzen download Bundesländernamen durch Abkürzungen ersetzen download
Telefonnumern mit Liste vergleichen und durch Namen ersetzen download Doppelt vorkommende Anführungszeichen in Textdatei ersetzen download
Zeichenfolgen in Textdatei suchen und ersetzen download