in farblich markierte Zelle springen

Forumthread: in farblich markierte Zelle springen

13.11.2008 15:11:05

Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
Bisher klappt alles bis zu MsgBox. Leider bekomme ich das Springen zur ersten der farblich anders markierten Zellen nicht programmiert.
Wer kann mir helfen.
Hier der Code, den ich nutze (Ich weiß, er ist nicht besonders schön - ich bin auch hier für Verbesserungsvorschläge mehr als dankbar.):
Dim c As Range
Dim s As String


Function calculate_1()
flagg = False
s = ""
For Each c In [W8:Z8]
c.Interior.Color = RGB(192, 192, 192)
If IsEmpty(c.Value) Then
Else
If IsNumeric(c.Value) Then
If c.Value = 0 Then
flagg = True
c.Interior.Color = RGB(255, 0, 0)
s = s + c.Address & ", "
End If
Else
End If
End If
Next
If flagg = True Then
If MsgBox("Folgende Felder (rot markiert) beinhalten 0 Werte: " & s) = 1 Then
Else
End If
End If
End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: in farblich markierte Zelle springen

13.11.2008 15:49:00

David

Hallo Maja,
du musst die erste gefundene Adresse in eine Variable speichern, z. Bsp.


dim sprungadresse as string

(am Anfang)
und dann


if Sprungadresse = "" then Sprungadresse = c.address

hinter deiner Zeile mit


s = s + c.Address & ", "

nach deiner Msg kannst du dann mit


Range(Sprungadresse).Select

dorthin springen.
Ich bin mir allerdings nicht sicher, ob das in einer Function überhaupt geht. In einem normalen Makro sollte es aber so funzen.
Gruß
David

AW: in farblich markierte Zelle springen

13.11.2008 15:50:09

Tino

Hallo,
hier mal eine Version, getestet unter xl2007

Sub Test()
Dim strZelle As String, strErste As String
Dim Bereich As Range, tempZelle As Range
Dim A As Long

Set Bereich = Range("W8:Z8") 'Zellbereich 
    'Hintergrundfarbe zurücksetzen 
    Bereich.Interior.ColorIndex = xlNone
    'neue Hintergrundfarbe 
    Application.ReplaceFormat.Interior.ColorIndex = 3
    'Suchen und ersetzen 
    Bereich.Replace What:="0", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

    'Schleife über Zellen mit 0 
    For A = 1 To Application.WorksheetFunction.CountIf(Bereich, 0)
     If A = 1 Then
      Set tempZelle = Bereich.Find("0", Bereich(Bereich.Cells.Count), xlValues, xlWhole, , xlNext)
      strZelle = tempZelle.Address(False, False) & Chr(13)
      strErste = tempZelle.Address
     Else
      Set tempZelle = Bereich.FindNext(tempZelle)
      strZelle = strZelle & tempZelle.Address(False, False) & Chr(13)
     End If
    Next A

If strErste <> "" Then
 MsgBox strZelle, vbInformation
 Range(strErste).Select
End If


End Sub

Gruß Tino

AW: in farblich markierte Zelle springen

13.11.2008 17:10:53

Maja

Vielen Dank! Das funktionier super (und ist so einfach).

AW: in farblich markierte Zelle springen

13.11.2008 15:51:00

robert

Hi,
meinst du so?
die farben kannst du dir sicher selbst ändern
gruß
rofu
https://www.herber.de/bbs/user/56750.xls

AW: in farblich markierte Zelle springen

13.11.2008 17:13:00

Maja

Vielen Dank. Auch diese Ansätze funktionieren klasse.

Infobox / Tutorial