Hi,
ergänze Deine Sub beispielsweise wie folgt:
Dim v As Variant
'
v = Application.Match(WorksheetFunction.Max((Cells(5, Handkarte1)), (Cells(5, Handkarte2)), (Cells(5, Handkarte3))), Range("5:5"), 0)
'
If Not IsError(v) Then
Cells(5, v).Select 'da wir Select eigentlich nicht brauchen, um eine Zelle dieser Spalte auszugeben
'wir aber wissen in welcher Spalte wir sind, genügt es,
'mit Angabe des Offset(plus/Minus Anzahl zeilen, plus/minus Anzahl Spalten)
'die zielzelle anzusprechen und die Value-Eigenschaft auslesen
MsgBox Cells(5, v).Offset(1, 0).Value 'Beispiel +1Zeile +-0Spalten
MsgBox Cells(5, v).Offset(5, 0).Value 'Beispiel +5Zeilen +-0Spalten
MsgBox Cells(5, v).Offset(5, 2).Value 'Beispiel +5Zeilen, +2Spalten
End If
|