Hallo xr8k2,
ich verstehe Deine Frage immer noch nicht, was nicht heißt, dass Du diese nicht richtig formuliert hast, im Gegenteil :-).
Die Kombinationen ergeben sich aus den drei gewählten CBO, daraus soll dann ein Wert resultieren, der dann in Spalte B der Tabelle geschrieben wird mit folgendem Click Ereignis. Anhand des "cboprozess.value" werden unzählige weitere Zellen mit "XXX" befüllt. Irgendwie funktioniert es aber nicht richtig...ich bin dafür zu wenig Fachfrau :-(
Private Sub cmdDatenschreiben_Click()
Dim lngNeueReihe As Long
If cboAutor.Value = "" _
Then
MsgBox "Leider können Sie keinen neuen Plan erfassen." _
& vbLf & "Sie müssen sich autorisieren!" _
_
& vbLf & "Das Erfassungsdatum wird automatisch hinterlegt", _
vbInformation, "Hinweis für: " & Application.UserName
Else
'Neue Reihe berechnen
lngNeueReihe = Application.Max(Range("A65536").End(xlUp).Row + 1, 6)
'Werte eintragen
With ActiveSheet
.Cells(lngNeueReihe, 1).Value = "x" 'X
' cboProzess.value wird erst weiter unten - nach logischer Befüllung - in die Tabelle _
erfasst
.Cells(lngNeueReihe, 3).Value = Me.cboPhase.Value 'Phase
.Cells(lngNeueReihe, 4).Value = Me.cboGewerk.Value 'Gewerk
.Cells(lngNeueReihe, 5).Value = Me.cboEntwurfsabschnitt.Value 'Abschnitt
.Cells(lngNeueReihe, 6).Value = Me.cboBauwerk.Value 'Bauwerk
.Cells(lngNeueReihe, 7).Value = Me.cboPlanart.Value 'Planart
.Cells(lngNeueReihe, 8).Value = Me.CboPlannummer.Value 'Plannummer
.Cells(lngNeueReihe, 9).Value = Me.cboAenderungsindex.Value 'Änderungsindex
.Cells(lngNeueReihe, 10).Value = Me.cbostatus.Value 'Status
.Cells(lngNeueReihe, 11).Value = Me.cboPlaner.Value 'Planer
.Cells(lngNeueReihe, 12).Value = Me.txtBemerkungPlanuebergabe.Value 'Bemerkung zu _
Planuebergabe
.Cells(lngNeueReihe, 13).Value = Me.txtBeschreibungPlaninhalt.Value 'Beschreibung zu _
Planinhalt (Freitext)
.Cells(lngNeueReihe, 14).Value = Me.txtFormat.Value
.Cells(lngNeueReihe, 15).Value = Me.txtMaßstab.Value
.Cells(lngNeueReihe, 16).Value = Me.optFarbe.Value
.Cells(lngNeueReihe, 17).Value = Me.txtSeiten
.Cells(lngNeueReihe, 19).Value = Me.cboAutor.Value
.Cells(lngNeueReihe, 20).Value = Now
End With
'Bedingungen überprüfen, welche Werte in cboProzess.value geschrieben wird
If cboGewerk.Value = "EP" & cboPhase.Value = "IB" & cboEntwurfsabschnitt.Value = "DE" _
Then
cboProzess.Value = "Entwurfsplanung Konstr. Ing-Bau Deutschland"
.Cells(lngNeueReihe, 2).Value = cboProzess.Value 'Planlauf-Prozess
End With
End If
'Prozesszeichenkette basierend auf cboProzess.Value
Select Case cboProzess.Value
Case "Entwurfsplanung Konstr. Ing-Bau Deutschland"
' 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
Case "Entwurfsplanung Konstr. Ing-Bau Schweiz"
' 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
Case "Genehmigungsplanung Konstr. Ing-Bau Schweiz"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Genehmigungsplanung Konstr. Ing-Bau Deutschland"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung Konstr.Ing - Bau"
' 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
' BV-BZ
.Cells(lngNeueReihe, 74).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 75).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 76).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 77).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 78).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
' 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
' 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
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Entwurfsplanung Verkehrsanlagen Deutschland"
' 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
Case "Entwurfsplanung Verkehrsanlagen Schweiz"
' 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
Case "Genehmigungsplanung Verkehrsanlagen Deutschland"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Genehmigungsplanung Verkehrsanlagen Schweiz"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung Verkehrsanlagen"
' 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
' 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
' 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
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung Hochbau"
' 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
' 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
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Entwurfsplanung Oberleitung Deutschland"
' 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
Case "Entwurfsplanung Oberleitung Schweiz"
' 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
Case "Genehmigungsplanung Oberleitung Deutschland"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Genehmigungsplanung Oberleitung Schweiz"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung Oberleitung"
' 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
' BV-BZ Block
.Cells(lngNeueReihe, 74).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 75).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 76).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 77).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 78).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
' 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
' CM-CQ Block
.Cells(lngNeueReihe, 96).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 97).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 98).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
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Entwurfsplanung 50 Hz. Deutschland"
' 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
Case "Entwurfsplanung 50 Hz. Schweiz"
' 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
Case "Genehmigungsplanung 50 Hz. Deutschland"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Genehmigungsplanung 50 Hz. Schweiz"
' 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
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung 50 Hz."
' BV-BZ Block
.Cells(lngNeueReihe, 74).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 75).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 76).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 77).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 78).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
' 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
' CX-CZ Block
.Cells(lngNeueReihe, 102).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 103).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 104).Value = "xxx" 'XXX Markierung
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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
Case "Ausführungsplanung TK"
' BV-BZ Block
.Cells(lngNeueReihe, 74).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 75).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 76).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 77).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 78).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
' 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
' CX-CZ Block
.Cells(lngNeueReihe, 102).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 103).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 104).Value = "xxx" 'XXX Markierung
' DA-DC Block
.Cells(lngNeueReihe, 105).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 106).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 107).Value = "xxx" 'XXX Markierung
' DD-DF Block
.Cells(lngNeueReihe, 108).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 109).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 110).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 Select
End With
End If
End Sub