|
Hallo liebe Foren-Gemeinschaft!
Im Rahmen meiner Abschlussarbeit bin ich gezwungen mich mit VBA zu beschäftigen, mit dem ich zuvor nichts zu tun hatte.
Ich habe eine Tabelle mit 115 Spalten, in denen Werte (von -2 bis +2) drinstehen. Mein Ziel ist es nun, das Maximum für jede Zeile anzuzeigen und zwar so, dass der jeweilige höchste Wert (was auch mehrere Werte sein können) farbig hervorgehoben wird.
Mein Problem liegt momentan daran, dass ich nur 30 [Arg30] Werte/Spalten zuweisen kann. Ich müsste aber 60 Werte/Spalten zuweisen. Wenn ich das mache, macht das Programm nicht mit. Meine Idee wäre, ein Maximum1 und ein Maximum 2 zu definieren und so irgendwie zum Ziel zu kommen.
Das ist momentan mein programmierter Teil:
Sub Berechnen()
'Festlegung der Variablen
Dim Dammhöhe As Integer 'Integer = ganze Zahlen
Dim TextDammhöhe As String 'String = Text
Dim Max As Integer
Dim Bereich As Range
Dim Zeile As Integer
Dim Spalte As Integer
Spalte = 7
TextDammhöhe = Cells(101, 6)
Range(Cells(16, 7), Cells(37, 115)).Interior.ColorIndex = 2
For Spalte = 7 To 115
Zeile = 17 'Dammhöhe
For Zeile = 17 To 20
If Cells(Zeile, 2) = TextDammhöhe Then
Max = 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) ' , _ bis dahin funktioniert es (bis dahin würde ich mein Maximum1 definieren)
' 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) (und bis dahin würde ich mein Maximum2 definieren)
Dammhöhe = Cells(Zeile, Spalte)
If Max = Cells(Zeile, Spalte).Value Then
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End If
Next Zeile
Next Spalte
End Sub
Ich wäre Euch sehr dankbar, wenn mich Jemand dabei unterstützen könnte.
|