Nur die sichtbaren Zellen markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit

Sub TransferData()
Dim ThisRow As Long
Dim EndRow As Long
Dim Zelle As Range
Dim Bereich As Range
If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then
Set Bereich = Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
With Bereich
EndRow = .Rows.Count
For ThisRow = 2 To EndRow
For Each Zelle In Bereich
Zelle.Cells(ThisRow).Interior.ColorIndex = 15
Next Zelle
Next ThisRow
End With
End If
End Sub

Sub Reset()
Dim ThisRow As Long
Dim EndRow As Long
Dim Zelle As Range
Dim Bereich As Range
If ActiveSheet.AutoFilterMode Or ActiveSheet.FilterMode Then
Set Bereich = Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
With Bereich
EndRow = .Rows.Count
For ThisRow = 2 To EndRow
For Each Zelle In Bereich
Zelle.Cells(ThisRow).Interior.ColorIndex = 0
Next Zelle
Next ThisRow
End With
End If
End Sub

Option Explicit Sub TransferData() Dim rng As Range Set rng = Range("A8:C" & Cells(Rows.Count, 1).End(xlUp).Row) rng.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 15 End Sub Sub Reset() Columns("A:C").Interior.ColorIndex = 0 End Sub

Option Explicit Sub TransferData() With ActiveSheet If .AutoFilterMode Then If .FilterMode Then .AutoFilter.Range.Interior.ColorIndex = 15 End If End If End With End Sub Sub Reset() If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.Range.Interior.ColorIndex = 0 End If End Sub

Option Explicit Sub TransferData() If check_Filter = 2 Then myRange.Interior.ColorIndex = 15 End Sub Sub Reset() If check_Filter > 0 Then myRange.Interior.ColorIndex = 0 End Sub Function myRange() As Range With ActiveSheet Set myRange = .AutoFilter.Range.Resize(.AutoFilter.Range.Rows.Count - 1).Offset(1) End With End Function Sub dein_Inhalt() Dim rngCell As Range If check_Filter = 2 Then For Each rngCell In myRange.SpecialCells(xlCellTypeVisible) MsgBox rngCell.Address(0, 0) & " mit Inhalt: " & rngCell.Value Next Else MsgBox "kein Filter gesetzt" End If End Sub Function check_Filter() As Byte With ActiveSheet If .AutoFilterMode Then check_Filter = 1 'zumindest Autofilter ist aktiv If .FilterMode Then check_Filter = 2 'und Filter gesetzt End If End If End With End Function

Private Sub cmd_rows_Click() Dim rng_Row As Range For Each rng_Row In myRange.SpecialCells(xlCellTypeVisible).Rows.Areas i = i + rng_Row.SpecialCells(xlCellTypeVisible).Rows.Count Next MsgBox i & " Filterzeilen" End Sub

Beliebteste Forumthreads (12 Monate)

Nur die sichtbaren Zellen markieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur die sichtbaren Zellen markieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

37 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread