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