|
Hallo alle zusammen,
ich habe ein Excelsheet mit 2 Spalten mit Drop-Down Menüs. Für jedes Feld in der ersten Spalte sollte man eine Oberkategorie auswählen. das geht ganz normal via Data Validation, kein Problem also. Die Möglichkeiten, die man in Spalte 2 zur Auswahl hat, sollen jetzt von der Auswahl in Spalte 1 abhängen. Das würde ich gern über das untenstehende Makro regeln, das ich aber einfach nicht zum Laufen bringe! Vielleicht kann mir dabei jemand weiterhelfen?? :( Vielen Dank im Voraus!!
Liebe Grüße
Tobse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cat1 As Range
Dim cat2 As Range
Dim x As Integer
Set cat1 = Range("G:G") 'Task Group
Set cat2 = Range("H:H") 'Task Category
If Not Intersect(Target, cat2) Is Nothing Then
If ActiveCell.Value = "" Then
If Cells(ActiveCell.Row, 7).Value = "Comms" Then
With Range(Cells(ActiveCell.Row, 8))
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Codes!$J$5:$J$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Task performed"
.ErrorTitle = ""
.InputMessage = "Please specify the task performed in detail"
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With
ElseIf Cells(ActiveCell.Row, 7).Value = "Donor" Then
With Range(Cells(ActiveCell.Row, 8))
With .Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Codes!$J$13:$J$19"
End With
End With
End If
End If
End If
End Sub
|