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
Blau [Excel] gefülltest Reckteck nicht anwählen
 08.02.2018 01:12:41 xlKing
NotSolved
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:12:41		 Views:
761		 Rating:
     
Antwort:
  Ja
Thema:
[Excel] gefülltest Reckteck nicht anwählen

Hallo nochmal,

hier mal ein Beispiel, wie Ich sowas aufbauen würde. Vielleicht gefällt dir das Makro ja besser. So hast du zumindest eine Alternative.

Der Code gehört natürlich in das entsprechende Tabellenmodul oder in das Modul 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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
    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
    Else
       c.Interior.Pattern = xlPatternSolid
    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

Wenn du die erste Zeile leicht abwandelst in 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
kannst du das Makro auch im Modul "Diese Arbeitsmappe" für das gesamte Workbook verwenden.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Blau [Excel] gefülltest Reckteck nicht anwählen
 08.02.2018 01:12:41 xlKing
NotSolved
08.02.2018 01:30:19 xlKing
*****
Solved
08.02.2018 07:49:04 Gast40437
NotSolved