Office: Mit VBA Range kopieren und an bestimmter Stelle einfügen

Hallo Leute,

ich versuche gerade ein Makro zu schreiben, um einen Bereich aus einer Datei zu kopieren und diesen an einer bestimmten Stelle im gleichen Blatt einzufügen. Da diese Stelle vom User bestimmt werden muss, habe ich das ganze mit einer Abfrage versehen, die die Zielzelle abfragt. Leider weiß ich nicht wie ich den kopierten Bereich an der vorher abgefragten Stelle einfügen kann.

Hier mein Code soweit:
Code:

Der letzte Schritt liefert folgendeFehlermeldung:

Laufzeitfehler '1004':
Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen.

Ich bin mir auch nicht sicher, ob es sinnvoll ist, den kopierten Bereich in der Zwischenablage zu lassen oder lieber in einer Variablen zu speichern. Allerdings weiß ich auch da nicht, wie genau die Syntax lauten müsste.

Optimalerweise sollen dann einzelne Zellen geleert werden (funktioniert mit dem Befehl clear soweit ganz gut) und diese leeren Zellen dann farbig unterlegt werden, damit sie besser sichtbar sind, vermutlich mit bedingter Formatierung? Habe ich in VBA noch nicht geschafft.

Da ich noch neu auf dem Gebiet VBA bin, freue ich mich über jede Hilfe. Vielen Dank schonmal!

:)

 

Hallo,

bezüglich des Kopierens versuche es mal damit:
Code:

Gruß
Aloys

 

Vielen Dank für die schnelle Antwort, der Code hat genau das gemacht, was ich gebraucht habe. Die farbige Unterlegung mache ich über die bedingte Formatierung des Bereichs, das sollte klappen.

Vielen Dank!

 

Hallo,

bei der Überarbeitung hat sich doch noch eine Frage ergeben:

Es ist doch besser, die Daten ganz normal und nicht nur als Werte einzufügen. Leider funktioniert in obigem Code

Code:

nicht einfach so. Gibt es andere Vorschläge?

Vielen Dank.

EDIT: Habe es bereits gefunden:

Code:

 

Hallo Leute,

ich habe versucht die bedingte Formatierung in VBA zu programmieren, aber so richtig klappt das leider nicht.

ZIEL des Makros:

Es soll eine Zeile ausgewählt werden und mittels Abfrage in eine vom User ausgewählte Zelle kopiert werden. Anschließend sollen bestimmte Zellen innerhalb dieser kopierten Zeile gelöscht werden und automatisch farbig markiert werden, da leer. Sobald ein Wert in diese Zellen eingetragen wird, sollen diese keine Hintergrundfarbe haben.


Ich kann leider die bedingte Formatierung von Excel nicht nutzen, da die Daten zeilenweise eingetragen werden und die bedingte Formatierung für die zuletzt eingefügte Zeile gelten soll, nicht aber für den ganzen Bereich danach, der ebenfalls leer ist. Allerdings möchte ich den Bereich der Formatierung eben nicht jedesmal nach unten anpassen müssen.

Bisher habe ich folgendes:

Code:

Dieses Makro funktioniert einigermaßen, allerdings stört mich die Funktion Istleer(D17), da ich keine bestimmte Zelle als Kriterium angeben möchte, sondern einfach alle leeren Zellen der aktiven Zeile einfärben möchte (sowas wie "ActiveCell.Range("a1:z1").

Alternativ habe ich eine If Funktion verwendet, die so ausschaut:

Code:

Diese If Funktion lässt die Zelle allerdings eingefärbt, auch wenn nachträglich etwas eingetragen wird.

Ich hoffe, ihr versteht mein Problem und könnt mir helfen.

Vielen Dank