Ausblenden und Löschen

20/10/2010 - 12:12 von Seemann | Report spam
Hallo Zusammen,

noch mal eine Frage.
Ich möchte ab Zeile 6 alle ausgeblendete Zeilen löschen.

Wie mache ich das mit einem Macro?
Vielleicht kann der Claus mir wieder helfen?

Vielen Dank

Guido
 

Lesen sie die antworten

#1 Claus Busch
20/10/2010 - 12:26 | Warnen spam
Hallo Guido,

Am Wed, 20 Oct 2010 03:12:14 -0700 (PDT) schrieb Seemann:

noch mal eine Frage.
Ich möchte ab Zeile 6 alle ausgeblendete Zeilen löschen.



warum fragst du nicht ab, was du nicht benotigst und löschst diese
Zeilen gleich mit dem Code von gestern?
Probiere die ausgeblendeten so zu löschen (es geht doch immer noch um
Spalte Q? Falls nicht, musst du den Code àndern):

LRow = WorksheetFunction.CountA(Range("Q:Q"))
For Zeile = LRow To 6 Step -1
If Rows(Zeile).Hidden = True Then
Rows(Zeile).Delete
End If
Next


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

Ähnliche fragen