535 Aufrufe
in SN Intern von strauss Experte (4.0k Punkte)
Hi

Funktioniert der code Tag jetzt nicht mehr?

War immer sehr praktisch damit Befehlszeilen, Dateipfade oder Url's gleich ins Auge fallen

2 Antworten

0 Punkte
von halfstone Profi (18.5k Punkte)
Hi strauss,

geht leider noch nicht, bin aber dran, eine Lösung dafür zu finden.

Gruß Fabian
0 Punkte
von halfstone Profi (18.5k Punkte)
 
Beste Antwort

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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...