Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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?
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
?
Anzeige
AW: Zeilen markieren
15.02.2005 14:13:57
Walter
Spitzenmäßig - DANKE!
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige