Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nach Änderung 3 CBO Values -> Ausgabe Wert

Nach Änderung 3 CBO Values -> Ausgabe Wert
Jessi
Hallo zusammen,
ich habe wieder mal eine Frage.
Ich habe 3 CBO Felder auf einer User Form:
- cboPhase
- cboGewerk
- cboEntwurfsabschnitt
Ich suche nach einem Code der im Hintergrund mitläuft und sobald die 3 Felder Values besitzen eine logische Zuordnung zu einem Wert in die CBO cboProcess.value führt.
z.B.
wenn
cboPhase.value = "1" & cboGewerk = "1" & cboEntwurfsabschnitt = "2", dann cboprocess.value = "Ergebniswert01"
Wie kann ich das machen?
LG
Jessi
AW: Nach Änderung 3 CBO Values -> Ausgabe Wert
30.04.2010 10:15:15
xr8k2
Hallo Jessi,
die Frage ist, woraus ermittelst du die logische Zuordnung?
Als einfache If-Bedingung im Code anhand deines Beispiels:
'...
If cboPhase.value = "1" and cboGewerk = "1" and cboEntwurfsabschnitt = "2" then _
cboprocess.value = "Ergebniswert01" Else cboprocess.value = "Keine Zurordnung mgl.!"
'...

Gruß,
xr8k2
AW: Nach Änderung 3 CBO Values -> Ausgabe Wert
30.04.2010 11:06:15
Jessi
Hallo xr8k2,
danke, aber es wäre 22 Kombinatinsfelder abzubilden, anbei mal die Grafik wie die User Form aussieht.
https://www.herber.de/bbs/user/69319.jpg
LG
Jessi
Anzeige
AW: Nach Änderung 3 CBO Values -> Ausgabe Wert
30.04.2010 12:13:30
xr8k2
Hallo Jessi,
das mit den Comboboxen ist mir schon klar ... die Frage aber (diesmal anders formuliert) steht jedoch immer noch: Woraus willst du die logische Zuordnung ableiten?
Willst du die Bedingungen fest im VBA-Code verankern, dann kannst du´s wie in meinem ersten Beispiel lösen.
Gruß,
xr8k2
AW: Nach Änderung 3 CBO Values -> Ausgabe Wert
30.04.2010 15:14:23
Jessi
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

Anzeige
AW: Nach Änderung 3 CBO Values -> Ausgabe Wert
03.05.2010 09:10:20
xr8k2
Hallo Jessi,
OK ... dann nehm ich mir dein Beispiel und korrigier einfach mal die Syntax des betreffenden Codeabschnitts:
'...
'Bedingungen überprüfen, welche Werte in cboProzess.value geschrieben wird
If cboGewerk.Value = "EP" And cboPhase.Value = "IB" And cboEntwurfsabschnitt.Value = "DE" _
Then
cboProzess.Value = "Entwurfsplanung Konstr. Ing-Bau Deutschland"
.Cells(lngNeueReihe, 2).Value = cboProzess.Value 'Planlauf-Prozess
End If
'Prozesszeichenkette basierend auf cboProzess.Value
'...
Die beiden "End With" dort in der Codegegend sind meines Erachtens zu viel, weil du hast am Anfach nur ein "With" ... und ganz am Ende dann das zugehörige "End With".
Kann das ganze leider nicht testen ... schau mal ob du zurecht kommst. Wenn nicht müsstest du mal die Mappe irgendwie hier hochladen (wenn mgl. bitte nur als .xls. ... weil ich hab kein Office 2007 ;-))
Gruß,
xr8k2
Anzeige
Danke xr8k2 - das Ergebnis anbei...
03.05.2010 09:55:21
Jessi
Hallo xr8k2,
mit Deiner hilfe habe ich es nun wie folgt angepasst, es funktioniert jetzt für ein Process-Workflow, ich versuche mich jetzt noch an den anderen 22, diese kombiniert einzubauen :-)
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
'Bedingungen überprüfen, welche Werte in cboProzess.value geschrieben wird
If cboPhase.Value = "EP" And cboGewerk.Value = "IB" And cboEntwurfsabschnitt.Value = "DE" Then
cboProzess.Value = "Entwurfsplanung Konstr. Ing-Bau Deutschland"
.Cells(lngNeueReihe, 2).Value = Me.cboProzess.Value 'Planlauf-Prozess
End If
.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
'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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige