Office: mehrere nicht zusammenhängende Zellen markieren

Hallo zusammen,

ich hab wieder mal eine Frage an euch.

Wir kann ich mehrere nicht zusammenhängende Zellen gleichzeitig markieren/kopieren.

Hätte schon einiges über Range(.Cells(lngZeile, 1), . Cells()...) versucht aber leider erfolglos.

auch mein letzter versuch mit Union blieb ohne Erfolg *frown.gif*

Code:

Könnt ihr mir bitte sagen wie es richtig gehört?

LG
Katrin

:)

 

Code:

 

Hi Kathrin,

lösche alle Range( und am Ende eine Klammer )

Code:

Mit Cells(...) sprichst du ja bereits einzelne Zellen an.

 

Genial. Es klappt *Smilie
Vielen vielen Dank!!! *Smilie

Ohne das Forum wär ich schon längst verzweifelt.
Eigentlich würde ich gerne mal Kuchen backen für euch *Smilie
Mein Schuldenkonto ist ja schon am Platzen *Smilie

LG
Katrin

 

... ich habe mehrere, nicht zusammenhängende Zellen eines Sheets markiert.
Danach habe ich die jeweiligen Adressen in einem Array gespeichert.
Durch verschiedene Aktionen im Laufe der Codeverarbeitung sind die Markierungen aufgehoben worden.
Zum Ende des Codes möchte ich die Zellenmarkierungen wiederherstellen.
Wie stelle ich das an? Ich weiß zu Beginn nicht, wie viele Zellen markiert sind.

Herzlichen Dank für Eure Hilfe,
Gruß
Dirk

 

Hi Dirk,

und wie sieht dein bisheriger Code für das Array aus?

 

Hallo Karin,

so:
Code:

Gruß
Dirk

 

Hi Dirk,

du müsstest dann in einer Schleife über alle Arrayinhalte laufen und sie zu einem gemeinsamen Bereich zusammensetzen:

Code:

Frage: weshalb trägst du die Zelladressen in ein Array ein? Benutzt du die Zelladressen einzeln in deinem weiteren, hier nur als ... dargestellten Code? Oder was machst du damit?

 

Na, das ist ja genial einfach... wobei die Betonung auf GENIAL liegt.
Dankeschön!

Ja, die markierten Zellen sollen für weitere, aber vom definierten Array unabhängige Operationen genutzt werden.
... und auch dazu dienen, die ursprünglich markierten Zellen einfacher wiederzufinden.

Herzlichen Dank!

 

Hi Dirk,

naja - benötigst du die Zelladressen als solche oder die einzelnen Bereiche? Wenn es um die Bereiche geht, dann musst du sie nicht in ein Array schreiben, sondern kannst sie zu einen großen Bereich zusammenfassen und über Bereich.Areas(xx) auf diese Bereiche zugreifen - also nach diesem Prinzip:

Code:

 

Ich benötige die Adressen.
Dein Lösungsvorschlag hat aber natürlich auch etwas für sich ... da werde ich nochmal überlegen.

Vielen Dank!*Smilie

 

Hallo zusammen,

dieses Thread hat mir jetzt schon sehr weiter geholfen. *Smilie

Sub Kopiere()

Union(Range("Bereich1"), _
Range("Bereich2"), _
Range("Bereich3")).Copy

End Sub

Diese Bereiche möchte ich nun in eine andere Datei kopieren.
Leider kommt beim ausführen des unteren Bereichs "Laufzeitfehler 1004: "Diese Aktion funktioniert nicht bei einer Mehrfachauswahl
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Liegt an dieser Zeile. Allerdings möchte ich, dass nur die Werte und absolut nichts anderes eingefügt wird.

Sub Wartung_einfügen()

Union(Range("Bereich1"), _
Range("Bereich2"), _
Range("Bereich3")).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Vielen Dank schonmal! *wink.gif*

 

Hi,

In diesem Fall musst du jeden Bereich einzeln behandeln.

 

Frage: weshalb trägst du die Zelladressen in ein Array ein? Benutzt du die Zelladressen einzeln in deinem weiteren, hier nur als ... dargestellten Code? Oder was machst du damit?

 

Hi,

meinst du so etwas:

Code: