Supportnet / Forum / Tabellenkalkulation
VBA Autofilter Status abfragen
Frage
Guten Tag,
das hier geschilderte Problem ist stark vereinfacht und macht so nicht unbedingt Sinn, aber im konkreten Anwendungsfall ist dies anders.
Also:
In der Spalte A stehen Namen, in der Spalte B Vornamen. Auf diese beiden Spalten ist der Autofilter gesetzt. In Spalte C1 soll jetzt eine Infomeldung stehen, die Auskunft darüber gibt, in welche Spalte (A oder B oder A und B) Daten gefiltert wurden.
Gruß Dai-Kaio-Shin
Antwort 1 von yps
hi,
probier mal:
Sub testen()
Dim x As String, y As Integer
With ActiveSheet
.Cells(1, 3).ClearContents
If .AutoFilterMode Then
x = .AutoFilter.Range.Address(0, 0)
y = 0
For Each spalte In .AutoFilter.Filters()
If spalte.On Then
.Cells(1, 3) = .Cells(1, 3) & Chr(Asc(Left(x, 1)) + y)
End If
y = y + 1
Next
End If
End With
End Sub
cu Micha
probier mal:
Sub testen()
Dim x As String, y As Integer
With ActiveSheet
.Cells(1, 3).ClearContents
If .AutoFilterMode Then
x = .AutoFilter.Range.Address(0, 0)
y = 0
For Each spalte In .AutoFilter.Filters()
If spalte.On Then
.Cells(1, 3) = .Cells(1, 3) & Chr(Asc(Left(x, 1)) + y)
End If
y = y + 1
Next
End If
End With
End Sub
cu Micha
Antwort 2 von Dai-Kaio-Shin
Danke,
funktioniert, genau, wie ich mir das vorgestellt hab!
Schönes We dann!
funktioniert, genau, wie ich mir das vorgestellt hab!
Schönes We dann!