Zeile markieren

Forumthread: Zeile markieren

Zeile markieren

26.08.2020 13:18:13

Jan


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 35
End Sub

Habe diesen Code in meine Excel Datei eingefügt. Nun lässt es sich nicht mehr speichern. Nur solange keine Zeile aktiv ist und nix markiert ist. Bekomme nur leider nie die Zeile wieder deaktiviert.

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile markieren

26.08.2020 13:20:56

Hajo_Zi
AW: Zeile markieren

26.08.2020 13:35:48

Jan
AW: Zeile markieren

26.08.2020 14:39:25

peterk
AW: Zeile markieren

26.08.2020 14:48:07

Jan
AW: Zeile markieren

26.08.2020 14:50:49

peterk
AW: Zeile markieren

26.08.2020 15:03:07

Jan
AW: Zeile markieren

26.08.2020 15:14:20

peterk
AW: Zeile markieren

26.08.2020 15:22:29

peterk
AW: Zeile markieren

26.08.2020 15:38:30

Jan

AW: Zeile markieren

26.08.2020 13:20:56

Hajo_Zi

meine Datei läst sich speichern.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
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.

AW: Zeile markieren

26.08.2020 13:35:48

Jan

https://www.herber.de/bbs/user/139848.zip
Hier ist meine Probedatei. Wenn man jetzt auf eine Zeile drückt wird diese markiert, aber dann lässt es sich nicht mehr speichern.

AW: Zeile markieren

26.08.2020 14:39:25

peterk

Hallo Jan
Hängt alles an "Cells.Interior...".
Meine Lösung: Schreib die aktuelle Zeile in eine unbenutzte Zelle (in meinem Beispiel A1)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Row
End Sub

Verwende Bedingte Formatierung:


Formel: =ZEILE()=$A$1
Wird angewendet auf: =$A:$Z

Als "Fadenkreuz"


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Row
Range("A2") = Target.Column
End Sub

Bedingte Formatierung:


Formel: =ZEILE()=$A$1
Wird angewendet auf: =$A:$Z
Formel: =SPALTE()=$A$2
Wird angewendet auf: =$1:$10000

AW: Zeile markieren

26.08.2020 14:48:07

Jan

Welche Bedingte Formatierung meinst du?

AW: Zeile markieren

26.08.2020 14:50:49

peterk

Hallo Jan
Du hast in Deinem Arbeistblatt "Werkzeuge" schon unzählige Bedingte Formatierungen. Füg diese beiden Regeln einfach hinzu.
Peter

AW: Zeile markieren

26.08.2020 15:03:07

Jan

Ja, aber irgendwas klappt nicht so ganz

AW: Zeile markieren

26.08.2020 15:14:20

peterk

Hallo Jan
Hier Deine Datei zurück
https://www.herber.de/bbs/user/139849.xlsm
Ich hab alle Daten gelöscht. Fadenkreuz und restliche Bedingten Formatierungen sind noch vorhanden.
Peter

AW: Zeile markieren

26.08.2020 15:22:29

peterk

Hallo Jan
Falls Du "Ctrl-Z" bzw. Rückgängig machen in Deinem Blatt Werkzeuge erhalten willst, darf das Makro NICHT in diese Blatt schreiben. Anbei ein Version wo Zeile und Spalte in ein anderes Arbeitsblatt ("Dummy", kannst Du ausblenden) geschrieben werden somit bleiben Redo/Undo im Blatt Werkzeuge erhalten.
https://www.herber.de/bbs/user/139850.xlsm
Peter

AW: Zeile markieren

26.08.2020 15:38:30

Jan

Danke, hat geklappt. Sorry dass ich so auf dem Schlauch stand es zu verstehen

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeile markieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread