Autofilterauswahl in anderer Zelle eintragen
17.08.2013 15:48:48
Dietmar
mit folgendem Code hier aus dem Forum erreiche ich es, dass der mit dem Autofilter in Spalte B eingestellte Eintrag in die Zelle B7 eingetragen wird. Die Autofilterzeile beginnt erst in Zeile 10.
Das klappt prima. Jetzt möchte ich diesen Code gerne ausbauen.
Frage:
Wie erreiche ich, dass ZUSÄTZLICH der sich aus der Autofilterung ergebende 1. Wert aus Spalte C in Zelle C7 eingetragen wird? Mit And habe ich es erfolglos versucht.
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With ActiveSheet
If .AutoFilterMode Then
If .AutoFilter.Filters(2).On Then Range("B7") = Mid(.AutoFilter.Filters(2). _
Criteria1, 2)
Else
End If
End With
Application.EnableEvents = True
End Sub
Gruß Dietmar aus Aachen