Zum Verarbeiten von gefilterten Tabellen habe ich den folgenden Code probiert, der auch läuft: pre>
Public Sub test()
Dim objRow As Range
Dim objRange As Range
Dim wksQ As Worksheet
Set wksQ = ActiveWorkbook.Worksheets("PlanStunden")
With wksQ
If .AutoFilterMode Then
If .FilterMode Then
Set objRange = .AutoFilter.Range
Set objRange = .Range(objRange.Rows(2), _
objRange.Rows(objRange.Rows.Count)).SpecialCells(xlCellTypeVisible)
For Each objRow In objRange.Rows
MEIN CODE WAS DANN ZU TUN IST...das sind dann ca. 50 Anweisungen
Next
End If
End If
End With
End Sub
Aber wie bekomme ich die ungefilterten Tabellen rein? Muss ich dann den ganzen Code als Else zum 1. IF wiederholen? Oder gibt es eine andere Methode, die ausgefilterten Zeilen abzufragen? Wenn ich ein Untermakro aufrufe, muss ich viele Parameter übegeben, dass will ich mir sparen...
Ich freue mich auf Hinweise.