Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:27:59
Datum wenn Betrag bei jährl. wechselnder Reduzierung 0 wird
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen

suchen
15.11.2006 12:53:19
Fritz
Hallo!
Würde gerne meine Tabelle mit einm makro durchsuchen und feststellen ob eine zelle mit colorindex 45 gefüllt ist, wenn ja soll eine msgbox angezeigt werden mit der adresse, wenn nicht dann soll eine msgbox mit einer meldung z.b keine zelle gefunden angezeigt werden?
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: suchen
15.11.2006 12:59:27
Andi
Hi,
zB so:

Sub tt()
Dim gefunden As Boolean
Dim c As Range
For Each c In Sheets(1).UsedRange
If c.Interior.ColorIndex = 45 Then
MsgBox c.Address
gefunden = True
End If
Next c
If gefunden = False Then MsgBox "Nix gefunden"
End Sub

Schönen Gruß,
Andi
AW: suchen
15.11.2006 13:01:55
Heide_Tr
hallo Fritz,
das hast Du doch letztens schon gefragt? Jedenfalls so ähnlich...

Sub Makro1()
Application.FindFormat.Interior.ColorIndex = 45
MsgBox Cells.Find(What:="", After:=ActiveCell, SearchDirection:=xlNext, searchFormat:=True).Address
End Sub

viele Grüße. Heide
Anzeige
AW: suchen
15.11.2006 13:31:07
Fritz
Danke!!!!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige