Thema Datum  Von Nutzer Rating
Antwort
19.02.2019 12:24:40 PM
NotSolved
Blau Markieren der gesamtem Zeilen trotz verbundener Zellen
 19.02.2019 13:16:00 MP
*****
Solved
19.02.2019 13:18:40 Gast19556
NotSolved

Ansicht des Beitrags:
Von:
MP		 Datum:
19.02.2019 13:16:00		 Views:
433		 Rating:
     
Antwort:
 Nein
Thema:
Markieren der gesamtem Zeilen trotz verbundener Zellen		 
Sub Test()
Dim c As Range, rw As Range, fa As String

   Application.ScreenUpdating = False
   With Columns("A")
    Set c = .Find("Regeneration", LookIn:=xlValues, LookAT:=xlPart)
    If Not c Is Nothing Then
        fa = c.Address
        Do
         If c.MergeArea.Cells.Count > 1 Then
            For Each rw In c.MergeArea.Cells
               rw.EntireRow.Interior.ColorIndex = 4
            Next rw
            c.MergeArea.Interior.ColorIndex = 4
         Else
            c.EntireRow.Interior.ColorIndex = 4
         End If
         Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> fa
    End If
   End With
   Application.ScreenUpdating = True

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
19.02.2019 12:24:40 PM
NotSolved
Blau Markieren der gesamtem Zeilen trotz verbundener Zellen
 19.02.2019 13:16:00 MP
*****
Solved
19.02.2019 13:18:40 Gast19556
NotSolved