Thema Datum  Von Nutzer Rating
Antwort
Rot Maximum in der Zeile farblich hervorheben
31.08.2016 16:17:27 Guido
***
NotSolved
31.08.2016 20:00:53 Holger
NotSolved
31.08.2016 20:06:56 Gast70117
NotSolved
01.09.2016 12:45:12 Guido
NotSolved
01.09.2016 15:55:18 Gast70117
NotSolved
01.09.2016 16:18:29 Gast67679
NotSolved
01.09.2016 20:37:09 Guido
NotSolved
02.09.2016 12:27:24 Gast70117
Solved

Ansicht des Beitrags:
Von:
Guido
Datum:
31.08.2016 16:17:27
Views:
399
Rating: Antwort:
  Ja
Thema:
Maximum in der Zeile farblich hervorheben

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Maximum in der Zeile farblich hervorheben
31.08.2016 16:17:27 Guido
***
NotSolved
31.08.2016 20:00:53 Holger
NotSolved
31.08.2016 20:06:56 Gast70117
NotSolved
01.09.2016 12:45:12 Guido
NotSolved
01.09.2016 15:55:18 Gast70117
NotSolved
01.09.2016 16:18:29 Gast67679
NotSolved
01.09.2016 20:37:09 Guido
NotSolved
02.09.2016 12:27:24 Gast70117
Solved