VBA-Code straffen
28.11.2008 17:45:57
gp
meine VBA Kenntnisse sind bescheiden, doch nun habe ich mich an eine etwas grössere Aufgabe gemacht.
Schon zu Anfang stehe ich vor dem Problem, dass es, bedingt durch den Umfang meiner Kenntnisse, sehr viel Code geben wird. Meine Frage kann man so etwas "eindampfen" und wie?
Private Sub ComboBox8_Change()
If ComboBox8.Value = "Trailer" And Tabelle1.Cells(84, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Spot" And Tabelle1.Cells(85, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Klammerteil" And Tabelle1.Cells(86, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Spielfilm" And Tabelle1.Cells(80, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Kurzfilm" And Tabelle1.Cells(80, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Dok.-film" And Tabelle1.Cells(80, 2) = "" Then _
Metereingabe.Show vbModeless
If ComboBox8.Value = "Akt" Then _
Aktwahl.Show vbModeless
End Sub
Für zweckdienliche Hinweisse herzlichen Dank.
Gruss
Gunter