Auswahl bie Autofilter und mehr als 65536 zeilen
12.05.2014 13:42:45
yummi
ich habe folgendes Problem:
Ich habe ein oder mehrere Sheets gefüllt mit bis zu 1048576 zeilen. Nach Einstellen des Autofilter will ich die sichtbaren Zeilen markieren um mit diesen dann später weiter arbeiten zu können. Für die Version unter 65536 zeilen funktioniert es:
' Bereich der sichtbaren Zellen ohne Überschriftenzeile ermitteln
For Each Current In objWkbZuordnung.Worksheets
If InStr(1, Current.Name, "Ausgabe", vbTextCompare) 0 Then
With Current
If WorksheetFunction.Subtotal(103, .Columns(1)) > 1 Then
With .UsedRange
Set rngFilter = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells( _
xlCellTypeVisible)
End With
For Each rngArea In rngFilter
For lngRow = 1 To rngArea.Rows.Count
.Range("A" & rngArea.Row & ":" & WandleZahlInBuchstaben(ilastcolakt) & _
rngArea.Row).Interior.ColorIndex = 4
.Cells(rngArea.Row, ilastcolakt + 1).Value = "x"
Next lngRow
Next rngArea
End If
End With
End If
Next
Hat jemand eine Idee wie ich hier einen long Wert bekomme?
Vielen Dank
yummi