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

Zelle mit roter Schrift finden

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Zelle mit bestimmtem Inhalt finden
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich in ein Dialogfeld ein beliebiges Wort eingebe und Excel dann in einer ganz bestimmten Spalte nach diesem Wort sucht. Die erste Zelle, in der das Wort gefunden wurde sollte dann aktiviert werden.
Ich würde mich freuen, wenn mir jemand weiterhe...
11.02.2009 18:44:00
Thread-ID: 1049734
6 Beiträge
Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
Till

Hallo Leute,
hab mal wieder ein (hoffentlich nicht zu kompliziertes) Problem.
In einer Datei gibt es Spalten mit Zahlen. D.h. hier kommen wirklich nur Zahlen vor, und interessieren einfach nicht.
Welches Makro kann man jetzt ablaufen lassen, um die Zellen zu finden wo "NUR Zahlen"...
26.02.2009 16:05:37
Thread-ID: 1054444
6 Beiträge
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 11:31:03
Thread-ID: 1073295
7 Beiträge
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 12:06:44
Thread-ID: 1073310
2 Beiträge
letzte Zeile mit bestimmten wert finden
steffen

Hallo Ex(cel)perten,
Ich habe eine Tablle mit über 30.000 Zeilen.
Wie stelle ich es mittels VBA an, die letzte Zeile eines Wertes zu bestimmen, wenn in einer Spalte dieser Wert mehrmals vorkommt?
Gibt es eine Funktion ohne eine zeitaufwendige Schleife nutzen zu müssen?
Gruß Stef...
10.07.2009 10:42:10
Thread-ID: 1087617
3 Beiträge
Zellen mit beliebigem Inhalt finden
markus

Hallo,
ich habe bisher leider ohne erfolg nach Lösungen für mein Problem gesucht. Ich hoffe, dass Ihr mir weiter helfen könnt.
Folgende Problem liegt vor:
Ich habe ein Tabellenblatt mit vielen Zahlen in den Jeweiligen Zellen.
Ich suche jetzt in dieser Tabelle alle Zellen die ein...
09.08.2009 11:06:47
Thread-ID: 1094473
8 Beiträge
Letzte Zelle mit Wert finden
Lissa

Hallo,
Ich möchte in Spalte A in allen Zellen die Werte eintragen, aber in leeren Zellen die Formeln stehen lassen.
Es muss nur die letzte Zelle nichtleere Zelle gefunden werden und ab A2 markiert werden.
Ich habe nur Codes, mit denen der letzte Formeleintrag gefunden wird.
Viel...
22.11.2009 16:11:40
Thread-ID: 1119176
4 Beiträge
Letzte Zelle mit Eintrag finden
Peter

Liebes Forum
Mit nachfolgender Codezeile hole ich mir die letzte Zeile des USEDRANGE. Nun werden scheinbar auch Zellen berücksichtigt, die mit irgendwelchen Formaten belegt sind.
Gibt es eine andere Möglichkeit, wirklich die letzte Zelle mit Eintrag zu finden? Leider kann sich die Abfra...
10.09.2010 15:15:35
Thread-ID: 1176912
5 Beiträge
Zelle mit Datum (Heute) finden.
Micha

Hallo liebe Spezialisten,
ich benutze folgenden Code um die Zelle mit dem heutigen Datum zu finden:
Sub Grafik1_Klicken() Dim rg As Range Set rg = ActiveSheet.Columns("C:C").Find(Date, , xlValues) If Not rg Is Nothing Then rg.Activate Else MsgBox "Datum " & Date & " leider nicht...
08.03.2011 10:22:39
Thread-ID: 1204706
7 Beiträge
1. Zelle mit Wert finden und ausgeben
Peter

Hallo Excelspezialisten,
ich habe jeweils eine Reihe mit Werten und möchte jeweils den 1. gefunden Wert von rechts ausgeben. Habe es mit Vergleich und Array-Formeln versucht, funzt aber nicht, bekomme nur Fehler.
Danke für jede Hilfe.
Grüße Peter
https://www.herber.de/bbs/user/7...
30.08.2011 14:40:47
Thread-ID: 1228084
3 Beiträge
letzte Zelle mit Inhalt finden
Karsten

Hallo,
ich möchte mit diesem Code die letzte Zelle mit Inhalt in ActiveCell.Column finden. Manchmal werden auch leere Zellen gefunden. Anscheinend welche schon mal Inhalt hatten. Kann mir den Code nochmal jemand berichtigen?
Cells(2000, ActiveCell.Column).End(xlUp).Select
Danke
...
11.12.2011 22:57:07
Thread-ID: 1241596
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige