Ich möchte in einer Zeile die erste Zelle mit roter Schrift anspringen und dann weiter zur nächsten usw....
Dieser Code macht das, aber nur für eine Spalte. Ich brauche es aber für die AKTIVE ZEILE _ .
Private Sub CommandButtonJumpToNext_Click()
Dim a As Range
Dim zelle As Range
Set a = Range("BA100:BA2000")
For Each zelle In a.Cells
If (zelle.Font.ColorIndex = 3) Then
zelle.Select
If (MsgBox("Datei: " & ActiveCell.Value & vbCrLf & vbCrLf & _
"Weiter suchen?", vbQuestion + vbYesNo) = vbNo) Then
Exit For
End If
End If
Next zelle
Nun habe ich es mit versucht Set a = ActiveCell.Column das klappt aber nicht!Bitte um Hilfe!
Gruß nightcab