Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Markierter Bereich wird vergessen

Markierter Bereich wird vergessen
15.10.2004 10:10:11
Kersten
Hallo noch eine Frage vor dem Wochenende
In dem Nachfolgendenen Code wird die Zeile in der sich der Cursor befindet mit einer Farbe hinterlegt. Wenn die Zeile gewechelt wird die neue Zeile unterlegt die alte Zeile bekommt ihre Urschprüngliche Farbe wieder.
Quasie ein farbliches Liniar.
Das Problem ist, wenn ich nun einen Cellenberiech markiere um ihn zu kopieren, wird der Kopier-Rahmen nach einem Zeilenwechsel vergessen. Die Zwischenablage ist leer und ein Einfügen nicht möglich.
Wie und womit kann ich das Problem lösen.
Danke Gruß Kersten

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Rows(Target.Row).Interior.ColorIndex = 6
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierter Bereich wird vergessen
P@ulchen
Hi Kersten,
tu mal so:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then Exit Sub
    Rows.Interior.ColorIndex = xlColorIndexNone
    Rows(Target.Row).Interior.ColorIndex = 6
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Markierter Bereich wird vergessen
15.10.2004 10:30:02
Kersten
Hab mal so getutet und hat geklappt
Prima Danke
Schönes WE Gruß Kersten
andere Formatierung wird nicht geloescht
Dan
Hallo, hier das selbe, nur eine kleine Veraenderung : die anderen Formatierungen bleiben erhalten, also nur die eine Zeile = xlColorIndexNone (TargetPrev) . Gruss Dan, CZ.
Option Explicit
Private TargetPrev As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut) Then
Exit Sub
End If
If (Not TargetPrev Is Nothing) Then
ActiveSheet.Rows(TargetPrev.Rows(1).Row).Interior.ColorIndex = xlColorIndexNone
End If
Set TargetPrev = Target
ActiveSheet.Rows(Target.Rows(1).Row).Interior.ColorIndex = 6
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige