Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: si-ri am April 09, 2018, 10:14:52 Vormittag

Titel: Office 2016 Bei Doppelklick Farbänderung in bestimmten Zeilen
Beitrag von: si-ri am April 09, 2018, 10:14:52 Vormittag

Liebe Forums-User,
ich habe eine Frage bezügl Excel und VBA, mit der ich nicht weiterkomme.
Ich habe eine Tabelle erstellt, die in Spalte B verschiedene Medienkanäle beinhaltet, z.B. Blog, Internet etc.
Ich hätte gerne, dass die Zeile des jeweiligen Kanals (z.B. Blog) auf Doppelklick hin die Farbe ändert.
Beispiel:
Zelle B2 = Blog --> Alle Zellen in Zeile 2 sollen auf Doppelklick hin rot werden.
Zelle B3 = Internet --> Alle Zellen in Zeile 3 sollen auf Doppelklick hin blau werden.

Ich habe mich in VBA eingearbeitet, aber ich bekomme das alleine nicht hin. Könnt ihr mir helfen?
Viele Grüße
Si-ri

Titel: Antw:Office 2016 Bei Doppelklick Farbänderung in bestimmten Zeilen
Beitrag von: StefKe am April 11, 2018, 19:46:57 Nachmittag

Hallo si-ri, meinst Du so....

Code: [Auswählen]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngZeile As Long
Dim wks As Worksheet
Set wks = Worksheets(1)
lngZeile = Target.Row
wks.Rows(lngZeile).Interior.Color = 10092543
End Sub
mit einer if-Abfrage kannst Du die Farben je Zeile anpassen.