Zeilen aus- / einblenden

Hallo,
ich möchte folgendes machen:
Entprechend dem Wert im Feld B3 sollen verschieden Zeilen ein- bzw. aus-geblendet werden.
Steht zum Beispiel im Feld B3 der Wert 1 sollen die Zeilen "B7:B15" ausgeblendet werden
Steht im Feld B3 der Wet 2 sollen die Zeilen "B8:B15" ausgeblendet werden
Steht im Feld B3 der wert 3 sollen die Zeilen "B9:B15" ausgeblendet werden.
usw...
ich habe folgendes Macro für den Wert 1 der auch funktioniert

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("B3").Value = 1 Then Rows("7:15").Hidden = True Else Rows("7:15").Hidden = False End If End Sub

Füge ich nun zwischen End If und End Sub

den If Befehl für den Wert 2 ein, funktioniert dieser, aber dafür funktioniert die Sache mit dem Wert 1 nicht mehr.
Es funktioniert immer nur der unterste If Befehl. Die davorhergehenden nicht mehr.
Was kann ich machen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Cells(3, 2)) Is Nothing Then Exit Sub If Cells(3, 2) 9 Then Exit Sub Rows("6:14").Hidden = False Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True End Sub Private Sub xxxWorksheet_SelectionChange(ByVal Target As Range) If Cells(3, 2) 9 Then Exit Sub Rows("6:14").Hidden = False Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True End Sub

Danke, ist sogar noch besser,
so kann man irgendeinen Wert in den Code geben z.B


> 10

oder



> 99

oder wie auch immer, ohne die ganze Zahlenpalette angeben zu müssen.
Ich habe schon so viel versucht und ewig daran rumgefummelt und nun habe ich gleich 2 verschieden Lösungen von Euch. Vielen Dank
Ich habe es jetzt so:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(3, 2)) Is Nothing Then Exit Sub
If Cells(3, 2)  10 Then Exit Sub
Rows("6:15").Hidden = False
Rows(6 + Cells(3, 2)).Resize(11 - Cells(3, 2)).Hidden = True
End Sub
Private Sub xxxxWorksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 2)  10 Then Exit Sub
Rows("6:15").Hidden = False
Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen aus- / einblenden

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread