Codevereinfachung
21.10.2004 13:23:31
Michael
Ich habe eine Userform in der ich ein Combobox habe. Mit dieser Combobox aktiviere ich mit einiger if then else Bedingungen die Arbeitsblätter. Nur irgendwie paßt mir der Code nicht (Zu lange. Hat irgendwer eine Idee. Der Code ist nur ein "Auszug" von den ganzen Bedingungen.
Private Sub Zugnummercbo_Change()
If Zugnummercbo = "940" Then
Sheets("SWA 1").Select
End If
If Zugnummercbo = "14800" Then
Sheets("SWA 2").Select
End If
If Zugnummercbo = "14804" Then
Sheets("SWA 3").Select
End If
If Zugnummercbo = "14806" Then
Sheets("SWA 4").Select
End If
If Zugnummercbo = "14941" Then
Sheets("SWA 5").Select
End If
If Zugnummercbo = "14805" Then
Sheets("SWA 6").Select
End If
If Zugnummercbo = "14807" Then
Sheets("SWA 7").Select
End If
End Sub
Danke für Eure Hilfe
Michael