Herbers Excel-Forum - das Archiv

VBA - Zeilen ausblenden

Bild

Betrifft: VBA - Zeilen ausblenden
von: Uwe

Geschrieben am: 21.12.2006 20:23:40
Hallo,
wisst Ihr, wie man nachfolgendes Makro effizienter programmieren kann? Wenn
das Makro 1500 Zeilen durchsuchen muss, dauert es richtig lange, bis die
Rechenoperation weitergeht.
Gruß
Uwe
Sub ausblenden()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
varSearch = 0 'Suchwert
Set rngSearch = [AC1:AC1500] 'Suchbereich (Suche in Spalte C nach 0 und blende alle Zeilen mit 0 aus)
With rngSearch
Set c = .Find(varSearch, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddr = c.Address
Do
Rows(c.Row).Hidden = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddr
End If
End With
Bild

Betrifft: AW: VBA - Zeilen ausblenden
von: Kurt Isane
Geschrieben am: 21.12.2006 20:26:54
Hi,
Autofilter
mfg Kurt
Bild

Betrifft: AW: VBA - Zeilen ausblenden
von: Peter Feustel

Geschrieben am: 21.12.2006 21:29:18
Hallo Uwe,
hast du Formeln in dem Tabellenblatt, dann füge vor deinem Code
Application.Calculation = xlCalculationManual
und dahinter
Application.Calculation = xlCalculationAutomatic
ein, dann sollte er sehr viel schneller laufen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Bild

Betrifft: AW: VBA - Zeilen ausblenden
von: Daniel Eisert

Geschrieben am: 21.12.2006 22:28:36
Hallo
ein änhnliches Problem wurde vor kurzem hier besprochen, allerdings gings ums Löschen.
daraus mal ne Methode (von Claudia), alternativ zum Autofilter
Sub test()
With range("AC:AC")
.Replace 0, True, xlWhole
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Hidden = True
.Replace True, 0, xlWhole
End With
End Sub

Gruß, Daniel
Bild

Betrifft: AW: VBA - Zeilen ausblenden
von: Uwe

Geschrieben am: 22.12.2006 02:44:12
Vielen Dank,
hat super geklappt. Filteroption hatte ich bereits ausprobiert. Deine Lösung passt jedoch besser in mein Tool als die anderen Lösungen. Dennoch vielen Dank an euch alle.
Gruß
Uwe
 Bild
Excel-Beispiele zum Thema "VBA - Zeilen ausblenden"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren