Hallo Leute,
meine Exceltabelle hat folgenden Aufbau
Spalte A Spalte B
2016 3,23
2017 5,56
2018 12,89
2019 8,79
Folgendes VBA Script gibt den minimalen Wert der Spalte B in einer Zelle aus. Wie bekomme ich den korrespondierenden Spaltenwert A?
meine Exceltabelle hat folgenden Aufbau
Spalte A Spalte B
2016 3,23
2017 5,56
2018 12,89
2019 8,79
Folgendes VBA Script gibt den minimalen Wert der Spalte B in einer Zelle aus. Wie bekomme ich den korrespondierenden Spaltenwert A?
Visual Basic:
Option Explicit
Sub Schaltfläche1_Klicken()
Dim max, min As Double
Dim jahr As Integer
MsgBox "Berechnet wurden die Extrema der Jahre " & Sheets("Tabelle1").Cells(3, 2).Value & " bis " & Sheets("Tabelle1").Cells(23, 2) & vbCrLf & "Die entsprechenden Zellen werden grün(Max) und rot(Min) unterwandert!"
max = WorksheetFunction.max(ActiveSheet.Range("C3:C23")) 'größter Wert von C3 bis C23
min = WorksheetFunction.min(ActiveSheet.Range("C3:C23")) 'kleinster Wert von C3 bis C23
Cells(52, 5) = min & "(im Jahr " & jahr & ")" 'Wie komme ich an den korrespondierenden Spaltenwert des Jahres?"
Cells(51, 5) = max ' Wie komme ich an den korrespondierenden Spaltenwert des Jahres?
Cells(51, 5).Interior.ColorIndex = 4 'grün
Cells(52, 5).Interior.ColorIndex = 3 'rot
End Sub