PDA

Vollständige Version anzeigen : Zellen per Makro ausblenden


golochim
21.03.2009, 22:05
Hallo,

in einem Tabellenblatt habe ich 120 Zeilen mit 8 spalten.
Für bestimmte Auswertungen möchte ich aber einzelne Zeilen einblenden bzw. ausblenden! Es sind immer bestimmte Zeilen, die ich ausblenden muß. Dies soll über ein Makro gesteuert werden. Kennt jemand eine Lösung, wie man die nicht benötigten Zeilen schnell ausblenden kann?

LG

Jojo

Backowe
21.03.2009, 22:17
Hi,

setz Dir eine Checkbox auf Dein Tabellenblatt und kopiere folgenden Code hinein:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> CheckBox1_Click()
<span class="TOKEN">Dim</span> Zelle <span class="TOKEN">As</span> Range
<span class="TOKEN">If</span> CheckBox1 <span class="TOKEN">Then</span>
Application.ScreenUpdating = <span class="TOKEN">False</span>
<span class="TOKEN">For</span> <span class="TOKEN">Each</span> Zelle <span class="TOKEN">In</span> Range(&quot;A5:A100&quot;)
<span class="TOKEN">If</span> Zelle = &quot;ja&quot; <span class="TOKEN">Then</span>
Zelle.EntireRow.Hidden = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">Next</span>
<span class="TOKEN">Else</span>
Cells.EntireRow.Hidden = <span class="TOKEN">False</span>
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
Application.ScreenUpdating = <span class="TOKEN">True</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

jinx
22.03.2009, 08:08
Moin, Jürgen,

Du kannst zwei Codezeilen einsparen, statt

If Zelle = "ja" Then
Zelle.EntireRow.Hidden = True
End If
Zelle.EntireRow.Hidden = (Zelle = "ja")
Da wird der Vergleich in der Klammer ausgeführt und das Ergebnis Wahr oder Falsch für die Sichtbarkeit der Zeile verwendet. ;)

Backowe
22.03.2009, 10:01
Moin jinx,

danke für Deine Aufklärung! :)

golochim
26.03.2009, 08:16
vielen Dank für die Lösunegen.

Werde es gleich bei mir testen!!

Jojo