AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 18:18:55
Ulrich
Hallo Daniel!
Das verstehe ich nun überhaupt nicht:
In A2 und A3 stehen die Spalten-Nummern. Trage ich in A2 und A3 die Spalten-Nr. 3 ein, funktionieren beide Makros.
Trage ich in A2 und A3 die Spalten-Nr. 4 ein, funktioniert nur Min.
Max gibt Fehlermeldung in der letzten Zeile "Bereich.Find ...".
Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt"
Sub suchen_Max_Click()
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A2").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
Bereich.Find(WorksheetFunction.Max(Bereich)).Select
End With
End Sub
Sub suchen_Min_Click()
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A3").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
Bereich.Find(WorksheetFunction.Min(Bereich)).Select
End With
End Sub
mfg Ulrich