nach wert suchen > darunter zeilen ausblenden

19/07/2008 - 13:17 von Johnny Hartmannsgruber | Report spam
Hallo NG,

ich habe folgende herausforderung...:

ich habe in meiner tabelle ziehmlich weit unten noch text stehendiesen
text möchte ich in bestimmten situationen per VBA ein- / ausblenden, damit
er nicht mitgedruckt wird...

- der steht in irgendeiner zeile (variabel) in Spalte A (fest)
- in der ersten zeile steht "HINWEISE:"
- dann folgen 12 Zeilen die ich ausblenden will

wie mache ich das am besten?

DANKE, Johnny
 

Lesen sie die antworten

#1 Claus Busch
19/07/2008 - 15:10 | Warnen spam
Hallo Johnny,

Am Sat, 19 Jul 2008 13:17:03 +0200 schrieb Johnny Hartmannsgruber:

ich habe in meiner tabelle ziehmlich weit unten noch text stehendiesen
text möchte ich in bestimmten situationen per VBA ein- / ausblenden, damit
er nicht mitgedruckt wird...

- der steht in irgendeiner zeile (variabel) in Spalte A (fest)
- in der ersten zeile steht "HINWEISE:"
- dann folgen 12 Zeilen die ich ausblenden will



probiers mal so:
Sub Ausblenden()

Dim Start As Long

Start = Cells.Find(What:="HINWEISE", After:=Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext).Row
Rows(Start + 1 & ":" & Start + 12).Hidden = True

End Sub


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

Ähnliche fragen