VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
xlKing

Datum:
08.02.2018 01:12:41

Views:
567

Rating:

Antwort:

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

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:

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