Thema Datum  Von Nutzer Rating
Antwort
26.03.2018 08:32:57 Gast36111
NotSolved
26.03.2018 17:24:41 Mackie
NotSolved
Rot Highlight eine Zeile mit Rahmen
 26.03.2018 20:35:44 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
26.03.2018 20:35:44		 Views:
525		 Rating:
     
Antwort:
  Ja
Thema:
Highlight eine Zeile mit Rahmen		 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngR As Range
   
   Application.ScreenUpdating = False
   
   For Each rngR In ActiveSheet.UsedRange.Rows
      With rngR.EntireRow
         .Borders.LineStyle = xlNone
      End With
   Next rngR
   
   DoIt Target, xlContinuous, 3, xlThick
   
   Application.ScreenUpdating = True

End Sub

Private Sub DoIt(ByVal myTarget As Range, myStyle, myIndex, myWeight)
Dim x
   With myTarget.EntireRow
      For x = 7 To 10
         With .Borders(x)
            .LineStyle = myStyle
            .ColorIndex = myIndex
            .Weight = myWeight
         End With
      Next x
   End With

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.03.2018 08:32:57 Gast36111
NotSolved
26.03.2018 17:24:41 Mackie
NotSolved
Rot Highlight eine Zeile mit Rahmen
 26.03.2018 20:35:44 Gast70117
NotSolved