Hi,
Ich sitze seit einigen Stunden am Erstellen von Produktdatenblättern.
Jede Produktkategorie hat gewisse Teile die übereinstimmen und immer angezeigt werden sollen, andere Teile sind kategoriespezifisch.
Ich will anhand eines Eingabewertes im Feld C4 (Produktkategorie) automatisch die kategoriespezifischen Teile ein bzw ausblenden lassen.
Bisher benutze ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
If Target.Value = "a" Then
Rows("44:89").Hidden = True
Else
Rows("44:89").Hidden = False
End If
If Target.Value = "b" Then
Rows("26:43").Hidden = True
Rows("46:89").Hidden = True
Else
Rows("26:43").Hidden = False
Rows("46:89").Hidden = False
End If
If Target.Value = "c" Then
Rows("26:45").Hidden = True
Rows("52:89").Hidden = True
Else
Rows("26:45").Hidden = False
Rows("52:89").Hidden = False
End If
If Target.Value = "d" Then
Rows("26:51").Hidden = True
Rows("54:89").Hidden = True
Else
Rows("26:51").Hidden = False
Rows("54:89").Hidden = False
End If
If Target.Value = "e" Then
Rows("26:53").Hidden = True
Rows("67:89").Hidden = True
Else
Rows("26:53").Hidden = False
Rows("67:89").Hidden = False
End If
If Target.Value = "f" Then
Rows("26:66").Hidden = True
Rows("76:89").Hidden = True
Else
Rows("26:66").Hidden = False
Rows("76:89").Hidden = False
End If
If Target.Value = "G" Then
Rows("26:75").Hidden = True
Rows("79:89").Hidden = True
Else
Rows("26:75").Hidden = False
Rows("79:89").Hidden = False
End If
If Target.Value = "h" Then
Rows("26:78").Hidden = True
Rows("82:89").Hidden = True
Else
Rows("26:78").Hidden = False
Rows("82:89").Hidden = False
End If
If Target.Value = "i" Then
Rows("26:81").Hidden = True
Rows("87:89").Hidden = True
Else
Rows("26:81").Hidden = False
Rows("87:89").Hidden = False
End If
If Target.Value = "j" Then
Rows("26:86").Hidden = True
Else
Rows("26:86").Hidden = False
End If
End If
End Sub
Leider wird dabei immer nur der letzte "Filter", hierbei also "j" angewandt und die anderen fallen weg. Wähle ich oben die Produktkategorie b oder irgendeine andere (nicht j), so wird mir alles angezeigt, und nichts ausgeblendet, obwohl ich eigentlich ja nur den teil zur Kategorie b sehen möchte und alle anderen Zeilen zu den übrigen Kategorien ausgeblendet sein sollten.
Ich bin mir sicher dass ich die Filter nicht richtig verbunden habe und wollte euch nun fragen was ich falsch gemacht habe und wie ich das ausmerzen kann.
Ich hoffe ihr könnt mir helfen.
Grüße
Stu
|