Durchgetrichen ausblenden oder weiß
27.01.2020 10:14:12
GC
ich muss abgleichen, ob Gehälter bereits ausgezahlt wurden. Diese werden dann mit STRG+5 zunächst durchgestrichen.
Wie kann ich sie entweder
a) ausblenden
oder
b) farblich so markieren, dass sie weiß und damit nicht erkennbar sind?
Gibt es hierzu eine Kurze und einfache Anleitung?
Danke und Gruß,
GC
PS: Im Netz hab ich zwar etwas gefunden, konnte es aber nicht anwenden, bzw. hat nicht funktioniert.
Sub M_K()
Dim ZeileVon As Long
Dim ZeileBis As Long
Dim SpalteVon As Long
Dim SpalteBis As Long
Dim DuGestr As Boolean
Dim Zeile As Long
ZeileVon = 2
ZeileBis = Cells(Rows.Count, 1).End(xlUp).Row
SpalteVon = 1
SpalteBis = 10
For Zeile = ZeileVon To ZeileBis
DuGestr = True
If Range(Cells(Zeile, SpalteVon), Cells(Zeile, SpalteBis)).Font.Strikethrough = False Then _
DuGestr = False
If DuGestr Then Rows(Zeile).EntireRow.Hidden = True
Next Zeile
End Sub
Anzeige