AW: Untersten Eintrag nach Filterung bestimmen
20.08.2006 17:22:54
Frank
Hallo Beate,
nimm mir doch bitte noch das Brett vorm Kopf weg.
Dein Test funktioniert und ich bekomme auch die richtige Zeile angezeigt aber beim Auslesen des Zellinhaltes bekomme ich keinen Wert angezeigt, obwohl einer vorhanden ist. Folgendes habe ich (verkürzt) gemacht:
Private Sub cmb_Werte_einlesen_Click()
Dim Wert As String
Dim r As Integer
Sheets("Leistungstabelle_neu").Select
'Hier wird sortiert um die letze Leistung zu ermitteln
'Die Sortierkriterien müssen noch durch die Variablen ersetzt werden
Selection.AutoFilter Field:=1, Criteria1:="Leistung a"
Selection.AutoFilter Field:=2, Criteria1:="Leistung b"
Selection.AutoFilter Field:=3, Criteria1:="Leistung c"
Selection.AutoFilter Field:=4, Criteria1:="="
Selection.AutoFilter Field:=5, Criteria1:="normal"
Selection.AutoFilter Field:=6, Criteria1:="Leistung d"
Selection.AutoFilter Field:=7, Criteria1:="1 bis 3"
'Jetzt brauche ich nach der Filterung den letzten Eintrag in Spalte H
r = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
MsgBox r
Wert = Cells(r, 8)
MsgBox Wert
End Sub