AW: Gültigkeit automatisieren
04.04.2008 09:53:59
Renee
Hi Schallbach,
Fange bitte nicht immer wieder einen neuen Thread zu gleichen Thema an. Das wird von den HelferInnen nicht gern gesehen!
Dein Code in den Selection_Change der Zieltabelle zu verlegen ist völlig verkehrt.
Warum bleibst Du nicht bei meinen Empfehlungen. Der Code gehört in das Tabellenblatt SD, denn nur wenn dort etwas ändert ist der Aufbau der Gültigkeitsliste nötig!
Zu deinen anderen Problemen:
1. Listbox auf 1stem Eintrag: Da die Zellen am Anfang leer sind, ist die Listbox auf dem ersten leeren Eintrag. Wenn du an erster Stelle deiner GListe einen leeren Eintrag machst, steht sie auf diesem!
2. Gültigkeit testen, ergänze den Code so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sEingabeMsg As String
Dim rC As Range
If Intersect(Target, Me.Range("A2:B100")) Is Nothing Then Exit Sub
sEingabeMsg = "Erlaubt sind:" & vbCrLf
For Each rC In Tabelle5.Range("GListe")
sEingabeMsg = sEingabeMsg & IIf(rC.Value = "", "", rC.Offset(0, 1).Value & vbCrLf)
Next
sEingabeMsg = Left(sEingabeMsg, Len(sEingabeMsg) - 2)
With Tabelle1.Range("D3:D231").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=GListe"
.InputMessage = sEingabeMsg
.IgnoreBlank = False
.ShowInput = True
.ShowError = True
End With
End Sub
3. Das mit den 7 Einträgen begreife ich nicht. Hab deinen Code nicht näher betrachtet, da zu statisch!
GreetZ Renée