Werte ersetzen !

• Werte ersetzen ! von Florian vom 13.10.2003 15:03:03
  • AW: Werte ersetzen ! - von ChrisL am 13.10.2003 15:12:55
    • AW: Werte ersetzen ! - von Jan am 13.10.2003 15:24:31
      • AW: Werte ersetzen ! - von ChrisL am 13.10.2003 15:42:50

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

Beiträge aus den Excel-Beispielen zum Thema " Werte ersetzen !"