VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Prozedur zu groß	04.09.2016 19:42:10	Guido
Prozedur zu groß	04.09.2016 23:56:43	Nobody
Prozedur zu groß	05.09.2016 08:06:41	Guido
Prozedur zu groß	05.09.2016 09:20:58	Nobody
Prozedur zu groß	05.09.2016 09:41:52	Gast13063
Prozedur zu groß	05.09.2016 10:06:13	Guido
Prozedur zu groß	05.09.2016 17:32:28	Nobody
Prozedur zu groß	05.09.2016 09:55:37	Guido
Prozedur zu groß	05.09.2016 16:19:24	Nobody
Prozedur zu groß	06.09.2016 10:44:40	Nobody

Ansicht des Beitrags:

Von:
Guido

Datum:
05.09.2016 09:55:37

Views:
1096

Rating:

Antwort:

Thema:
Prozedur zu groß

Hallo Nobody!

Ich habe bzw. denke doch, dass ich alles so ausgeführt habe, so wie du es erklärt hattest. Es zeigt mir immer noch an, dass die Prozedur zu groß ist

Modulblatt 1:

'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

Sub Berechnen_1()

' 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

Next Zeile

'Dammgeometrieveränderung

Zeile = 21

If TextDammgeometrieveränderung = Cells(100, 12) Then

Dammgeometrieveränderung = Cells(Zeile, Spalte)