Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

durchgestrichene Zeilen ausblenden

435 views
Skip to first unread message

Peter

unread,
Jan 6, 2011, 12:14:28 PM1/6/11
to
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

Claus Busch

unread,
Jan 6, 2011, 12:36:29 PM1/6/11
to
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

Claus Busch

unread,
Jan 6, 2011, 12:48:59 PM1/6/11
to
Hallo Peter,

einblenden willst du ja auch wieder:

Sub Einblenden()
Dim Lrow As Long

With ActiveSheet
Lrow = .Cells(Rows.Count, 1).End(xlUp).Row
.Rows("1:" & Lrow).Hidden = False
End With

End Sub


Mit freundlichen Grüssen

Peter

unread,
Jan 6, 2011, 1:22:41 PM1/6/11
to
Super, danke f�r die schnelle L�sung

mfg
Peter

0 new messages