Range- Grössenbeschränkung?
11.08.2004 12:53:52
wolfi
Ich hab das Problem das beim kopieren im Excel immer die ausgeblendeten Zeilen mitkopiert werden. Hab also ein AddIn geschrieben, mit dem die Markierung auf die sichtbaren Zeilen reduziert wird. Allerdings funkitioniert das nur bis 44 Zellen!
Wer kann mir helfen?
Dank, Wolfi
Sub Selector()
Dim newsel As String
Dim Zelle As Range
'Alle markierten Zellen überprüfen
For Each Zelle In Selection
If Zelle.RowHeight <> 0 Then
'Adresse der nicht versteckten Zeile hinzufügen
newsel = newsel & Zelle.Address & ","
End If
Next Zelle
'nicht versteckte Zeilen markieren
MsgBox (Right(newsel, 10))
Range(Left(newsel, Len(newsel) - 1)).Select
End Sub