Microsoft Excel

Herbers Excel/VBA-Archiv

leere zellen ausblenden

Betrifft: leere zellen ausblenden von: matthias
Geschrieben am: 10.04.2008 11:45:32

Hallo Profis,

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

  

Betrifft: AW: leere zellen ausblenden von: Reinhard
Geschrieben am: 10.04.2008 12:05:01

Hi Mahhtias,

may be es gibt was kürzeres, mir fiel nur das ein, funktioniert zumindest:

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


  

Betrifft: AW: leere zellen ausblenden von: Luschi
Geschrieben am: 10.04.2008 12:54:56

Hallo Reinhard,

nicht immer ist der kürzeste Code auch der Beste. Seit Excel 2003 wird bei jedem Hidden-Befehl die Tabelle neu durchgerechnet. Deshalb sind solche For-Schleifen aus Deinem Vorschlag eine Katastrophe für die Geschwindigkeit.
Einen besseren Ansatz bietet das Beispiel von Beverly (https://www.herber.de/forum/messages/967324.html).
Also erst die Zeilen in einem Range-Objekt sammeln und dann darauf die Hidden-Anweisung ausführen:
statt 'RaZeile.Delete' eben 'RaZeile.Hidden'.

Gruß von Luschi
aus klein-Paris


  

Betrifft: Vielen Dank EUch BEIDEN, gruss von: matthias
Geschrieben am: 10.04.2008 13:16:50




  

Betrifft: Link anklickbar von: Reinhard
Geschrieben am: 10.04.2008 13:22:40

Hallo Luschi,

danke für die Information mit XL2003.

https://www.herber.de/forum/messages/967324.html

Gruß
Reinhard


  

Betrifft: AW: leere zellen ausblenden von: matthias
Geschrieben am: 10.04.2008 13:23:30

diese lösung löscht aber die zeilen und blendet sie nicht aus


  

Betrifft: AW: leere zellen ausblenden von: Reinhard
Geschrieben am: 10.04.2008 13:26:09

Hi Matthias,

lese mal bitte den Text von Luschi komplett durch, speziell die letzte Zeile :-)

Text ist das was zwischen ANREDE und GRUßFORMEL steht...

Gruß
Reinard


  

Betrifft: AW: leere zellen ausblenden von: matthias
Geschrieben am: 10.04.2008 13:35:20

Das Hidden akzeptiert er bei mir nicht?


  

Betrifft: AW: leere zellen ausblenden von: Reinhard
Geschrieben am: 10.04.2008 14:43:19

Hi Matthias,

sorry, probiers so, ist getestet:


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


 

Beiträge aus den Excel-Beispielen zum Thema "leere zellen ausblenden"