Zeilen ausblenden, wenn 0

Forumthread: Zeilen ausblenden, wenn 0

06.02.2009 12:07:03

evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung die schon vorhandenen Lösungen zum Zellen ausblenden auf mein Problemchen umzuprogrammieren.
Vielen Dank für eure Hilfe

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen ausblenden, wenn 0

06.02.2009 12:59:00

Josef
AW: Zeilen ausblenden, wenn 0

06.02.2009 13:14:00

evi
AW: Zeilen ausblenden, wenn 0

06.02.2009 17:01:00

evi
AW: Zeilen ausblenden, wenn 0

06.02.2009 19:37:00

Josef
AW: Zeilen ausblenden, wenn 0

09.02.2009 09:47:00

evi

AW: Zeilen ausblenden, wenn 0

06.02.2009 12:59:00

Josef

Hallo Evi,
wenn in "Blatt 1" in C45 der Eintrag von Hand erfolgt, dann so.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$45" Then _
Sheets("Blatt 2").Rows("120:123").Hidden = Target = 0
End Sub

Gruß Sepp

AW: Zeilen ausblenden, wenn 0

06.02.2009 13:14:00

evi

Hallo Sepp,
das klappt super. Vielen, vielen Dank

AW: Zeilen ausblenden, wenn 0

06.02.2009 17:01:00

evi

Noch ein kleines Problem ist aufgetreten.
Ich hab in diesem Tabellenblatt bereits ein Makro mit folgendem Inhalt:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("l6:l8")) Is Nothing Then
With ActiveSheet
Sheets("DCF-demolished").Visible = Range("l6") = "Yes"
Rows("35:117").EntireRow.Hidden = Range("l6") = "No"
Sheets("DCF-sustainable").Visible = Range("l7") = "Yes"
Sheets("DCF-development").Visible = Range("l8") = "Yes"
.Rows("35:117").EntireRow.Hidden = .Range("l6") = "No"
.Rows("121:203").EntireRow.Hidden = .Range("l7") = "No"
.Rows("207:291").EntireRow.Hidden = .Range("l8") = "No"
End With
End If
Wo füge ich jetzt das neue Makro am Besten ein?
Viele Grüße
End Sub

AW: Zeilen ausblenden, wenn 0

06.02.2009 19:37:00

Josef

Hallo Evi,
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$45" Then
        Sheets("Blatt 2").Rows("120:123").Hidden = Target = 0
    ElseIf Not Intersect(Target, Range("l6:l8")) Is Nothing Then
        Sheets("DCF-demolished").Visible = Range("l6") = "Yes"
        Rows("35:117").EntireRow.Hidden = Range("l6") = "No"
        Sheets("DCF-sustainable").Visible = Range("l7") = "Yes"
        Sheets("DCF-development").Visible = Range("l8") = "Yes"
        Rows("35:117").EntireRow.Hidden = Range("l6") = "No"
        Rows("121:203").EntireRow.Hidden = Range("l7") = "No"
        Rows("207:291").EntireRow.Hidden = Range("l8") = "No"
    End If
End Sub

Gruß Sepp

AW: Zeilen ausblenden, wenn 0

09.02.2009 09:47:00

evi

danke Sepp,
das klappt super.
Jetzt hab ich aber nochmal eine ganze doofe Frage. Für das obere Makro brauche ich eine Art Schleife, da auch weitere Zellen geprüft werden sollen (bei c46 = 0, Zeilen 124-126 ausblenden; bei c47 = 0, Zeilen 127 -130 ausblenden usw.)
Wie kann ich den Code diesbezüglich ändern?
Vielen Dank.

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilen ausblenden, wenn 0

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread