farbige Zelle finden

Forumthread: farbige Zelle finden

bissi

Hallo allerseits, Ich markiere in umfangreicher Tabelle den letzten Eintag farbig (ColorIndex7). Wie erreiche ich, dass bei Aktivierung Cursor sofort in farbige Zelle gesetzt wird, wobei bei Nichtvorhanden keine Fehlermeldung erscheinen sollte. mfg Bissi

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: farbige Zelle finden

Matthias
AW: farbige Zelle finden

bissi

AW: farbige Zelle finden

13.03.2007 12:08:00

Matthias

Hallo,
Kopiere den Code in das Blatt in dem die zu markierende Zelle den Colorindex(7) hat.
Bei jedem "Aktivieren" des Blattes springt dann der Cursor automatisch auf diese Zelle.
!Es darf aber nur eine Zelle diesen Farbwert haben

Private Sub Worksheet_Activate()
 Dim c
 For Each c In UsedRange
 If c.Interior.ColorIndex = 7 Then
 c.Select: End
 End If
 Next
End Sub

Gruß Matthias

AW: farbige Zelle finden

bissi

Hallo Matthias,
danke für deine Antwort, funktioniert wie erwartet.
gruß Bissi

Forumthread: farbige Zelle finden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread