Besten Dank im Voraus!
Thomas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$8" Then
If InStr(Target.Value, "mehrere") Then
'ausführendes Makro
Sheets("Abholschein").Outline.ShowLevels RowLevels:=2
If Target.Address = "$D$8" Then
If InStr(Target.Value, "einzeln") Then
'ausführendes Makro
Sheets("Abholschein").Outline.ShowLevels RowLevels:=1
End If
End If
End If
End If
End Sub