HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet_SelectionChange bzw. Interior

Worksheet_SelectionChange bzw. Interior
25.05.2008 19:26:57
Benjamin
Hallo zusammen,
ich habe einen kleinen VBA-Schnippsel zusammengebaut, der in einem bestimmten Zellbereich die Zeilen- und Spaltenbeschriftungen farblich füllt. Das klappt auch so, wie ich es mir gewünscht habe.
ABER:
Jetzt funktioniert copy&paste nicht mehr?
Hat jemand dazu eine Idee?
Vielen, Vielen Dank im voraus!
Viele Grüße
Benjamin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column > 20 And ActiveCell.Column  5 And ActiveCell.Row


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Worksheet_SelectionChange bzw. Interior
25.05.2008 19:54:08
Kuwe
Hallo Benjamin,
sobald VBA-Code ausgeführt wird,
ist die Zwischenablage leer.
Ebenso sind dadurch auch keine
Rückgängig-Schritte mehr verfügbar.
Willst Du in Deinem konkreten Fall etwa Kopieren/Einfügen,
musst Du vorübergehend den Entwurfsmodus einschalten.
Gruß Uwe

AW: Worksheet_SelectionChange bzw. Interior
25.05.2008 19:58:00
Reinhard
Hi Benjamin,
probiers mal so, funktionierrt zumindest bei Text in der Zwischenablage:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyData As New DataObject, Merker
MyData.GetFromClipboard
Merker = MyData.GetText(1)
Range("U5:BR5").Interior.ColorIndex = none
Range("E5:E77").Interior.ColorIndex = none
If ActiveCell.Column > 20 And ActiveCell.Column  5 And ActiveCell.Row


Gruß
Reinhard

AW: Worksheet_SelectionChange bzw. Interior
25.05.2008 20:00:28
Johann
Hallo Benjamin!
Du kannst auf jeden Fall noch über die Office-Zwischenablage kopieren und einfügen.
MfG
Johann

AW: Worksheet_SelectionChange bzw. Interior
25.05.2008 20:05:54
Benjamin
Super, vielen Dank für die Lösungen!
Es funktioniert :-)
Schönen Abend!
Benjamin

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!