Anzeige
Archiv - Navigation
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte ersetzen !

Werte ersetzen !
13.10.2003 15:03:03
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte ersetzen !
13.10.2003 15:12:55
ChrisL
Hi Florian

Dim Zelle as Range

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

Gruss
Chris
AW: Werte ersetzen !
13.10.2003 15:24:31
Jan
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?
AW: Werte ersetzen !
13.10.2003 15:42:50
ChrisL
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige