Ich habe eine Frage betreffend leeren Zeilen ausblenden. Ich habe aber in diesen Zeilen güligkeiten, hoffe das ist egal.
Ich will zeilen 20-30 und 40-50 ausblenden, wenn sie leer sind?
Danke für jede hilfe und gruss
matthias
Sub Blend()
Dim Zelle As Range
For Each Zelle In Range("IV20:IV30,IV40:IV50")
If Zelle.End(xlToLeft).Column = 1 And Zelle.Offset(0, -255) = "" Then Zelle.EntireRow.Hidden _
= True
Next Zelle
End Sub
Gruß
Reinhard
Option Explicit
Sub Leerzeilen_löschen()
Dim N, LoI As Long, RaZeile As Range
For N = 20 To 40 Step 20
For LoI = 0 To 10
If Application.CountA(Range(Cells(LoI + N, 1), Cells(LoI + N, 256))) = 0 Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI + N)
Else
Set RaZeile = Union(RaZeile, Rows(LoI + N))
End If
End If
Next LoI
Next N
If Not RaZeile Is Nothing Then RaZeile.Rows.Hidden = True
Set RaZeile = Nothing
End Sub
Gruß
Reinhard
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen