Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige