Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren

Forumthread: Zeilen markieren

Zeilen markieren
15.02.2005 13:45:04
Walter
Hallo Experten,
vielleicht ist jemand so nett, mir bei meiner Aufgabe zu helfen:
Ich möchte in einem sehr umfangreichen Excel-Sheet, dass die Zeile, in der sich der Cursor befindet, markiert wird.
Ich habe auch schon eine Hilfe dazu gefunden, nämlich ein Klassenmodul einzufügen - nur funktioniert´s nicht. Folgends habe ich gemacht:
- ALT+F11
- Einfügen eines Klassenmodules beim entsprechenden VBA-Project
- Folgenden Code eingefügt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows(Target.Row).Select
End Sub

Und damit - so meinte ich - sollte das Ding funktionieren, dem war aber nicht so. Ich bitte um kurze Info - DANKE!
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren
Jens
Hi,
Der Code muss ins Modul der Tabelle, in der es passieren soll(Rectsklick aud den Tab der Tabelle, Code anzeigen und dorthin kopieren).
mfg Jens
AW: Zeilen markieren
15.02.2005 13:52:18
Walter
Funktioniert so weit (danke für die prompte AW), aber ich kann nicht in den einzelnen Zellen navigieren, sondern bekommen eben nur die ganze Zeile markiert?
Anzeige
AW: Zeilen markieren
Jens
Hi,
genau das wird mit dem Code ja bewirkt. Ich verstehe nicht ganz?
mfg Jens
AW: Zeilen markieren
Galenzo
tut's das:
Static vorher As Long
If vorher = 0 Then vorher = 1
Rows(vorher).Interior.ColorIndex = xlColorIndexNone
Rows(Target.Row).Interior.ColorIndex = 4
vorher = Target.Row
?
AW: Zeilen markieren
15.02.2005 14:13:57
Walter
Spitzenmäßig - DANKE!
Anzeige
AW: Zeilen markieren
Galenzo
Diese einfache Lösung hat nur eben den nachteil, das alle anderen hintergundfarben dabei verloren gehen
AW: Zeilen markieren
15.02.2005 14:47:05
Walter
Spielt keine große Rolle, wenn ich anstatt einer Hintergrundfarbe die Schriftfarbe ändere, kann ich auch wieder damit leben - danke nochmals
erledigt oT
Kurt
o
Anzeige
AW: Zeilen markieren
15.02.2005 13:48:30
Ralf
Hallo Walter,
ALT+F11 und dann einen Doppelklick auf die Tabelle, in der die Zeile markiert werden soll. Da den Code rein.
Gruß
Ralf
AW: Zeilen markieren
16.02.2005 09:20:40
Wolfgang
Diesen Code ins Tabellenblatt.
Die alte Farbe bleibt dabei erhalten.
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String, MZ As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Test"
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
Set MZ = Target
AlteFarbe = Target.Interior.ColorIndex
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 36
Else
If Range(MarkierteZelle).Interior.ColorIndex = 36 Then
Range(Cells(MZ.Row, 1), Cells(MZ.Row, 256)).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Set MZ = Target
Range(Cells(MZ.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 36
End If
ActiveSheet.Protect "Test"
End Sub

Anzeige
AW: Zeilen markieren
16.02.2005 09:52:23
Walter
DANKE herzlichst, ist auch genial
AW: Zeilen markieren -
geschlossen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige