hi mick ^^
wie gewünscht :-))
gruss nighty
dein fehler war im Worksheet_Change ereigniss zu finden
[code]Target.Row =1[/code]
statt
[code]Target.Row =5[/code]
[code]Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Row =5 Then
Application.DisplayAlerts = False
Worksheets("" & Cells(5, 2)).Delete
Call Liste_Einlesen
Application.DisplayAlerts = True
End If
Application.EnableEvents = True
End Sub [/code]
das allgemeine modul mit ausschluss der genannten worksheetsnamen geaendert
[code]Sub Liste_Einlesen()
With Worksheets("Startseite").Range("B5").Validation
.Delete
For WksNamen = 1 To Worksheets.Count
If Worksheets(WksNamen).Name <> "Startseite" And Worksheets(WksNamen).Name <> "Vorlage" And Worksheets(WksNamen).Name <> "Namen_Orte" Then
If WksNamen < Worksheets.Count Then
NamenSammeln = NamenSammeln & Worksheets(WksNamen).Name & ","
Else
NamenSammeln = NamenSammeln & Worksheets(WksNamen).Name
End If
End If
Next WksNamen
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=NamenSammeln
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub [/code]
