Thema Datum  Von Nutzer Rating
Antwort
07.02.2018 08:58:49 Gast40437
NotSolved
07.02.2018 17:45:22 Mackie
NotSolved
07.02.2018 21:24:45 xlKing
NotSolved
08.02.2018 01:12:41 xlKing
NotSolved
Rot [Excel] gefülltest Reckteck nicht anwählen
 08.02.2018 01:30:19 xlKing
*****
Solved
08.02.2018 07:49:04 Gast40437
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
08.02.2018 01:30:19		 Views:
662		 Rating:
     
Antwort:
 Nein
Thema:
[Excel] gefülltest Reckteck nicht anwählen

Mist, da war noch ein kleiner Bug drin. Aber jetzt sollte es funktionieren:

Dim row1 As Long, rown As Long

Private Sub worksheet_SelectionChange(ByVal Target As Range)
  If row1 = 0 Then
    row1 = 1
    rown = 1
  End If
  For i = row1 To rown
    Rows(i).Interior.Pattern = xlPatternSolid
    If Rows(i).Interior.ColorIndex = xlPatternAutomatic Then
      Rows(i).Interior.Pattern = xlNone
    Else
      rown = i
    End If
  Next i
  
  For Each c In Rows(row1 & ":" & rown).Columns
    c.Interior.Pattern = xlPatternSolid
    If c.Interior.ColorIndex = xlPatternAutomatic Then
       c.Interior.ColorIndex = xlNone
    ElseIf IsNull(c.Interior.ColorIndex) Then
       c.Interior.Pattern = xlPatternSolid
       For Each cl In c.Cells
         If cl.Interior.ColorIndex = xlPatternAutomatic Then cl.Interior.Pattern = xlNone
       Next cl
    End If
  Next c
  
  row1 = Target.Row: rown = Target.Row + Target.Rows.Count - 1
  
  For Each r In Target.Rows
    Rows(r.Row).Interior.Pattern = xlGray50
    Rows(r.Row).Interior.PatternColor = 12632256
  Next r
End Sub

Gruß Mr. K.

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
07.02.2018 08:58:49 Gast40437
NotSolved
07.02.2018 17:45:22 Mackie
NotSolved
07.02.2018 21:24:45 xlKing
NotSolved
08.02.2018 01:12:41 xlKing
NotSolved
Rot [Excel] gefülltest Reckteck nicht anwählen
 08.02.2018 01:30:19 xlKing
*****
Solved
08.02.2018 07:49:04 Gast40437
NotSolved