Datum

Titel

20.04.2024 07:57:54

Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

964to968

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

leere zellen ausblenden

Forumthread: leere zellen ausblenden
8 Beiträge zu diesem Forumthread
Anzeige
307 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

10.04.2008 11:45:00

matthias

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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: leere zellen ausblenden

10.04.2008 12:05:00

Reinhard
AW: leere zellen ausblenden

10.04.2008 12:54:56

Luschi
Vielen Dank EUch BEIDEN, gruss

10.04.2008 13:16:50

matthias
Link anklickbar

10.04.2008 13:22:00

Reinhard
AW: leere zellen ausblenden

10.04.2008 13:23:30

matthias
AW: leere zellen ausblenden

10.04.2008 13:26:09

Reinhard
AW: leere zellen ausblenden

10.04.2008 13:35:00

matthias
AW: leere zellen ausblenden

10.04.2008 14:43:00

Reinhard

AW: leere zellen ausblenden

10.04.2008 12:05:00

Reinhard

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

AW: leere zellen ausblenden

10.04.2008 12:54:56

Luschi

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

Vielen Dank EUch BEIDEN, gruss

10.04.2008 13:16:50

matthias

Link anklickbar

10.04.2008 13:22:00

Reinhard

Hallo Luschi,
danke für die Information mit XL2003.
https://www.herber.de/forum/messages/967324.html
Gruß
Reinhard

AW: leere zellen ausblenden

10.04.2008 13:23:30

matthias

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

AW: leere zellen ausblenden

10.04.2008 13:26:09

Reinhard

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

AW: leere zellen ausblenden

10.04.2008 13:35:00

matthias

Das Hidden akzeptiert er bei mir nicht?

AW: leere zellen ausblenden

10.04.2008 14:43:00

Reinhard

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