Office: Zeile markieren, in der man gerade arbeitet

Hallo zusammen,

ich bin blutiger VBA-Beginner (eher VBA-Taugenichts) und habe direkt zu Anfang richtig Mist gebaut...*rolleyes.gif*
Ich wollte einen Code verwenden, der mir die gesamte Zeile markiert, in der ich gerade eine einzelne Zelle angewählt habe. Im Internet wurde ich auf der Suche nach einem (vermeintlich) passenden Code fündig und baute den folgenden Code in meine Tabelle ein:

Private Sub Workbook_SheetSelectionChange( _
ByVal sh As Object, ByVal Target As Excel.Range)

Static AlteZelle As Range

If Not AlteZelle Is Nothing Then
AlteZelle.EntireRow.Interior.ColorIndex = _
xlColorIndexNone
End If

Target.EntireRow.Interior.ColorIndex = 15
Set AlteZelle = Target
End Sub[/size]

Der Code klappte sehr gut, dachte ich, bis mir irgendwann auffiel, dass alle Zellen, die vorher farbig markiert waren, plötzlich farblos sind.*boah Damit ist die ganze Liste nahezu unbrauchbar und das einige was ich jetzt noch habe ist diese sch... Zeilenmarkierung die meinem Cursor folgt.
Ich kann auch keine Zellen neu einfärben, da das Makro die Färbung anscheinend sofort wieder löscht wenn ich die Zelle abwähle...

Kann mir spontan jemand auf die Sprünge helfen? Gibt es vielleicht einen Fehler in dem Code? Ich habe leider überhaupt gar keine Ahnung von sowas*frown.gif*
Viele Grüße,
Oli

:)

 

schaue hier
Fadenkreuz

 

Und wie soll es deiner Meinung nach laufen?

 

Hallo,

ich verwende dazu einen Code, den ich auf der Seite excelbeispiele.de (Oliver Scheckelhoff) gefunden habe. Beispiel 21: Zeilen werden farblich markiert wenn angewählt.

Dieser Code arbeitet nach meiner Erfahrung sehr zuverlässig, da vor der Markierung alle Zustände gesichert und nach verlassen der Zeile wieder aktiviert werden.

Ich habe ihn bei mir so angepasst, dass er in einer Mappe nur auf verschiedenen Tabellenblätter zum Einsatz kommt und dann anstatt der gesamten Zeile nur einzelne Zellen markiert werden. Ging bei mir mit try und error, da ich nicht der VBA-Experte bin. Hat aber irgenwann wie gewünscht funktioniert.

@xlph - Du wirst vermutlich sofort verstehen, wie der Code funktioniert.

 

Hallo WS-53,

Von Ändern der Zell-Hintergrundfarbe halte ich wenig, da bei Absturz diese
nicht rückgesetzt werden können.

Ich bevorzuge eine Lösung mit Shapes die einen Rahmen um die Markierte Zelle-Zeile ziehen.

Rotmarkierte Blätter enthalten den Marker. Erweiterbar in 'DieseArnbeitsmappe'.

Per Doppelklick in eine Zelle wird der Marker ein- bzw. ausgeblendet.

 

Hallo xlph,

ja dies ist eine Alternative, die mir persönlich sehr gut gefällt. Das mit den Abstürzen kann ich bestätigen, hatte ich aber in kauf genommen.

Nun aber werde ich meine Mappen wohl auf deine Lösung umstellen.

 

Hallo xlph,

das funktioniert ja noch viel genialer, als ich zuerst festgestellt habe. Anstatt der gesamten Zeile wird ja nur der "sichtbare Bereich" umrandet, egal welchen Zoomfaktor ich dabei verwende. Und wenn ich mit dem Cursor nach rechts oder links gehe, wandert die Umrandung automatisch mit.

Besser geht's nicht!!!!!!!!!

 

Hallo XLPH,

hat ne kleine weile gedauert, aber nun habe ich deine, mir sehr gut gefallende, Lösung in eine eigene Mappe übernommen.

Leider sind dann doch noch ein paar Probleme hochgekommen, die mir bei vorherigen testen nicht aufgefallen waren.

In vielen Tabellen sind ja Zeilen und Spalten fixiert, so auch bei mir. wenn ich nun nach der Shape-Aktivierung in eine Zeile komme, die fixiert ist, dann löst dies einen Laufzeitfehler aus. Wenn ich nach links in den fixierten Bereich gehe, passiert zwar nichts, aber der Rahmen legt sich generell nicht um die Zellen der Spalten, die von der Fixierung betroffen sind.

Das Erste Problem könnte ich lösen, indem ich für jede Tabelle definiere, ab welcher Zeile der Rahmen überhaupt erst erscheinen soll. Eleganter wäre hier allerdings, wenn sich dies für jede Tabelle per VBA ermitteln und somit automatisch einstellen ließe.

Ich habe aber keine Idee, was ich machen müsste, damit auch die links von der Fixierung stehenden Zellen umrahmt werden. Aber gerade dass diese auch eingerahmt werden, ist eigentlich besonders wichtig.

Hoffe, du hast auch dafür eine Lösung.

 

\@xlph: Die Variante mit der Umrandung gefällt mir sehr gut, das werde ich demnächst bestimmt einsetzen, statt immer die Zellen zu markieren *Smilie

VG
Santa

 

Hallo!
Nur ergänzend:
Ich nutze ein sehr ähnliches Verfahren (zusätzlich Spaltenmarkierung).
Für die "Mausschubser", die Zellen nicht per Cursortasten, sondern mit der Maus auswählen, habe ich die "Gefahr", durch Anklicken des Shapes in den Bearbeitungsmodus zu wechseln, so gelöst:
Alle Zellen markieren, Zellenformat, Schutz, Schutz entfernen,
Blattschutz gesetzt.

Gruß Ralf

 

Hallo,

siehe Datei.

Lösung: Der Shape einfach ein Makro mit leerem Inhalt zuweisen.

 

Hallo XLph,

ich habe deine neue Version getestet, und kann bestätigen, dass die Zeilenmarkierung nun auch mit Fixierten Zeilen und Spalten hervorragend funktioniert.

 

Hi xlph!
(Auch eine) Smarte Lösung, kommt ins Archiv!

Gruß Ralf

 

Hallo xlph,

habe ja eben erst mitbekommen, dass man die Markierung ganz bequem per Doppelklick ein- und ausblenden kann! *biggrin.gif*

Finde die Lösung richtig gut und durchdacht! Kann leider nicht bewerten, deshalb schreibe ich einfach hier *wink.gif*

Viele Grüße
Santa

 

Kann man die Makierung auch erst ab Zeile 5 Starten lassen? Wenn ja wie geht das?