Das Archiv des Excel-Forums
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
- AW: Werte ersetzen ! - von ChrisL am 13.10.2003 15:42:50
- AW: Werte ersetzen ! - von Jan am 13.10.2003 15:24:31
- AW: Werte ersetzen ! - von ChrisL am 13.10.2003 15:12:55
 |
Betrifft: Werte ersetzen !
von: Florian
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
| |
