Intersect - Spalten herausnehmen
12.05.2014 12:25:51
Arthur
Über Intersect finde ich variabel diejenigen Zellen, mit denen weitergearbeitet werden soll - beinahe jedenfalls, denn ein paar Spalten dürfen nicht genutzt werden.
Gibt es eine elegante Möglichkeit aus einem Range bestimmte Spalten herauszunehmen; quasi ein negierendes Intersect? Die Spalten werden dynamisch ermittelt, weswegen keine 'harte' Programmierung erfolgen kann.
Beispiel: Ein einem Arbeitsblatt soll die Schnittmenge der Zeilen 20:30 mit Spalten B:G+X:Z ausgewählt werden. Aus dieser Auswahl muss bspw. Spalte E entfernt werden.
Sub intsec()
Dim oRng As Range
' ist
Set oRng = Intersect(Range("20:30"), Range("B:G,L:O"))
oRng.Select
' zum Vergleich
Set oRng = Intersect(Range("20:30"), Range("B:D,F:G,L:O"))
oRng.Select
' gesucht, so etwas wie ...
'Set oRng = Intersect(Range("20:30"), Range("B:G,L:O"), not(Range("E:E"))
'oRng.Select
End Sub
Danke für die Ideen.
Gruß, Arthur