Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hervorheben einer Zelle, wenn "Cursor" in Zeile

Hervorheben einer Zelle, wenn "Cursor" in Zeile
28.11.2006 10:13:51
Christian
Hallo,
Betreff verstanden? ;-))
Ich möchte gerne stets die Zelle der Spalte B hervorheben (z.B. Hintergrundfarbe orange) und zwar in der Zeile in der sich gerade die aktivierte Zelle befindet.
Also, wenn die die aktivierte Zelle in Zeile 28 ist, soll B28 hervorgehoben sein und die Hervorhebung soll verschwinden, wenn ich aus der Zeile wieder verschwinde.
Leider fehlt mir der Durchblick, wie ich das angehen soll.
Welches Ereignis wird beim Zellenwechsel ausgelöst?
Wie frage ich die aktuelle Position ab?
MfG
Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
meine Lösung ist zu langsam...
28.11.2006 10:28:06
Christian
Bin selbst drauf gekommen, war ja nicht schwer, allerdings ist diese Lösung sehr langsam. Gehts schneller?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("B:B").Interior.ColorIndex = xlNone
Cells(ActiveCell.Row, 2).Interior.ColorIndex = 40
End Sub

MfG
Christian
AW: meine Lösung ist zu langsam...
28.11.2006 10:40:43
UweD
Hallo
so ginge es auch, ist aber auch nicht schneller?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("B:B").Interior.ColorIndex = xlNone
Cells(Target.Row, 2).Interior.ColorIndex = 40
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: meine Lösung ist zu langsam...
28.11.2006 10:44:11
Christian
Stimmt, aber so ists NOCH langsamer: ;-)
Public zeile As Integer

Sub hervor()
Cells(zeile, 2).Interior.ColorIndex = 0
zeile = ActiveCell.Row
Application.ScreenUpdating = False
Cells(zeile, 2).Interior.ColorIndex = 40
End Sub

AW: meine Lösung ist zu langsam...
28.11.2006 10:42:09
EtoPHG
Hallo Christian,
Kannst Du mir sagen was Du unter sehr langsam verstehst ?
Probiers mal so:

Public dLastRow As Double
Public iLastColor As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (dLastRow = 0) Then
ActiveSheet.Cells(dLastRow, 2).Interior.ColorIndex = iLastColor
End If
dLastRow = ActiveCell.Row
iLastColor = ActiveSheet.Cells(ActiveCell.Row, 2).Interior.ColorIndex
ActiveSheet.Cells(ActiveCell.Row, 2).Interior.ColorIndex = 40
End Sub

Gruss Hansueli
Anzeige
AW: meine Lösung ist zu langsam...
28.11.2006 23:29:13
Daniel.EisertPrivate
Hallo
probier mal folgendes:
diesen Code beim Sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Names.Add Name:="ZE", RefersTo:="=" & Target.Row
End Sub

und in der Bedingten Formatierung für die Spalte B dann folgende Formel:
=Zeile(B1)=Ze
Hintergrundfarbe, Schriftfarbe oder Linien als markierung kannst du dir dann beliebig aussuchen.
Falls Bestimmte Zellen in Spalte B schon irgend eine feste Hintergrundfarbe haben, wird diese nicht dauerhaft gelöscht, sondern bleibt erhalten.
Gruß, Daniel
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Anzeige

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
8
16
6
3
2
4
7
2
8
4
3
13
5
1
11
11
10
4
2
5
5
5
4
8
2