Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$A$11" Then
Worksheets("Dienstleistung").Range("A5:A25").Delete Shift:=xlToLeft
Select Case Target.Value
Case "kl"
Worksheets("Liste Auswahl").Range("A1:A5").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
Case "einst"
Worksheets("Liste Auswahl").Range("A10:A20").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
Case "Un"
Worksheets("Liste Auswahl").Range("A24:A28").Copy
Worksheets("Dienstleistung").Range("A5").PasteSpecial xlAll
End Select
Application.CutCopyMode = False
End If
ende:
Worksheets("Dienstleistung").Rows("5:25").RowHeight = 24.75
Application.EnableEvents = True
End Sub
Danke schon mal!!Volker