Herbers Excel-Forum - das Archiv
VBA - Zeilen ausblenden
- VBA - Zeilen ausblenden von Uwe vom 21.12.2006 20:23:40
- AW: VBA - Zeilen ausblenden - von Kurt Isane am 21.12.2006 20:26:54
- AW: VBA - Zeilen ausblenden - von Peter Feustel am 21.12.2006 21:29:18
- AW: VBA - Zeilen ausblenden - von Daniel Eisert am 21.12.2006 22:28:36
- AW: VBA - Zeilen ausblenden - von Uwe am 22.12.2006 02:44:12
- AW: VBA - Zeilen ausblenden - von Uwe am 22.12.2006 02:44:12
 |
Betrifft: VBA - Zeilen ausblenden
von: Uwe
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
 |
Betrifft: AW: VBA - Zeilen ausblenden
von: Kurt Isane
Geschrieben am: 21.12.2006 20:26:54
Hi,
Autofilter
mfg Kurt
|
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.
|
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 SubGruß, Daniel
|
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
| |