Office: Wenn Wert in Spalte A vorhanden, dann...

terryjak · 21. Juli 2008

Hallo,

suche VBA code für folgenden VOrgang:

Wenn der Wert aus Zelle C3 irgendwo in Spalte A vorhanden ist, ändere Schriftfarbe von Zelle C3 auf schwarz.

MfG
terryjak

:)

Perfectdark · 23. Juli 2008

Code:

Private Sub CommandButton1_Click()
Dim Cl As Object
Dim dLetzteZeile As Double
' letzte Zeile des Sheets bestimmen, ev. besser das nur für spalte A zu machen, weiss jetzt aber nicht genau wie
dLetzteZeile = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row
For Each Cl In Range("A1", "A" & dLetzteZeile)
If Cl = Range("C3") Then
Range("C3").Font.ColorIndex = 1
Exit Sub
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

devencer · 23. Juli 2008

Hi terryjak

Ich versuch jetzt auch mal zu helfen statt immer nur zu fragen *wink.gif*

Code:

Option Explicit

Sub Wert()

Dim Wert As Long
Dim Zelle As Range
Dim Bereich As Range

Set Bereich = Range("A:A")

With Tabelle1
Wert = .Range("C3").Value
For Each Zelle In Bereich
If Zelle.Value = Wert Then
.Range("C3").Font.ColorIndex = 1
End If
Next Zelle
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hoffe ich konnte helfen!

edit:
Ich war wohl etwas langsam, aber der Wille war da *wink.gif*

Gruss
devencer

jinx · 23. Juli 2008

Moin, terryjak,

statt einer Schleife die Funktion COUNTIF (Tabellenfunktion ZÄHLENWENN) verwenden:

Code:

If WorksheetFunction.CountIf(Range("A:A"), [C3]) > 0 Then
Range("C3").Font.ColorIndex = xlAutomatic
Else
Range("C3").Font.ColorIndex = 3
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

terryjak · 24. Juli 2008

Hallo,

Vielen Dank euch dreien! Ich hatte in der Zwischenzeit das Ganze versucht über eine Formel und bedingte Formatierung zu lösen - und siehe, das ging auch... sieht ähnlich der Lösung von jinx aus:

In leere Zelle H3:
=ZÄHLENWENN($A$1:$A$400;"Suchwert")

Bedingte Formatierung (Format: Schriftfarbe schwarz) von C3:
Formel ist: =$H$3>0

Danke nochmals!
terryjak

Office: Wenn Wert in Spalte A vorhanden, dann...

Wenn Wert in Spalte A vorhanden, dann...

Wenn Wert in Spalte A vorhanden, dann...

Wenn Wert in Spalte A vorhanden, dann...

Wenn Wert in Spalte A vorhanden, dann... - Similar Threads - Wert Spalte vorhanden

Wenn der Wert größer ist als 10 will ich die Differenz in einer Spalte haben

Häufigste Wert/Text aus einer Spalte ermitteln ohne leere oder 0

Zeilen Nummern gleicher Werte einer Spalte ausgebenn

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Wenn Wert in Spalte vorhanden dann Ganze Zeile mit neuem Wert aus Userform ersetzen

Aus access überprüfen ob in einer Spalte "Wert" vorhanden ist

2 Spalten vergleichen, Wert vorhanden =Wert aus neuer Spalte