Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1664to1668
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Target/Aktive Zelle - hervorheben- Tipps/Anregung

Target/Aktive Zelle - hervorheben- Tipps/Anregung
10.01.2019 20:33:26
STeve
Hi all......möchte die aktive Zelle einfach besser sichtbar hervorheben.
Das Blatt ist in den meisten Bereichen geschützt.
Mehrfachmarkierung/Selection nicht notwendig.
Code sollte natürlich nicht zu belastend sein.
Wer kann mir da seine/n knackigen Code's/Ideen/Tipps zur Verfügung stellen?
Besten Dank und mfg
STeve

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

Betreff
Datum
Anwender
Anzeige
AW: Target/Aktive Zelle - hervorheben- Tipps/Anregung
10.01.2019 23:29:53
onur 

Option Explicit
Public lTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If lTarget Is Nothing Then Set lTarget = Range("A1000")
Target.Interior.ColorIndex = 6
lTarget.Interior.ColorIndex = 0
Set lTarget = Target
End Sub

Danke.....funzt toll und schnell
11.01.2019 05:44:37
STeve
Hallo Onur....Danke klappt bestens.:-)
...wenn ich das Blatt entsperre und dann wieder schütze.
Dir noch einen schönen Tag und mfg
STeve
AW: Danke.....funzt toll und schnell
11.01.2019 17:59:50
Luschi
Hallo STeve,
leider hat die Lösung von Onur den Nachteil, daß der verwendete Datenbereich (UsedRange)
künstlich auf Zeile 1.000 ausgedehnt wird. Hier mein Vorschlag: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
If Not (lTarget Is Nothing) Then
lTarget.Interior.ColorIndex = 0
End If
Set lTarget = Target
End Sub
Das kann man leicht überprüfen mit: MsgBox Target.Parent.UsedRange.Address
Gruß von Luschi
aus klein-Paris
Anzeige

307 Forumthreads zu ähnlichen Themen

Autofilter via VBA wieder auf "ALLE" setzen
Patrick

Hallo Excel-VBA-Gemeinde,
ich habe ein kleines Problem mit Filtern.
Kann man den Filter wieder auf "Alle" setzen via VBA
Ich habe eine ComboBox (Alle, A, B) mit der ich filter
If .ComboBox1.Text = "A" Then
Selection.AutoFilter Field:=1, Criteria1:="A", Operator:=xlAnd
En...
24.10.2008 13:05:00
Thread-ID: 1018976
3 Beiträge
Anzeige
Zellen umrahmen
Franz

Hallo zusammen,
ich möchte per Makro alle Zellen im Bereich A1:Z1000 umrahmen, in denen etwas steht (Formeln alleine wären kein Inhalt).
Ich weiß, dass geht über bedingte Formatierung, aber ich stehe mit dieser Formatierung auf Kriegsfuss, daher möchte ich darauf gerne verzichten.
K...
15.02.2009 14:49:00
Thread-ID: 1050880
4 Beiträge
VBA-Sverweis + Datum, mehr als 1 Zelle
Alex

Hallo Leute,
mit diesem Code führe ich für eine Datei einen Bearbeiternachweis.
Das läuft so, wenn jemand auf dem 1. Tabellenblatt eine Eintragung macht, wird dies auf dem 2. Tabellenblatt mit Name und Datum protokolliert.
Das geht, wenn man nur 1 Zelle beschreibt oder die Eintragun...
02.05.2009 16:43:02
Thread-ID: 1072438
11 Beiträge
Anzeige
VBA - Minimum finden und auf Zelle verweisen
Ines

Hallo,
seit Stunden probiere ich eine Lösung für mein eigentlich simples Problem zu finden, komme aber leider keinen Schritt mehr weiter.
Ich habe eine Tabelle mit Plattenabmessungen (Länge, Breite, Verhältnis von Oberfläche zu Volumen, ...) von Plattenwärmetauschern. Aus der Spalte (Ve...
03.05.2011 16:27:34
Thread-ID: 1212893
3 Beiträge
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
VBA - Zeilenumbruch in Zelle entfernen
Jörg

Hallo Forum,
bei der Übergabe von xlsx an csv wird bei einer mehrzeiligen (Alt+Enter) Zelle ein CR übergeben, der zwischen den Trennzeichen (;) steht und bei der Übergabe an das Walldorf-System einen neuen Datensatz erzwingt.
;;;;;;;;;
"Text2 Z1
Text2Z2";"Text3 Z1
Text3 Z...
20.04.2012 14:25:48
Thread-ID: 1260269
3 Beiträge
VBA: Datum verschieben und in Zelle hinzufügen
Boris

Hallo Forum,
ich habe ein kleines Problem mit einem VBA code und hoffe hier kann mir jemand helfen.
Situation ist folgende:
a) ich habe eine Excel Tabelle mit Aufgaben; das Zieldatum steht in Spalte G.
b) Bei einer Verzögerung soll das Datum in G nach H verschoben werden (um ei...
06.09.2012 12:34:04
Thread-ID: 1277594
6 Beiträge
Probleme beim Setzen von Rahmen Eigensch. in VBA
Rahmen

Hallo Forum,
habe nach einem Umstieg von EXCEL 2003 auf EXCEL 2007 folgendes Problem.
Mehrere Dateien werden hintereinander durchlaufen (durch VBA geöffnet, bearbeitet, formatiert, geschlossen) und in jeder werden unter anderem folgende Befehle ausgeführt (n = Name eines Worksheets im...
14.01.2013 17:52:16
Thread-ID: 1294238
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
10
3
2
2
2
5
1
2
1
1
5
4
12
3
4
3
16
17
1
5
5
3