Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_SelectionChange auf Befehl

Worksheet_SelectionChange auf Befehl
Markus
Hallo,
das untenstehende Makro funktioniert tadellos und hinterlegt die aktive Zeile blau.
Mein Frage:
kann ich mittels eines Befehls ( z.B. mit einem eingebauten Menüpunkt) diesen Befehl nach dem öffnen des Sheets deaktivieren oder wieder reaktivieren.
( es gibt Anwender, die finden dieses Makro super, die anderen Anwender finden dieses Makro totalen "Mist").
Danke für einen Tipp.
Markus
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Alle Farben in Tabelle löschen
Cells.Interior.ColorIndex = xlNone
' neue Zeile einfärben
Rows(Target.Row).Interior.ColorIndex = 33
End Sub

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

Betreff
Benutzer
Anzeige
AW: Worksheet_SelectionChange auf Befehl
10.11.2010 10:46:02
Rudi
Hallo,
setze eine Checkbox auf das Blatt. 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If CheckBox1 Then
' Alle Farben in Tabelle löschen
Cells.Interior.ColorIndex = xlNone
' neue Zeile einfärben
Target.EntireRow.Interior.ColorIndex = 33
End If
End Sub

Gruß
Rudi
AW: Worksheet_SelectionChange auf Befehl
10.11.2010 11:14:24
hary
Hallo Markus
dieser Code in den Code der Arbeitsmappe 

Private Sub Workbook_Open()
If MsgBox("Farbe ja/nein", vbYesNo) = vbNo Then
a = False
Else
a = True
End If
End Sub

dieses in ein Modul 

Public a As Boolean

und diese Code in den Code der Tabelle 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If a = True Then
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 33
End If
End Sub

hier Bsp.Mappe:
https://www.herber.de/bbs/user/72233.xls
gruss hary
Anzeige
AW: Worksheet_SelectionChange auf Befehl
10.11.2010 11:21:12
Markus
Hary,
sei mir nicht böse, die Variante von Rudi gefällt mir besser.
Dafür kriege ich bei der Version von Rudi nicht hin, dass das "auf der gerade sitzenden Zeile" verschwindet.
Markus
Code für Checkbox
10.11.2010 11:25:28
Rudi
Hallo,
in das Modul der Tabelle: 
Private Sub CheckBox1_Click()
If CheckBox1 Then
ActiveCell.EntireRow.Interior.ColorIndex = 33
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub

Gruß
Rudi
Super
10.11.2010 11:31:47
Markus
Super, Danke an Euch beide !

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige