verschachtelte if, then, else WIE?
Jessi
habe wieder ein Problem, wie kann ich ca. 20 Prozesse (Prozess wird gewählt über cboprozess.value) abbilden?
Beispiel für 1 Prozess, wie könnte ich da einen 2 Prozess der von der "XXX Markierung" etwas anders aussieht geschickt einbauen?
Danke vorab.
LG
Jessi
'Prozesszeichenkette basierend auf cboProzess.Value
'Prozess 01
If cboProzess.Value = "Entwurfsplanung Konstr. Ing-Bau Deutschland" _
Then _
' BF-BM Block
.Cells(lngNeueReihe, 58).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 59).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 60).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 61).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 62).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 63).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 64).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 65).Value = "xxx" 'XXX Markierung
' CE-CG Block
.Cells(lngNeueReihe, 83).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 84).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 85).Value = "xxx" 'XXX Markierung
' CH-CL Block
.Cells(lngNeueReihe, 86).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 87).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 88).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 89).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 90).Value = "xxx" 'XXX Markierung
' CM-CQ Block
.Cells(lngNeueReihe, 91).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 92).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 93).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 94).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 95).Value = "xxx" 'XXX Markierung
' CR-CT Block
.Cells(lngNeueReihe, 96).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 97).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 98).Value = "xxx" 'XXX Markierung
' CU-CW Block
.Cells(lngNeueReihe, 99).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 100).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 101).Value = "xxx" 'XXX Markierung
' CX-CZ Block
.Cells(lngNeueReihe, 102).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 103).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 104).Value = "xxx" 'XXX Markierung
' DJ-DL Block
.Cells(lngNeueReihe, 114).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 115).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 116).Value = "xxx" 'XXX Markierung
' CM-DO Block
.Cells(lngNeueReihe, 117).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 118).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 119).Value = "xxx" 'XXX Markierung
' DP-DU Block
.Cells(lngNeueReihe, 120).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 121).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 122).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 123).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 124).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 125).Value = "xxx" 'XXX Markierung
End If
End With
End If
End Sub