Pulldown in mehreren Spalten
15.11.2008 18:33:43
Wolfgang
der untenstehende Code bewirkt bei Anwählen eines jeweilien Tabellenblattes, dass in I2:I6000 ein Pulldown erscheint. Wäre denkbar, dass der Code ausgeweitet wird um zwei weitere Pulldown in Spalte K2:K6000 mit "Ja" "Nein" und in Spalte M2:M6000 mit "Date". Ich habe schon zig verschiedene Versionen versucht, komme aber auf keinen grünen Zweig. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
'erstellt Pulldownmenü in jeder Tabelle
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim strList As String
Dim rng As Range
If Not Sh.Name = "Start" And Not Sh.Name = "Gesamt" Then
Set rng = Sh.Range("I2:I6000")
rng.Validation.Delete
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, rng) Is Nothing Then
strList = "Zahl1 " & Chr(44) & "Zahl2 " & Chr(44) & "Zahl3 " & Chr(44) & "Zahl4 " & Chr(44) _
_
& "Zahl5 " & Chr(44)
With Target.Validation
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=strList
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Auweia"
.InputMessage = ""
.ErrorMessage = _
"Hier können Sie bitte nur das Listenfeld mit den Vorgaben nutzen."
.ShowInput = True
.ShowError = True
End With
End If
Set rng = Nothing
End If
End Sub