Mit gefiltertem Wert im Makro arbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Makro1() Dim i As Integer, ii As Integer, ArrValue With Sheets("Tabelle1") If .FilterMode Then With .AutoFilter For i = 1 To .Filters.Count 'Anzahl Felder If .Filters(i).On Then 'Feld gefiltert? With .Filters(i) Select Case .Operator Case xlFilterValues 'Einzelwerte ArrValue = .Criteria1 'Rückgabe Array For ii = Lbound(ArrValue) To Ubound(ArrValue) Debug.Print ArrValue(ii) Next ii Case xlAnd, xlOr 'Und, Oder Debug.Print .Operator Debug.Print .Criteria1 Debug.Print .Criteria2 End Select End With End If Next i End With End If End With End Sub

Dim Kriterium As String 'diese zeile ganz ober ausserhalb der Subs Selection.AutoFilter Field:=1, Criteria1:="Meier", Operator:= xlAnd Kriterium = ActiveSheet.AutoFilter.Filters(1).Criteria1 ' liest das Criteria1 aus MsgBox Right(Kriterium, Len(Kriterium) - 1) ' MsgBox gibt Meier wieder

Option Explicit Dim Kriterium As String 'das ausserhalb damit fuers 2. Makro verfuegbar Sub Filtersetzen() Range("A1:B5").AutoFilter Field:=1, Criteria1:="Meier", Operator:=xlAnd Kriterium = ActiveSheet.AutoFilter.Filters(1).Criteria1 ' liest das Kriterium aus End Sub Sub KriteriumZeigen() MsgBox Right(Kriterium, Len(Kriterium) - 1) ' MsgBox gibt Meier wieder End Sub

Sub Wert_suchen() With Sheets("Tabelle1") If .FilterMode Then If .AutoFilter.Filters(1).On Then MsgBox .AutoFilter.Filters(1).Criteria1 End If End If End With Sheets("Tabelle2").Activate Cells.Find(What:=?, After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate End Sub

Sub Wert_suchen() Dim sFilterValue As String, rngFind As Range With Sheets("Tabelle1") If .FilterMode Then If .AutoFilter.Filters(1).On Then sFilterValue = .AutoFilter.Filters(1).Criteria1 sFilterValue = Mid$(sFilterValue, 2, Len(sFilterValue)) Set rngFind = Sheets("Tabelle2").Cells.Find( _ What:=sFilterValue, LookIn:=xlValues _ , LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False) End If End If End With If Not rngFind Is Nothing Then Application.Goto rngFind Else MsgBox "'" & sFilterValue & "' wurde nicht gefunden!" End If End Sub

Hallo Michael,
meine Version deckt auch die Filterauswahlmöglichhkeiten "enthält", "beginnt mit", "endet mit" ab.
Gruß
Franz

Sub Wert_suchen()
Dim Kriterium As String, Fundstelle As Range
With Sheets("Tabelle1")
If .FilterMode Then
If .AutoFilter.Filters(1).On Then
Kriterium = .AutoFilter.Filters(1).Criteria1
End If
End If
End With
If Left(Kriterium, 2) = "" Then
MsgBox "Kriterium """ & Kriterium & """ kann nicht gesucht werden!"
Else
If Left(Kriterium, 1) = "=" Then
Kriterium = Mid(Kriterium, 2)
End If
With Sheets("Tabelle2")
Set Fundstelle = .Cells.Find(What:=Kriterium, _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Fundstelle Is Nothing Then
MsgBox "Kriterium """ & Kriterium & """ nicht gefunden"
Else
.Activate
Fundstelle.Activate
End If
End With
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Mit gefiltertem Wert im Makro arbeiten

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit gefiltertem Wert im Makro arbeiten

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread