Tabellen vereinigen: VB, Union
26.05.2003 21:12:25
Roger
ich will eigentlich nur alle Zeilen aus zwei Tabellen zusammenfügen und das ganze in eine dritte Tabbelle einfügen.
Wie kann ich mit VB nur die ausgefüllten Zeilen auswählen, dann zusammefügen?
Ich habe mir das ganze etwa so gedacht:
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("sheet1").Activate
Set r1 = Range("A1:T30")
Worksheets("sheet2").Activate
Set r2 = Range("A1:T30")
Set myMultiAreaRange = Union(r1, r2)
Nur leider erscheint der Fehler:
Laufzeitfehler '1004'
Die Methode 'Union' für das Objekt '_Global' ist fehlgeschlagen
Wenn ich jedoch Application vor Union schreibe funktionierts auch nicht.
Kann mir da jemand behilflich sein?
Ich danke im voraus..
M.f.G Roger