Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Union-Methode als Abzug

Union-Methode als Abzug
30.11.2007 14:37:00
Oliver
Hallo zusammen,
gibt es eine Funktion, die einen Bereich als Abzugsbereich wiedergibt?
Union mach ja folgendes:
set Range1 = Union(Range("A1:A3"),Range("A4:A5"))
'Range1.address = "$A$1:$A$5"
Jetzt möchte ich aber folgendes machen
set Range1 = Abzugsfunktion(Range("A1:A5"),Range("A4:A5"))
'Range1.Address = "$A$1:$A$3"
Ein Drumherum habe ich mir schon gebastelt! :-)
Gruß,
Oliver.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Union-Methode als Abzug
30.11.2007 16:04:43
Gerd
Hi,
siehe Resize.
mfg Gerd

AW: Union-Methode als Abzug
30.11.2007 17:22:39
Erich
Hallo Oliver,
aus dem, was Bernd da im Online Excel Forum geschrieben hat, kann man noch etwas kürzer
die von dir vermutlich benötigte Funktion basteln:

Function RangeDiff(r1 As Range, r2 As Range) As Range
Dim r As Range, rdiff As Range
Set rdiff = Nothing
For Each r In r1
If Intersect(r, r2) Is Nothing Then _
If rdiff Is Nothing Then Set rdiff = r Else Set rdiff = Union(rdiff, r)
Next
Set RangeDiff = rdiff
Set rdiff = Nothing
End Function

Grundlage dafür war:
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=5831&h=5806
Bernds Lösung ist nicht die Differenz A minus B zweier Ranges, sondern eher A XOR B,
anders ausgedrückt: Union(A,B) ohne Intersect(A,B),
oder: Range aus allen Zellen, die in genau einer der Ranges A und B enthalten sind (nicht in beiden).
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige