Office: VBA Skript: Zeilen verstecken

Hallo zusammen,

ich bräuchte mal wieder Eure profssionalle Hilfe. Sachverhalt ist folgender:

In Sheet A soll in Zelle C4 eine Zahl von 1-10 eingetragen werden. Je nachdem, welche Zahl eingetragen wird, soll in Sheet B eine bestimmte Anzahl an Zeilen nicht angezeigt (d.h. versteckt) werden. Beide Sheets befinden sich in demselbem Workbook.

Ein Beispiel:
In C4 in Sheet A steht die Zahl 1. Es sollen in Sheet B die Zeilen 12-20 versteckt werden. Steht die Zahl 2, sollen in Sheet B die Zeilen 13-20 versteckt werden, ist eine 3 eingetragen, sollen nur die Zeilen 14-20 versteckt werden u.s.w.

Ich denke, falls ich mal das Gerüst habe, dann kann ich den Rest selbst basteln.

Vielen Dank schon mal im Voraus.

Viele Grüße
svenj82!

 

Hallo!

Rechtsklicke den Reiter von "Sheet A" und wähle "Code anzeigen"
Füge diesen Code ins Codefenster rechts ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
Dim i As Byte
With Sheets("Sheet B")
.Rows("11:20").Hidden = False
For i = 11 + Target To 20
.Rows(i).Hidden = True
Next i
End With
End Sub

Den Blattnamen von "Sheet B" musst gegebenenfalls anpassen.

 

Vielen Dank! Klappt einwandfrei.

Noch eine Kleinigkeit: wie kann ich in dieses Skript nun zusätzlich einbauen, dass (wie bei dem Prinzip oben) die Zeilen 27-36 versteckt werden, wenn ich ebenfalls Zelle D4 eine Zahl von 1-10 eingetrage?

Weitere Einträge erfolgen übrigens noch in den Zellen D4, E4, F4 ..., J4 erfolgen, die jeweils auf einen anderen Bereich in Sheet B verweisen.

Viele Dank und viele Grüße
Sven

 

Hallo!

Das sähe dann so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$4" Then
Dim i As Byte
With Sheets("Sheet B")
.Rows("11:20").Hidden = False
For i = 11 + Target To 20
.Rows(i).Hidden = True
Next i
End With
End If

If Target.Address = "$D$4" Then
Dim i As Byte
With Sheets("Sheet B")
.Rows("27:36").Hidden = False
For i = 27 + Target To 36
.Rows(i).Hidden = True
Next i
End With
End If

If Target.Address = "$E$4" Then
usw.
usw.

End Sub

 

So ähnlich hatte ich es auch probiert.

Es erscheint dann jedoch eine Fehlermeldung bei der Eintragung in die zweite Zelle (d.h. wenn ich C4 eine Zahl stehen habe und dann eine weitere in Zelle D4 eintrage). Der VBA-Editor öffnet sich und die Fehlermeldung

"Compile Error:

Duplicate declaration in current scope"

und die Zeile "Dim i As Byte" wird markiert.

Hast Du eine Ahnung, woran das liegt?

 

Ich hab's schon herausgefunden!

Vielen Dank für Deine Hilfe!

 

Ja, logisch!
Das kommt davon, wenn man die Dinger nicht testet, sorry...
Versuch's mal so und deklariere i einmal ganz zu Anfang und nimm die anderen raus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i as Byte

If Target.Address = "$C$4" Then
With Sheets("Sheet B")
.Rows("11:20").Hidden = False
For i = 11 + Target To 20
.Rows(i).Hidden = True
Next i
End With
End If

If Target.Address = "$D$4" Then
With Sheets("Sheet B")
.Rows("27:36").Hidden = False
For i = 27 + Target To 36
.Rows(i).Hidden = True
Next i
End With
End If

If Target.Address = "$E$4" Then
usw.
usw.

End Sub