Das Archiv des Excel-Forums
Werte ersetzen !
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
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
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?
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
Excel-Beispiele zum Thema " Werte ersetzen !"