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 ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Werte in Spalten Kopieren und drucken

Aus zwei Spalten einen Wert interpolieren

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

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