Office: Aktive Zeile dauerhaft markieren

Möchte wenn ich in eine Zelle gehe, das per Knopfdruck die Zeile von Spalte B bis P dauerhaft markiert wird. Bin ein Newbie und habe einiges gefunden um die Aktuelle Zeile zu markieren, jedoch keine Lösung wie dies dann auch dauerhaft bleibt.
Hier mein Code:

Range("B1074:P1074").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Jedoch möchte ich nun das der Range Bereich flexibel ist und nur die aktuelle Zeile markiert, wo ich gerade bin.

 

möchtest Du alle Zellen mit eimal ausfüllen? Warum markierung?

 

Ja, ich möchte alles Zellen auf einmal ausfüllen mit der Hintergrundfarbe gelb. Die Markierung habe ich gemacht, weil ich es per Makro aufzeichnen aufgenommen habe. Nehme auch gerne eine andere Lösung. Wichtig ist nur der Spalten Bereich und die aktive Zeile, wo ich mich gerade drin befinde.

 

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Range("B" & Target.Row & ":P" & Target.Row).Interior.Color = 65535
End Sub

dann habe ich es falsch interpretiert.

Gruß Hajo

 

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    Cells.Interior.ColorIndex = xlNone
'    Range("B" & Target.Row & ":P" & Target.Row).Interior.Color = 65535
    Range("B" & Target.Row & ":P" & Target.Row).Select
End Sub

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Hallo,

meinst du das so?:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    With Range("B" & Target.Row, "P" & Target.Row).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

 

Bin der Lösung meiner Vorstellung schon näher. Jedoch lässt sich der Befehl nur einmal ausführen. Jedoch soll er öfter ausgeführt werden. Wenn ich in den Entwurfsmodus wieder gehe und deaktiviere ist die Ausfüllung verschwunden. Diese soll jedoch dauerhaft bleiben.
Beim erneuten Ausführen erhalte ich den Fehler: Fehler beim Kompilieren
So habe ich es nun im Code:

Private Sub CommandButton1_Click()
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":P" & Target.Row).Interior.Color = 65535
End Sub

 

in meiner Datei konnte ich es mehrmals ausfgüähren.
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Sorry, habe gar nicht gesehen, dass du noch was geschrieben hast.
Hier mal ein Bild, wie ich es mir vorstelle.

 

Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

Bilder statt Datei | Excel ist sexy!
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm*, Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Bei Download beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

ich bin dann raus, Du hast schon Farben in der Tabelle.
Das ist mir zu aufewndig, diese Farben wieder herzustellen.

Gruß Hajo

 

Habe die Datei hochgeladen. Hoffe es hilft.

 

Ich hatte schon geschriebnen das ich raus bin. Zu Deinem Beitrag

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Kein Problem. Vielen Dank jedoch, dass du dir die mühe gemacht hast und auch so schnell mit den Antworten hast. Durch dich und dein Forum habe ich bisher schon viel gelernt. Danke dir.

 

Hallo,

Im Betreff heißt es "Aktive Zeile dauerhaft markieren" aktiv in diesem Sinne kann aber nur eine Zeile sein!.
Wenn du aus dem Quelltext von mir, diese Zeile, Cells.Interior.ColorIndex = xlNone entfernst, hast du was du möchtest.