Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle mit roter Schrift finden

Zelle mit roter Schrift finden
21.11.2005 16:22:27
Basti
Hallo zusammen,
ich möchte gerne die in der Spalte a die Zelle mit der roten Schriftfarbe finden und mir diese über eine Msgbox ausgeben lassen.
Habe folgendes versucht:

Sub Berrechnen()
Sheets("Tabelle1").Activate
Dim a As Range
Set a = Range("a:a").Find(Cells.Font.ColorIndex = 3)
a.Select
MsgBox "Zelle" & ActiveCell.Value
End Sub

funktioniert aber leider nicht. Wie geht das richtig?
mfg Basti

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit roter Schrift finden
21.11.2005 16:28:46
Rainer
Hi,

Sub finden()
Dim a As Range
For Each a In Range("A:A")
If a.Font.ColorIndex = 3 Then
MsgBox a.Address
End If
Next a
End Sub

Gruß Rainer
AW: Zelle mit roter Schrift finden
21.11.2005 16:32:45
Basti
Klappt prima, vielen Dank euch beiden,
Gruß Basti
AW: Zelle mit roter Schrift finden
21.11.2005 16:29:32
Ingo
Hallo Basti,

Sub rot_finden()
Dim rng As Range, spalte As Range
Set spalte = ActiveSheet.Range("A:A")
For Each rng In spalte
If rng.Font.ColorIndex = 3 Then
MsgBox rng.Address
Exit For
End If
Next rng
End Sub

mfG
Ingo
AW: Zelle mit roter Schrift finden
21.11.2005 16:37:08
Dan
Hallo Basti, hier ein Vorschlag, wie der Code aussehen koennte. Gruss Dan cz.
Option Explicit

Sub Berrechnen()
Sheets("Tabelle1").Activate
Dim a As Range
Dim zelle As Range
Set a = Range("a:a") ' .Find(Cells.Font.ColorIndex = 3)
For Each zelle In a.Cells
If (zelle.Font.ColorIndex = 3) Then
zelle.Select
If (MsgBox("Wert in der ersten roten Zelle ist: " & ActiveCell.Value & vbCrLf & vbCrLf & _
"Weiter suchen?", vbQuestion + vbYesNo, "Berrechnen") = vbNo) Then
Exit For
End If
End If
Next zelle
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige