Hallo zusammen!
ich habe mal wieder ein Problem :)
Mein Chef hat mir eine Excel-Tab vorgesetzt. In dieser befindet sich die unten aufgeführte PRozudur. Doch diese ist leider zu groß. Ich habe nun die Aufgabe die Tabelle in Gang zu bekommen. Allerdings habe ich keine Ahnung wie.
Gibt es einen Möglichkeit diese zu verkürzen oder gar zu teilen?
es wäre schön, wenn ihr mir helfen könntet.
Private Sub Worksheet_change(ByVal target As Range)
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Dachventilatoren" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Dachventilatoren"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Entrauchungsventilatoren" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Entrauchungsventilatoren"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Radialventialatoren (Direktantrieb)" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Radialventilatoren_Direktantrieb"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Radialventialatoren (Riemenantrieb)" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Radialventilator_Riemenantrieb"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Rohrventilatoren" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Rohrventilatoren"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
If target.Column = 3 And (target.Row >= 8 Or target.Row If target.Value = "Kanalventilatoren" Then
target.Offset(0, 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Kanalventilatoren"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End If
Die Prozedur ist an dieser Stelle noch nicht zu ende. Der If-Block folgt noch einige Male dabei ändern sich wie auh schon oben, immer nur target.Value und Formula1.
Vielen Dank für eure Bemühungen
Gruß Mandy