Herbers Excel/VBA-Archiv
Zeilen ein-/ausblenden in Abhängigkeit von Eintrag | Herbers Excel-Forum
- Zeilen ein-/ausblenden in Abhängigkeit von Eintrag von Wolfango vom 15.02.2012 16:50:36
- AW: Zeilen ein-/ausblenden in Abhängigkeit von Eintrag - von Urmila am 15.02.2012 17:46:02
- AW: Zeilen ein-/ausblenden in Abhängigkeit von Eintrag - von Josef Ehrensberger am 15.02.2012 21:49:53
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