AW: Maximum finden - Dringend Hilfe benötigt!!!
22.07.2007 19:00:22
Sebastian
Hi,
Also der Bereich ist im Range festgelegt. Die variable "Anfang_Temp" gibt mir die erste Zelle mit den ersten Wert in Spalte B zurück und damit makiere ich die Spalte bis zum letzten Wert.
Das Maximum findet er und hinterlegt es in der Variablen "Maximum".
Allerdings hinterlegt er nur den Wert des Maximums und nicht die Zelle in diese er steht :-(
die aktive Zelle steht immernoch am ersten Wert der Spalte.... :-( Das ist momentan mein Problem....
Ich muss die Wert vom ersten Wert bis zum Maximum makieren...
Bezeichnung_Kennlinie = ActiveCell.Worksheet.Name
Set fundstelle_Temp = Range("B4:B50").Find("Temperatur [°C]")
If Not fundstelle_Temp Is Nothing Then
fundstelle_Temp.Activate
Anfang_Temp = fundstelle_Temp.Address 'Zelle für Temperatur [°C]
Else
MsgBox "Der Anfangswert konnte nicht ermittelt werden. Makro wird geschlossen!", vbCritical
Exit Sub
End If
Maximum = Application.WorksheetFunction.Max _
(Range(Range(Anfang_Temp).Offset(1, 0), Range(Anfang_Temp).End(xlDown)))
So sieht mein Code gerade aus....