Hallo Foren-Gemeinde!
Nachdem ich mein Code zusammengeschrieben habe und soweit alles in den Einzelpunkten funktionierte, wird mir nun "Prozedur zu groß" gemeldet. Nach einer Recherche hab ich nun mitbekommen, dass eine Prozedur nur eine gewisse Größe haben darf aber das man eine Prozedur in mehrere kleinere aufteilen kann. Da ich mich damit gar nicht auskenne, weiß ich nicht wie ich das einbaue und auch an welcher Stelle. Vielleicht könnte mir Jemand dazu helfen. Ich habe den gesamten Code aufgelistet.
Sub Berechnen()
'Festlegung der Variablen
Dim Dammhöhe As Integer 'Integer = ganze Zahlen
Dim TextDammhöhe As String 'String = Text
Dim Dammgeometrieveränderung As Integer
Dim TextDammgeometrieveränderung As String
Dim Arbeitshöhe As Integer
Dim TextArbeitshöhe As String
Dim Fläche As Integer
Dim TextFläche As String
Dim Verbesserungstiefe As Integer
Dim TextVerbesserungstiefe As String
Dim Geländeneigung As Integer
Dim TextGeländeneigung As String
Dim Lockergesteinsböden As Integer
Dim TextLockergesteinsböden As String
Dim Organik As Integer
Dim TextOrganik As String
Dim Festgestein As Integer
Dim TextFestgestein As String
Dim Hindernisse As Integer
Dim TextHindernisse As String
Dim Grundwasser As Integer
Dim TextGrundwasser As String
Dim Aggressiv As Integer
Dim TextAggressiv As String
Dim Schichtwasser As Integer
Dim TextSchichtwasser As String
Dim Rückbaubarkeit As Integer
Dim TextRückbaubarkeit As String
Dim Dauerhaftigkeit As Integer
Dim TextDauerhaftigkeit As String
Dim Bindemittel As Integer
Dim TextBindemittel As String
Dim Anpassungsfähigkeit As Integer
Dim TextAnpassungsfähigkeit As String
Dim Geräteeinsatz As Integer
Dim TextGeräteeinsatz As String
Dim Baustelleneinrichtungsfläche As Integer
Dim TextBaustelleneinrichtungsfläche As String
Dim Zugänglichkeit As Integer
Dim TextZugänglichkeit As String
Dim Sicherungsmaßnahmen As Integer
Dim TextSicherungsmaßnahmen As String
Dim Standsicherheit As Integer
Dim TextStandsicherheit As String
Dim Lärmimmission As Integer
Dim TextLärmimmission As String
Dim Erschütterungsimmission As Integer
Dim TextErschütterungsimmission As String
Dim Ökologie As Integer
Dim TextÖkologie As String
Dim Kontamination As Integer
Dim TextKontamination As String
Dim Flächeninanspruchnahme As Integer
Dim TextFlächeninanspruchnahme As String
Dim Landerwerb As Integer
Dim TextLanderwerb As String
Dim Zulassungsinstrumente As Integer
Dim TextZulassungsinstrumente As String
Dim Sperrungen As Integer
Dim TextSperrungen As String
Dim Langsamfahrstelle As Integer
Dim TextLangsamfahrstelle As String
Dim Ausschaltung As Integer
Dim TextAusschaltung As String
Dim Mehrschichtbetrieb As Integer
Dim TextMehrschichtbetrieb As String
Dim Ausführungsrisiko As Integer
Dim TextAusführungsrisiko As String
Dim Trasseneinnahmen As Integer
Dim TextTrasseneinnahmen As String
Dim Baukosten As Integer
Dim TextBaukosten As String
Dim Ausführungszeit As Integer
Dim TextAusführungszeit As String
Dim Max1 As Integer 'Maximum Spalte 1 bis 30
Dim Max2 As Integer 'Maximum Spale 31+
Dim MaxG As Integer 'Maximum Gesamt
Dim GeometrischeG As Double 'Double = reele Zahlen
Dim GeotechnischeG As Double
Dim HydrologischeG As Double
Dim TechnischeA As Double
Dim UmwelttechnischeA As Double
Dim RechtlicheA As Double
Dim Bahnbetrieb As Double
Dim Wirtschaftlichkeit As Double
Dim Bewertung As Double
Dim Zeile As Long
Dim Spalte As Long
' Zuweisen der Auswahl auf Textvariablen für Abgleich
Spalte = 7
TextDammhöhe = Cells(101, 6)
TextDammgeometrieveränderung = Cells(102, 6)
TextArbeitshöhe = Cells(103, 6)
TextFläche = Cells(104, 6)
TextVerbesserungstiefe = Cells(105, 6)
TextGeländeneigung = Cells(106, 6)
TextLockergesteinsböden = Cells(108, 6)
TextOrganik = Cells(109, 6)
TextFestgestein = Cells(110, 6)
TextHindernisse = Cells(111, 6)
TextGrundwasser = Cells(113, 6)
TextAggressiv = Cells(114, 6)
TextSchichtwasser = Cells(115, 6)
TextRückbaubarkeit = Cells(117, 6)
TextDauerhaftigkeit = Cells(118, 6)
TextBindemittel = Cells(119, 6)
TextAnpassungsfähigkeit = Cells(120, 6)
TextGeräteeinsatz = Cells(121, 6)
TextBaustelleneinrichtungsfläche = Cells(122, 6)
TextZugänglichkeit = Cells(123, 6)
TextSicherungsmaßnahmen = Cells(124, 6)
TextStandsicherheit = Cells(125, 6)
TextLärmimmission = Cells(127, 6)
TextErschütterungsimmission = Cells(128, 6)
TextÖkologie = Cells(129, 6)
TextKontamination = Cells(130, 6)
TextFlächeninanspruchnahme = Cells(132, 6)
TextLanderwerb = Cells(133, 6)
TextZulassungsinstrumente = Cells(134, 6)
TextSperrungen = Cells(136, 6)
TextLangsamfahrstelle = Cells(137, 6)
TextAusschaltung = Cells(138, 6)
TextMehrschichtbetrieb = Cells(139, 6)
TextAusführungsrisiko = Cells(141, 6)
TextTrasseneinnahmen = Cells(142, 6)
TextBaukosten = Cells(143, 6)
TextAusführungszeit = Cells(144, 6)
Range(Cells(16, 7), Cells(37, 115)).Interior.ColorIndex = 2 'Zurücksetzen der Zellfarbe vor jedem Berechnungsvorgang
'Beginn der Wertermittlung für Gesamtbewertung einschl. Markierung des Maximums
'Dammhöhe
For Spalte = 7 To 115
Zeile = 17
For Zeile = 17 To 20
If Cells(Zeile, 2) = TextDammhöhe Then
Dammhöhe = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
'Dammgeometrieveränderung
Zeile = 21
If TextDammgeometrieveränderung = Cells(100, 12) Then
Dammgeometrieveränderung = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
'Arbeitshöhe
Zeile = 23
For Zeile = 23 To 24
If Cells(Zeile, 2) = TextArbeitshöhe Then
Arbeitshöhe = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 26 'Fläche
For Zeile = 26 To 28
If Cells(Zeile, 2) = TextFläche Then
Fläche = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 30 'Verbesserungstiefe
For Zeile = 30 To 33
If Cells(Zeile, 2) = TextVerbesserungstiefe Then
Verbesserungstiefe = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 35 'Geländeneigung
For Zeile = 35 To 36
If Cells(Zeile, 2) = TextGeländeneigung Then
Geländeneigung = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 40 'Lockergesteinsböden
For Zeile = 40 To 43
If Cells(Zeile, 2) = TextLockergesteinsböden Then
Lockergesteinsböden = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 44 'Organische Böden
If TextOrganik = Cells(100, 12) Then
Organik = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 45 'Festgestein
If TextFestgestein = Cells(100, 12) Then
Festgestein = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 46 'Hindernisse
If TextHindernisse = Cells(100, 12) Then
Hindernisse = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 49 'Grundwasser
If TextGrundwasser = Cells(100, 12) Then
Grundwasser = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 50 'Aggressives Grundwasser
If TextAggressiv = Cells(100, 12) Then
Aggressiv = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 51 'Schichtwasser
If TextSchichtwasser = Cells(100, 12) Then
Schichtwasser = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 54 'Rückbaubarkeit
If TextRückbaubarkeit = Cells(100, 12) Then
Rückbaubarkeit = Cells(Zeile, Spalte)
End If
Zeile = 55 'Dauerhaftigkeit
If TextDauerhaftigkeit = Cells(100, 12) Then
Dauerhaftigkeit = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 56 'Bindemittel
If TextBindemittel = Cells(100, 12) Then
Abbindezeiten = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 57 'Anpassungsfähigkeit
If TextAnpassungsfähigkeit = Cells(100, 12) Then
Anpassungsfähigkeit = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 58 'Geräteeinsatz
If TextGeräteeinsatz = Cells(100, 12) Then
Geräteeinsatz = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 59 'Baustelleneinrichtungsfläche
If TextBaustelleneinrichtungsfläche = Cells(100, 12) Then
Baustelleneinrichtungsfläche = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 60 'Zugänglichkeit
If TextZugänglichkeit = Cells(100, 12) Then
Zugänglichkeit = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 61 'Sicherungsmaßnahmen
If TextSicherungsmaßnahmen = Cells(100, 12) Then
Sicherungsmaßnahmen = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 62 'Standsicherheit
If TextStandsicherheit = Cells(100, 12) Then
Standsicherheit = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 65 'Lärmimmission
If TextLärmimmission = Cells(100, 12) Then
Lärmimmission = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 66 'Erschütterungsimmission
If TextErschütterungsimmission = Cells(100, 12) Then
Erschütterungsimmission = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 67 'Ökologie
If TextÖkologie = Cells(100, 12) Then
Ökologie = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 68 'Kontamination
If TextKontamination = Cells(100, 12) Then
Kontamination = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 71 'Flächeninanspruchnahme
If TextFlächeninanspruchnahme = Cells(100, 12) Then
Flächeninanspruchnahme = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 72 'Landerwerb
If TextLanderwerb = Cells(100, 12) Then
Landerwerb = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 73 'Zulassungsinstrumente
If TextZulassungsinstrumente = Cells(100, 12) Then
Landerwerb = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 77 'Sperrungen
For Zeile = 77 To 79
If Cells(Zeile, 2) = TextSperrungen Then
Sperrungen = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Zeile = 80 'Langsamfahrstelle
If TextLangsamfahrstelle = Cells(100, 12) Then
Langsamfahrstelle = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 81 'Auschaltung
If TextAuschaltung = Cells(100, 12) Then
Auschaltung = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 82 'Mehrschichtbetrieb
If TextMehrschichtbetrieb = Cells(100, 12) Then
Mehrschichtbetrieb = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 85 'Ausführungsrisiko
If TextAusführungsrisiko = Cells(100, 12) Then
Ausführungsrisiko = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 86 'Trasseneinnahmen
If TextTrasseneinnahmen = Cells(100, 12) Then
Trasseneinnahmen = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 87 'Baukosten
If TextBaukosten = Cells(100, 12) Then
Baukosten = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Zeile = 88 'Ausführungszeit
If TextAusführungszeit = Cells(100, 12) Then
Ausführungszeit = Cells(Zeile, Spalte)
Max1 = Application.WorksheetFunction.Max(Cells(Zeile, 7).Value, _
Cells(Zeile, 9).Value, Cells(Zeile, 11).Value, Cells(Zeile, 13).Value, _
Cells(Zeile, 15).Value, Cells(Zeile, 17).Value, Cells(Zeile, 19).Value, _
Cells(Zeile, 21).Value, Cells(Zeile, 23).Value, Cells(Zeile, 25).Value, _
Cells(Zeile, 27).Value, Cells(Zeile, 29).Value, Cells(Zeile, 31).Value, _
Cells(Zeile, 33).Value, Cells(Zeile, 35).Value, Cells(Zeile, 37).Value, _
Cells(Zeile, 39).Value, Cells(Zeile, 41).Value, Cells(Zeile, 43).Value, _
Cells(Zeile, 45).Value, Cells(Zeile, 47).Value, Cells(Zeile, 49).Value, _
Cells(Zeile, 51).Value, Cells(Zeile, 53).Value, Cells(Zeile, 55).Value, _
Cells(Zeile, 57).Value, Cells(Zeile, 59).Value, Cells(Zeile, 61).Value)
Max2 = Application.WorksheetFunction.Max(Cells(Zeile, 63).Value, _
Cells(Zeile, 65).Value, Cells(Zeile, 67).Value, Cells(Zeile, 69).Value, _
Cells(Zeile, 71).Value, Cells(Zeile, 73).Value, Cells(Zeile, 75).Value, _
Cells(Zeile, 77).Value, Cells(Zeile, 79).Value, Cells(Zeile, 81).Value, _
Cells(Zeile, 83).Value, Cells(Zeile, 85).Value, Cells(Zeile, 87).Value, _
Cells(Zeile, 89).Value, Cells(Zeile, 91).Value, Cells(Zeile, 93).Value, _
Cells(Zeile, 95).Value, Cells(Zeile, 97).Value, Cells(Zeile, 99).Value, _
Cells(Zeile, 101).Value, Cells(Zeile, 103).Value, Cells(Zeile, 105).Value, _
Cells(Zeile, 107).Value, Cells(Zeile, 109).Value, Cells(Zeile, 111).Value, _
Cells(Zeile, 113).Value, Cells(Zeile, 115).Value)
If Max1 > Max2 Then
MaxG = Max1
Else
MaxG = Max2
End If
If MaxG = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
GeometrischeG = (Dammhöhe + Dammgeometrieveränderung + Arbeitshöhe + Fläche + Verbesserungstiefe + Geländeneigung) * Cells(15, 5)
GeotechnischeG = (Lockergesteinsböden + Organik + Festgestein + Hindernisse) * Cells(38, 5)
HydrologischeG = (Grundwasser + Aggressiv + Schichtwasser) * Cells(48, 5)
TechnischeA = (Rückbaubarkeit + Dauerhaftigkeit + Bindemittel + Anpassungsfähigkeit + Geräteeinsatz + Baustelleneinrichtungsfläche + Zugänglichkeit + Sicherungsmaßnahmen + Standsicherheit) * Cells(53, 5)
UmwelttechnischeA = (Lärmimmission + Erschütterungsimmission + Ökologie + Kontamination) * Cells(64, 5)
RechtlicheA = (Flächeninanspruchnahme + Landerwerb + Zulassungsinstrumente) * Cells(70, 5)
Bahnbetrieb = (Sperrungen + Langsamfahrstelle + Ausschaltung + Mehrschichtbetrieb) * Cells(75, 5)
Wirtschaftlichkeit = (Ausführungsrisiko + Trasseneinnahmen + Baukosten + Ausführungszeit) * Cells(84, 5)
Bewertung = GeometrischeG + GeotechnischeG + HydrologischeG + TechnischeA + UmwelttechnischeA + RechtlicheA + Bahnbetrieb + Wirtschaftlichkeit
Cells(93, Spalte - 1) = Bewertung
Spalte = Spalte + 1
Next Spalte
End Sub
|