Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen ein-/ausblenden in Abhängigkeit von Eintrag | Herbers Excel-Forum


Betrifft: Zeilen ein-/ausblenden in Abhängigkeit von Eintrag von: Wolfango
Geschrieben am: 15.02.2012 16:50:36

Hallo zusammen,

Ausgangssituation:
Die Zeilen 13 und 14 sind ausgeblendet.

Folgendes würde ich gerne über einen VBA-Code erreichen:
Sobald in Zelle C11 ein bestimmtes Wort steht (nennen wir es 'Testwort'. Das Wort wird nicht eingetippt sondern über eine Auswahlliste ausgewählt), sollen die Spalten 13 und 14 wieder eingeblendet werden.
Wenn in C11 wieder etwas anderes steht/angewählt wird, sollen die Spalten 13 und 14 wieder ausgeblendet werden.

Lässt sich sowas über einen Code automatisieren?

Besten Dank und Gruß,

Wo.

  

Betrifft: AW: Zeilen ein-/ausblenden in Abhängigkeit von Eintrag von: Urmila
Geschrieben am: 15.02.2012 17:46:02

Hallo Wo.

probiere mal folgenden Code aus (einfügen in der gewünschten Tabelle und nicht ins Modul!!!)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$11" Then
        If ActiveSheet.Range("C11").Value = "Testwort" Then
        ActiveSheet.Rows("13:14").Hidden = True
        Else
        ActiveSheet.Rows("13:14").Hidden = False
        End If
    End If
End Sub
Rückmeldung wäre lieb.

LG
Urmila


  

Betrifft: AW: Zeilen ein-/ausblenden in Abhängigkeit von Eintrag von: Josef Ehrensberger
Geschrieben am: 15.02.2012 21:49:53


Hallo Wolfgang,

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$11" Then
    Me.Rows("13:14").Hidden = Not Target = "Testwort"
  End If
End Sub






« Gruß Sepp »



Beiträge aus den Excel-Beispielen zum Thema "Zeilen ein-/ausblenden in Abhängigkeit von Eintrag"