Range object benutzen?
17.11.2005 08:54:33
Maike
Ich habe anscheinend so einige Probleme damit, zu verstehen, wie das mit den Range Objekten funkioniert. Ich habe r_myRange als Range definiert. Wenn ich dem aber einen Bereich, bzw. nur eine Adresse aus einem Bereich zuordnen will, weigert er sich vehement. Ich verstehe es einfach nicht.
Kann mich vielleicht mal jemand aufklären was ich daran falsch mache?
Sub Propellerkurve()
Dim i_P_max As Integer
Dim r_myRange As Range
Sheets("Höchstwerte").Activate
v_untergr_Auswahl = Sheets("Höchstwerte").Range("A65536").End(xlUp).Row
' in Spalte D werden die Werte für Leistung berechnet
' Formel hierfür: Drehzahl * Drehmoment incl. Einheitenumrechnung
ActiveSheet.Range("D2").FormulaR1C1 = "= RC[-3]/60 * RC[-2] * 6.28/1000"
ActiveSheet.Range("D2").AutoFill Destination:=Range("D2:D" & v_untergr_Auswahl), _
Type:=xlFillDefault
v_Maximum = WorksheetFunction.Max(Range("D2:D" & v_untergr_Auswahl))
Debug.Print v_Maximum
Set r_myRange = ActiveSheet.Range("D2:D" & v_untergr_Auswahl).Find _
(v_Maximum)
Debug.Print r_myRange.Address
i_P_max = r_myRange.Value
Ich versuche die Adresse für den maximalwert in Spalte D zu bekommen, weil ich über diese Adresse später auch noch auf benachbarte Spalten zugreifen möchte.
Dankbar für jede Hilfe
Gruß Maike