Bestimmte Zeilen per Makro ein-/ausblenden
19.08.2011 12:47:07
NoNet
Hallo Lars,
vorweg die Frage : Weshalb nicht per Autofilter ? - Das ist doch das geeignete Werkzeug !
Hier eine Möglichkeit für alle 3 Anforderungen per VBA - Ich gehe davon aus, dass in A1 eine Überschrift steht, die nicht ausgeblendet werden darf ;-) :
Sub Nur1BuchstabeAnzeigen()
Dim lngZ As Long
Rows.Hidden = False 'Zuerst ALLE Zeilen einblenden
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(lngZ).Hidden = UCase(Cells(lngZ, 1)) "W" 'Nur Buchstabe W anzeigen
Next
End Sub
Sub MehrereBuchstabenAnzeigen()
Dim lngZ As Long
Rows.Hidden = False 'Zuerst ALLE Zeilen einblenden
'Nur bestimmte Buchstaben anzeigen : Hier : V und W
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(lngZ).Hidden = IsError(Application.Match(UCase(Cells(lngZ, 1)), Array("V", "W"), 0) _
)
Next
End Sub
Sub MehrereBuchstabenAusblenden()
Dim lngZ As Long
Rows.Hidden = False 'Zuerst ALLE Zeilen einblenden
'Nur bestimmte Buchstaben ausblenden : Hier : E und W
For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(lngZ).Hidden = IsNumeric(Application.Match(UCase(Cells(lngZ, 1)), Array("E", "W"), _
0))
Next
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...