Habe hier im Forum dieses Makro gefunden, dass genau mein Prob lösen würde. Wenn es anstatt dem
MAX-wert, den MIN-wert errechnen würde. Meine VBA-Kenntnisse, sind dafür leider noch nicht geeignet.
Kann mir bitte dabei jemand helfen?
Sub Maxwert_Click()
Dim wks As Worksheet, Gross As Double, wksGross As Worksheet
Gross = -600 For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "KW*" Then
If wks.Range("C6").Value > Gross Then
Gross = wks.Range("C6").Value
Set wksGross = wks
End If
End If
Next wks
Application.Goto Reference:=wksGross.Range("C6")
End Sub
Danke
Gruß
Josef