Office: (Office 2007) Kopieren einer Mehrfachauswahl

Hallo an alle,

ich möchte per VBA eine Mehrfachauswahl in einem Sheet in ein anderes Sheet kopieren, dort an den gleichen Platz wie im Ausgangssheet einfügen.
Letztendlich benötige ich also wohl die Absolutposition der "linken oberen Ecke" der Mehrfachauswahl.

Wie stelle ich das am sinnvollsten an ?

Berti

:)

 

Hallo Berti,

die linke obere Ecke wird dir nichts bringen. Das Kopieren von Mehrfachauswahlen ist meines Wissens nicht möglich. Das heißt, du musst die Bereiche einzeln kopieren. Dazu kannst du in einer Schleife die Selection.Areas-Auflistung verwenden:
Code:

 

Hallo Ingolf,

Danke für die Antwort.

Es geht also nur Stück für Stück.

Ich muss noch mal konkretisieren:

Ich möchte zuerst markieren (einen oder mehrere Bereiche), dann im anderen Sheet die Inhalte einfügen (Werte), dann im Ursprungssheet die Selektion löschen.
Ich habe mit deiner Ursprungsidee etwas gebastelt, aber leider funktioniert es nicht.

Kannst du deine Variante noch etwas aufbohren ?


Berti

 

Hallo Berti,

wenn du in der angehängten Datei die 3 Ziffernblöcke in Tabelle1 markierst und anschließend das Makro startest, werden die 3 Blöcke nach Tabelle2 kopiert und im Ursprungsblatt (Tabelle1) anschließend die Inhalte gelöscht.

Gruß Ingolf

 

Hallo Ingolf,

das klappt sehr schön - schöner wäre noch ein Paste Special "Inhalte einfügen/Werte" - geht das auch ?

Berti

 

Hallo Berti,

klar geht das:
Code:

 

Moin, Berti,

durch Direktzuweisung der Werte und Zuweisung der Bereiche per Resize-Befehl ist ein PasteSepcial überflüssig...

 

Hallo Ingolf,

danke für den Hinweis, jetzt läuft alles wie gewünscht !

@jinxs: leider bin ich wenig firm und kann mit den kurzen Hinweisen bislang wenig anfangen. Kannst du deinen Tip etwas näher erläutern ?


Danke !


Berti

 

Moin, Berit,

dass Copy&Paste überflüssig ist, oder welchen Hinweis möchtest Du erklärt haben? Es ist unnötig, die Zwischenablage zu benutzen:

Code:

Hier werden die einzelnen Bereiche direkt aus Tabelle1 den Bereichen in Tabelle2 zugewiesen, die Zwischenablage wird nicht benutzt, es kommt keinen Meldung, es muss kein Ameisenlaufweg durch Application.CutCopyMode = True ausgeschaltet werden...

 

Hallo Ingolf, hallo jinxs,

jetzt ist mir die Sache schon klarer.

Über das Resize muss ich noch brüten..

Aber noch zwei aus obigem Problem resultierende weitere Probleme:

1) kann ich auf einfachem Wege aus den selektierten Areas nur Werte kopieren, welche kein Leerzeichen sind ?
Hintergrund: wenn im Zielbereich schon Werte vorhanden sind, würden diese überschrieben. Ich möchte aber nur leere Zellen überschreiben, schon gefüllte sollen so bleiben.

Edit: habe dieses Problem mit skipblanks:= True gelöst !

2) nach erfolgtem Kopieren (noch in der laufenden Prozedur) sieht der User das Ergebnis seines Kopiervorgangs (eine Pivot-Tabelle wurde aktualisiert).
Kann der User, falls ihn das Ergebnis nicht befriedigt, den Kopiervorgang auf einfachem Wege rückgängig machen ?

Berti

 

Moin, Berti_S,

bei per VBA druchgeführten Aktionen gibt es keine Funktion Rückgängig (außer Application.Undo - und die müsste AFAIR sofort aufgerufen werden) - außer Du programmierst Dir eines (also die Werte vor Änderung speichern und nach Änderung zurückführen).

Stichwort wäre History - je nach der Menge der durchgeführten Änderungen entweder über Arbeitsmappen-History erstellen oder Zelleingaben in nicht sichtbarem Blatt protokollieren oder durch das Anlegen einer Textdatei mit Blattnamen, Zellangabe, Alter und Neuer Wert, Datum und Uhrzeit Änderung, Beutzername des Ändernden...

 

Hallo jinxs,

schade, schade...

Da werde ich mir also etwas basteln müssen.

Danke für die Info.


Berti