Hi,
also eine Möglichkeit scheint die Formatierung aus der Listbox "Formatiert" zu sein:
Sub Gelb() Dim rngZelle As Range For Each rngZelle In ActiveSheet.UsedRange If rngZelle.Interior.Color = vbYellow Then rngZelle.Select Exit Sub End If Next rngZelle End Sub
Das scheint gut zu funktionieren und den Code kann man auch mit Originalzeilenumbrüchen kopieren.
Gruß Fabian
58.5k Fragen
250k Antworten
7.2k Nutzer