Ausblenden

19/10/2010 - 10:37 von Seemann | Report spam
Hallo Zusammen.

Ich versuche ein Macro erstelllen welches in der Spalte Q die ersten
beide Buchstaben checkt und die nicht mit "EN" anfangen die Zeilen
ausblendet.

Vielen Dank

Guido
 

Lesen sie die antworten

#1 Claus Busch
19/10/2010 - 10:45 | Warnen spam
Hallo Guido,

Am Tue, 19 Oct 2010 01:37:40 -0700 (PDT) schrieb Seemann:

Ich versuche ein Macro erstelllen welches in der Spalte Q die ersten
beide Buchstaben checkt und die nicht mit "EN" anfangen die Zeilen
ausblendet.



probiers mal so:

LRow = Cells(Rows.Count, "Q").End(xlUp).Row

For Each rngzelle In Range("Q2:Q" & LRow)
rngzelle.EntireRow.Hidden = InStr(1, rngzelle, "EN") <> 1
Next


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

Ähnliche fragen