If Not Selection.Copy Then ???

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

...ist, Karsten,
ist es natürlich etwas schwierig, das einzuordnen und dann die richtige Wahl zu treffen... ;-)
Deshalb hier mal nur ein Versuch...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AltZiel As Range
If Not AltZiel Is Nothing Then
Target.WrapText = Not AltZiel.WrapText
Else: Target.WrapText = True
End If
If Target.WrapText Then Set AltZiel = Target
End Sub

Jetzt sollte Folgendes passieren...
Wenn du das 1.Mal auf dem Blatt eine Zelle auswählst, wird diese im Kopiermodus angezeigt. Wählst du die nächste aus, wird diese nicht im Kopiermodus angezeigt, weil die andere noch im Kopiermodus angezeigt wird. Das bleibt auch bei jeder weiteren Zelle so, denn ich gehe davon aus, dass dann ggf hierhin kopiert wdn soll. Erst, wenn du die neue Zelle kopierst, wird der Kopiermodus umgeschaltet. Du musst sie dann wohl ein 2.Mal auswählen, wenn diese jetzt als AltZiel dienen soll...
Naja, irgendwie kommt mir das alles doch recht merkwürdig vor; sehe keinen rechten Sinn darin. Wahrscheinlich brauchst du was ganz Anderes! Was ist denn, wenn du dich schon auf einen bestimmten Lösungsweg für dein eigentl Problem versteift hast, hier jetzt nach Lösungsdetails fragst ohne das eigentl Problem zu nennen (oder gar zu kennen - glaub mir, das ist nicht gerade selten, ganze Coaching-Firmen leb[t]en davon!) — du bekommst, wenn überhpt, Details gelöst, die letztendlich doch nur zu einer suboptimalen oder keiner echten Gesamtlösung führen!
Wenn du wirklich feststellen willst, ob kopiert wurde, wirst du wohl den Inhalt der Zwischenablage mit AltZiel vgl müssen oder in 1er Change-EventProc 'ne Bool'sche Globalvariable True setzen müssen...
Trotzdem viel Erfolg, was immer du auch vor haben zu müssen glaubst... ;-)
Gruß Luc :-?

Hallo Luc:-?,
Danke. Aber irgendetwas stimmt da nicht.

Wenn du das 1.Mal auf dem Blatt eine Zelle auswählst, wird diese im Kopiermodus angezeigt.

...macht sie nicht. Nun ist es zugegebenermaßen so, dass die Vorgänge im Code mit meinen Horizont übersteigen, deshalb frage ich mal:
Was bedeutet Static?
Bedeutet If Not AltZiel Is Nothing Then, dass, wenn ich mich auf der alten Zelle befinde, es mit Target.WrapText = Not AltZiel.WrapText weitergeht? Aber, wenn ich mich auf der alten Zelle befinde, gibt es doch kein SelectionChange und damit kein Makrodurchlauf.
Da ich glaube, dass du noch nicht weißt, was ich vorhabe, stelle ich die Frage noch mal etwas anders:
Wenn ich etwas kopiert habe (also es in der Zwischenablage und noch nicht eingefügt ist), und ich z.B. Format Zellen formatieren anwähle, dann löscht sich mit diesem Klick die Zwischenablage. Excel ist nun mal so konzipiert. Dasselbe passiert im Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.WrapText = True
End Sub
Wenn ich etwas kopiert habe (also es in der Zwischenablage und noch nicht eingefügt ist), soll Target.WrapText = True übersprungen werden, um den exceleigenen Alzheimereffekt zu übergehen. Mein Code war da offensichtlich nicht geeignet. Mit deiner Möglichkeit komme ich bis jetzt auch nicht weiter.
Gruß
Karsten

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub Else 'wird nur ausgeführt, wenn der Kopiermodus inaktiv ist Target.WrapText = True End If End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If Not Selection.Copy Then ???

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread