durchgestrichene Zeilen ausblenden

06/01/2011 - 18:14 von Peter | Report spam
Hallo,
ich möchte per Makro alle Zeilen in einer Tabelle
die "durchgestrichen" formatiert sind aus- und einblenden.
Hat jemand passenden Code für mich ?

mfg
Peter
 

Lesen sie die antworten

#1 Claus Busch
06/01/2011 - 18:36 | Warnen spam
Hallo Peter,

Am Thu, 06 Jan 2011 18:14:28 +0100 schrieb Peter:

ich möchte per Makro alle Zeilen in einer Tabelle
die "durchgestrichen" formatiert sind aus- und einblenden.



angenommen, deine Werte sind in Spalte A durchgestrichen formatiert.
Dann probiere es mal so:

Sub Ausblenden()
Dim LRow As Long
Dim i As Long

With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LRow
.Rows(i).Hidden = _
.Cells(i, 1).Font.Strikethrough = True
Next
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen