Home VBA Makro Beispiele Bereich VBA - Bereich ein- ausblenden
VBA - Bereich ein- ausblenden PDF Drucken E-Mail
Geschrieben von: Marcus Rose   
Freitag, 02. Mai 2008 um 06:58 Uhr

Zeilen (Bereich) ein-, ausblenden

Diese beiden Excel Codes zeigen Euch, wie man Zeilen in einem Excel Tabellenblatt verstecken und wieder sichtbar machen kann. In diesem Beispiel wird jeweils eine Inputbox geöffnet. Gebt Ihr dort das Wort Test ein, so werden die Zeilen 1 und 2 ausgeblendet (eingeblendet).


Option Explicit

Sub Zeile_einblenden()
    Dim Frage As String
    Frage = Application.InputBox("Wenn Sie hier das Wort Test eintragen " _
    & "wird Zeile 1 und 2 eingeblendet", "Zeilen einblenden")
        If Frage = "Test" Then
            Rows("1:2").Hidden = False
        End If
End Sub

Sub Zeile_ausblenden()
    Dim Frage As String
    Frage = Application.InputBox("Wenn Sie hier das Wort Test eintragen " _
    & "wird Zeile 1 und 2 ausgeblendet", "Zeilen einblenden")
        If Frage = "Test" Then
            Rows("1:2").Hidden = True
        End If
End Sub

 

Ihr könnt aber genauso gut eine Zelle nach einem Wort abfragen. Bei diesem Beispiel werden die Zeilen 2 und 3 ausgeblendet, wenn in Zelle A1 nicht das Wort Test steht.



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("2:3").Hidden = Range("A1").Value <> "Test"
End Sub

 
Copyright © 2014 ms-excel.eu. Alle Rechte vorbehalten.
 

Autoren - Login

Werbung

wichtige Links:
http://ms-excel.eu
Hier habt Ihr eine gute Excel Hilfe
Besucherstatistik
Besucher gesamt: 3.162.420
Besucher heute: 1.808
Besucher gestern: 2.170
Max. Besucher pro Tag: 4.488
gerade online: 12
max. online: 507
counter Statistiken