Habe den Code probiert der aber nicht ganz funzt
wer kann mal schauen und verbessern
Private Sub CommandButton1_Click()
With Einteiler
If .Einteiler.ListBox1.Value = ("Dienste") Then
Sheets("Dienste").Visible = True
End If
End With
With Einteiler
If .Einteiler.ListBox1.Value = ("Personal") Then _
Sheets("Personal").Visible = True
End If
End With
End Sub
danke achim h.